「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 収支報告書
