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