LANSAでは同時に8つまでのレポートを作成できます。すべてのレポート定義コマンドには、FOR_REPORTパラメータが関連付けられています。このパラメータの省略値は1で、どのレポートに行の定義が関連付けられているかを示します。1～8のいずれかの値を指定できます。
さらに、この8通りのファイルに対応して、REPnPAGEという「特殊」フィールドがあります。これはページ番号を印字するために使います。ただし、「n」は処理対象ファイルの番号を表します。
したがって、前節の例を次のように修正すれば、ページ番号を頭書きに埋め込むことができます。
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)
SELECT FIELDS(#ACCOUNT) FROM_FILE(ACCOUNTS)
PRINT LINE(#DETAILS)
ENDSELECT
ENDPRINT
実際に2ページ分のレポートを作成すると次のようになります。
会社 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
会社 02 ページ 2
部門 課 支出 収入
1 ACC 843 400
1 MKT 23 0
1 SAL 876 10
2 ACC 0 43
処理対象ファイルが1つだけの場合、そのファイル番号は1になるので、「REP1PAGE」を使ってページ番号を印字しています。
