REPORT report-name (argument-list)

DEFINE variable-list { type | LIKE table-column |
   RECORD  { LIKE table.* | variable-list  type [,...]
                            END RECORD } }[,...]

[OUTPUT                       по умолчанию:

  [REPORT TO { "filename | PIPE "program" | PRINTER }    ]
                                 SCREEN
  [ LEFT   MARGIN integer ]         5
  [ RIGHT  MARGIN integer ]        132
  [ TOP    MARGIN integer ]         3
  [ BOTTOM MARGIN integer ]         3
  [ PAGE  LENGTH  integer ]         66
]

[ORDER [EXTERNAL] BY  sort-list ]     подсписок  переменных,
                                      входящих в аргументы

FORMAT EVERY ROW   простейший оператор формата.
           В этом случае нельзя использовать контрольные блоки.
     либо

FORMAT  включает несколько контрольных блоков, которые содержат
   обычные операторы 4GL и операторы применимые только в REPORТ

  ON EVERY ROW                  выводит строку
        statement
          . . .
  FIRST PAGE HEADER        выводит заголовок первой страницы
        statement
          . . .
  ON LAST ROW             окончание REPORT (подведение итогов)
        statement
          . . .
  PAGE HEADER                 заголовок каждой страницы
        statement
          . . .
  PAGE TRAILER                 в конце каждой страницы
        statement
          . . .
  BEFORE GROUP OF variable      в начале группы строк
        statement
          . . .
   . . .
  AFTER GROUP OF  variable       в конце группы строк
        statement
          . . .
   . . .
END REPORT
---------------------------------------------------------------
в контрольных блоках кроме обычных операторов 4GL используются:

NEED num-expr LINES     если на странице  осталось  менее  
                        expr строк, то начать с новой страницы.
PAUSE ["Сообщение"]     вывести  Сообщение на экран 
                        и ждать нажатия CR
PRINT FILE "filename"   вывести на печать содержимое файла

SKIP { integer LINE | TO TOP OF PAGE }

PRINT   список выражений [;]
       вывести на печать [не переводя строку]



num-expr SPACES                          вставить пробелы
char-exp WORDWRAP [RIGHT MARGIN integer] вывести длинную строку

LINENO                            номер строки на странице
PAGENO                            номер печатаемой страницы



[GROUP]   functioп   [WHERE  условие]
[для группы строк] применить функцию [только для строк, 
                                      удовлетворяющих условию]
где functioп может быть:
{ COUNT(*) | PERCENT(*) | { SUM | MAX | MIN | AVG }(expr) }
           в процентах от                      среднее
         общего кол-ва строк



Популярность: 7, Last-modified: Tue, 25 Nov 1997 07:26:01 GmT