Формат блока 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 (см. файл h4fu)
Last-modified: Tue, 25 Nov 1997 07:26:01 GMT