Page History
「4.4.2 DEF_HEADコマンドの使い方」で挙げた例をさらに拡張して、各ページの末尾にもページ番号その他の情報を印字するようにしてみましょう。
GROUP_BY NAME(#ACCOUNT)
...
FIELDS(#COMP #DIV #DEPT
#EXPEND #REVNU)
DEF_HEAD NAME(#HEADING)
...
FIELDS(#COMP #REP1PAGE)
TRIGGER_BY(
...
#COMP *OVERFLOW)
DEF_LINE NAME(#DETAILS)
...
FIELDS(#DIV #DEPT #EXPEND #REVNU)
DEF_FOOT NAME(#FOOTING)
...
FIELDS(#REP1PAGE)
...
TEXT(('EXP/
...
REV REPORT' 58 10))
SELECT FIELDS(#ACCOUNT)
...
FROM_FILE(ACCOUNTS)
PRINT LINE(#DETAILS)
ENDSELECT
ENDPRINT
すると次のようなレポートが作成されます。
会社 01 ページ 1 部門 課 支出 収入 1 ADM 400 576 1 MKT 678 56 1 SAL 123 6784 2 ADM 46 52 2 SAL 978 456 3 ACC 456 678 3 SAL 123 679 ページ 1 収支報告書 会社 02 ページ 2 部門 課 支出 収入 1 ACC 843 400 1 MKT 23 0 1 SAL 876 10 2 ACC 0 43 ページ 2 収支報告書