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