集計処理


受注ファイルを読み込んで、部ごとの売上の集計を行ない集計ファイルに出力する。

初期処理

@各ファイルのOPEN

A受注ファイルタ読込。

B新キー → 旧キー

受注マスタ読込

@受注ファイルを読み込む
     
主処理

@以下の処理を

  AT END(EOF)

   まで繰り返す。

 (1)  新キー = 旧キー

    集計エリアに加算

 (2) (1)以外

    集計ファイルに出力

    集計エリアをクリア

    新キー → 旧キー

                集計エリアに加算

 (3) 受注マスタ読込

終了処理

@ 集計ファイルに出力

A 各ファイルのCLOSE  

ソースプログラムリスト MF-COBOL