[ 
|../../index.htm#lansa/l4wdev05_0195.htm]
現在地:
4.4.2 DEF_HEADコマンドの使い方
「4.4.1 DEF_LINEコマンドの使い方」で挙げた例を修正して、会社番号を先頭に置き、会社が変わるごとに改ページを挿入するようにしてみましょう。
GROUP_BY NAME(#ACCOUNT) FIELDS(#COMP #DIV #DEPT #EXPEND #REVNU) DEF_HEAD NAME(#HEADING) FIELDS(#COMP) TRIGGER_BY(#COMP) DEF_LINE NAME(#DETAILS) FIELDS(#DIV #DEPT #EXPEND #REVNU) SELECT FIELDS(#ACCOUNT) FROM_FILE(ACCOUNTS) PRINT LINE(#DETAILS) ENDSELECT ENDPRINT
すると次のような2ページのレポートが作成されます。
会社 01
部門 課 支出 収入
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
部門 課 支出 収入
1 ACC 843 400
1 MKT 23 0
1 SAL 876 10
2 ACC 0 43
DEF_HEADコマンドにより、レポートの頭書き部分に#COMPを印字すること、#COMPの値が変わるごとに改ページを挿入することを指示しています。つまり、会社番号が変わるごとに新しいページとなります。
しかし実際には、この場合TRIGGER_BYパラメータは適切ではありません。会社番号01が1ページを超える記録を持つときは次のような結果になるので、あまり適切とは言えません。
会社 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
ページ 2
部門 課 支出 収入
4 ADM 400 576
4 MKT 678 56
4 SAL 123 6784
5 ADM 46 52
5 SAL 978 456
5 ACC 456 678
5 SAL 123 679
会社 02 ページ 3
部門 課 支出 収入
1 ACC 843 400
1 MKT 23 0
1 SAL 876 10
2 ACC 0 43
2ページ目の先頭に会社番号が印字されていないことに注意してください。これは、レコードの会社番号が変わった場合にのみDEF_HEADラインにトリガーがかかるからです。1ページから2ページに移るところでは、会社番号は変わっていないので、DEF_HEADコマンドは起動されないのです。これに対し、DEF_HEADコマンドを次のように記述したとしましょう。
DEF_HEAD NAME(#HEADING) FIELDS(#COMP)
TRIGGER_BY(#COMP *OVERFLOW)
こうすると、会社番号が変わったときまたは、1ページに納まり切らなくなった場合にもDEF_HEADコマンドが起動されるので、2ページ目にも「会社番号 01」と印字されます。
[ |../../index.htm#lansa/l4wdev05_0195.htm]