C******************************************************
C* DEFINITION MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C* :
C* DEFINE FILED :
C* :
C *LIKE DEFN A1FLD W1OLD :
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 :
001 C MOVE A1FLD W1OLD :
001 C* :
B002 C *IN90 DOWEQ*OFF :
*002 C A1FLD ANDEQW1OLD :
002 C EXSR @SUM :集計
002 C EXSR @DTL :明細
002 C READ AFILE 90:
E002 C END :
001 C* :
001 C EXSR @TOL :合計
001 C EXSR @CLR :合計消去
E001 C END :
C* :
C EXSR @END :終了
C* :
C MOVE *ON *INLR :
C RETRN : |