
        ▄фОРМАТ БЛОКА REPORT. (гЕНЕРАЦИЯ ОТЧЕТОВ).▄ 

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 И ОПЕРАТОРЫ ПРИМЕНИМЫЕ ТОЛЬКО В REPORT

  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                            НОМЕР ПЕЧАТАЕМОЙ СТРАНИЦЫ

        DаГРЕГАТНЫЕ ФУНКЦИИ:E

[GROUP]   DfunctionE   [WHERE  УСЛОВИЕ]
[ДЛЯ ГРУППЫ СТРОК] ПРИМЕНИТЬ ФУНКЦИЮ [ТОЛЬКО ДЛЯ СТРОК, 
                                      УДОВЛЕТВОРЯЮЩИХ УСЛОВИЮ]
ГДЕ DfunctionE МОЖЕТ БЫТЬ:
{ COUNT(*) | PERCENT(*) | { SUM | MAX | MIN | AVG }(expr) }
           В ПРОЦЕНТАХ ОТ                      СРЕДНЕЕ
         ОБЩЕГО КОЛ-ВА СТРОК

        DоБЫЧНЫЕ ФУНКЦИИ 4GL (СМ. ФАЙЛ h4fu)E