Формат блока REPORТ. (Генерация отчетов).

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   список выражений [;]
       вывести на печать [не переводя строку]
     в REPORT можно использовать следующие функции:
num-expr SPACES                          вставить пробелы
char-exp WORDWRAP [RIGHT MARGIN integer] вывести длинную строку
LINENO                            номер строки на странице
PAGENO                            номер печатаемой страницы

Агрегатные функции:

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

Обычные функции 4GL

Назад || Оглавление || Вперед