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* :
B001 C *IN90 DOUEQ*ON :
001 C READ AFILE 90:
B002 C *IN90 IFEQ *OFF :
002 C* :
B003 C *IN80 IFEQ *OFF :
003 C MOVE *ON *IN80 ;第一サイクル
003 C MOVE A1FLD W1OLD :
E003 C END :
002 C* :
B003 C A1FLD IFNE W1OLD :
003 C EXSR @TOL :合計
003 C EXSR @CLR :合計消去
003 C MOVE A1FLD W1OLD :
E003 C END :
002 C* :
002 C MOVE *ON *IN81 ;明細有
002 C EXSR @SUM :集計
002 C EXSR @DTL :明細
002 C* :
E002 C END :
E001 C END :
C* :
B001 C *IN81 IFEQ *ON ;明細有
001 C EXSR @TOL :合計
E001 C END :
C* :
C EXSR @END :終了
C* :
C MOVE *ON *INLR :
C RETRN : |