7.10.RPGサイクル合計１つ

     IAFILER      01
     I                                              A1FLD1L1
     C******************************************************
     C*             M A I N -  R O U T I N E                
     C******************************************************
     C                     EXSR @SUM                       :小計
     C*                                                    :
     C                     EXSR @DTL                       :明細
     C*                                                    :
     CL1                   EXSR @TOL                       :小計
     CL1                   EXSR @CLR                       :合計消去
     C*                                                    :
     CLR                   EXSR @END                       :
     CLR                   RETRN                           :
     C******************************************************
     C*             S U B -  R O U T I N E                
     C******************************************************
     C*----------------------------------------------------*   
     C           *INZSR    BEGSR
     C*----------------------------------------------------*          
     C                     EXSR @HED                       ;
     C*
     C                     ENDSR