4.4.4 DEF_FOOTコマンドの使い方

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