Формат блока 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

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