IAFILER 01
I A1FLD1L1
I A1FLD2L2
I A1FLD3L3
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C EXSR @SUM1 :小計
C EXSR @SUM2 :中計
C EXSR @SUM3 :大計
C* :
C EXSR @DTL :明細
C* :
CL1 EXSR @TOL1 :小計
CL1 EXSR @CLR1 :合計消去
C* :
CL2 EXSR @TOL2 :中計
CL2 EXSR @CLR2 :合計消去
C* :
CL3 EXSR @TOL3 :大計
CL3 EXSR @CLR3 :合計消去
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 |