C******************************************************
C* DEFINITION MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C* :
C* DEFINE FILED :
C* :
C *LIKE DEFN A1FLD1 W1OLD1 :小
C *LIKE DEFN A1FLD2 W1OLD2 :中
C *LIKE DEFN A1FLD3 W1OLD3 :大
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C EXSR @HED :見出
C* :
C READ AFILE 90:
C*
B001 C *IN90 DOWEQ*OFF :do loop 1
001 C MOVE A1FLD3 W1OLD3 :
001 C*
B002 C *IN90 DOWEQ*OFF :do loop 2
*002 C A1FLD3 ANDEQW1OLD3 :
002 C MOVE A1FLD2 W1OLD2 :
002 C*
B003 C *IN90 DOWEQ*OFF :do loop 3
*003 C A1FLD2 ANDEQW1OLD2 :
*003 C A1FLD3 ANDEQW1OLD3 :
003 C MOVE A1FLD1 W1OLD1 :
003 C*
B004 C *IN90 DOWEQ*OFF :do loop 4
*004 C A1FLD1 ANDEQW1OLD1 :
*004 C A1FLD2 ANDEQW1OLD2 :
*004 C A1FLD3 ANDEQW1OLD3 :
004 C EXSR @SUM1 :小計
004 C EXSR @SUM2 :中計
004 C EXSR @SUM3 :大計
004 C EXSR @DTL :明細
004 C READ AFILE 90:
E004 C END :do loop 4 end
003 C*
003 C EXSR @TOL1 :小計
003 C EXSR @CLR1 :合計消去
E003 C END :do loop 3 end
002 C*
002 C EXSR @TOL2 :中計
002 C EXSR @CLR2 :合計消去
E002 C END :do loop 2 end
001 C*
B001 C EXSR @TOL3 :大計
001 C EXSR @CLR3 :合計消去
E001 C END :do loop 1 end
C*
C EXSR @END :終了
C* :
C MOVE *ON *INLR :
C RETRN :
|