受注ファイルを読み込んで、部ごとの売上の集計を行ない集計ファイルに出力する。
初期処理
@各ファイルのOPEN
A受注ファイルタ読込。
B新キー → 旧キー
受注マスタ読込
@受注ファイルを読み込む
主処理
@以下の処理を
AT END(EOF)
まで繰り返す。
(1) 新キー = 旧キー
集計エリアに加算
(2) (1)以外
集計ファイルに出力
集計エリアをクリア
新キー → 旧キー
集計エリアに加算
(3) 受注マスタ読込
終了処理
@ 集計ファイルに出力
A 各ファイルのCLOSE