MOVE文とＷＲＩＴＥ文 move kencode to m-kencode 01 01 入力領域のkencodeに記憶され たデータを、明細行のmkencodeという記憶場所に転記。 move kenmei to m-kenmei ﾎｯｶｲﾄﾞｳ 01 ﾎｯｶｲﾄﾞｳ 入力領域のkenmeiに記憶された データを、明細行のm- kenmeiと いう記憶場所に転記。 move menseki to m-menseki 83520 01 ﾎｯｶｲﾄﾞｳ 83520 入力領域のmensekiに記憶され たデータを、明細行のmmensekiという記憶場所に転記。 move jinko to m-jinko 05646 01 ﾎｯｶｲﾄﾞｳ 83520 05646 入力領域のjinkoに記憶された データを、明細行のm-jinkoという 記憶場所に転記。 move meisai-gyo to itiran-rec meisai-gyo(明細行) △ △ △ △ △ △ △ △ △ 01△ △ △ △ホッカイドウ△ △ △ △ △83520△ △ △ △05646 itiran-rec(出力レコード） 明細行の内容をレコード単位で 出力レコードに転記 write itiran-rec after 1 △ △ △ △ △ △ △ △ △ 01△ △ △ △ホッカイドウ△ △ △ △ △83520△ △ △ △05646 itiran-rec △ △ △ △ △ △ △ △ △ 01△ △ △ △ホッカイドウ△ △ △ △ △83520△ △ △ △05646 出力レコードに記憶された内容を 印字（書き込み）する命令 end-read • 明示範囲符が not at end から end-readま での文を実行することを示している。 • 「入力ファイルが終わり」でないなら、not at end の直後からの文を再度、実行する。 ループ始端 at end 県ファイルを読む not at end 県名→明細 move kencode to m-kencode 02 01 02 ﾎｯｶｲﾄﾞｳ 83520 05646 入力領域のkencodeに記憶され たデータを、明細行のmkencodeという記憶場所に転記。 move kenmei to m-kenmei ｱｵﾓﾘ 02 ﾎｯｶｲﾄﾞｳ ｱｵﾓﾘ 83520 05646 入力領域のkenmeiに記憶された データを、明細行のm- kenmeiと いう記憶場所に転記。 move menseki to m-menseki 09619 02 ｱｵﾓﾘ 09619 83520 05646 入力領域のmensekiに記憶され たデータを、明細行のmmensekiという記憶場所に転記。 move jinko to m-jinko 01529 02 ｱｵﾓﾘ 09619 05646 01529 入力領域のjinkoに記憶された データを、明細行のm-jinkoという 記憶場所に転記。 move meisai-gyo to itiran-rec meisai-gyo(明細行) △ △ △ △ △ △ △ △ △ 02△ △ △ ｱｵﾓﾘ△ △ △ △ △ △ △ 09619 △ △ △ △ 01529 △ △△ △△ △△ △△ △△ △△ △△ △△ △02△ 01△△ △△ △ｱｵﾓﾘ △ﾎｯｶｲﾄﾞｳ△ △ △ △△ △△ △△ △△ △83520 09619△ △△ △△ △△ △05646 01529 itiran-rec(出力レコード） 明細行の内容をレコード単位で 出力レコードに転記 write itiran-rec after 1 △ △ △ △ △ △ △ △ △ 02△ △ △ △ｱｵﾓﾘ△ △ △ △ △ △ △ △09619△ △ △ △01529 itiran-rec △ △ △ △ △ △ △ △ △ 01△ △ △ △ホッカイドウ△ △ △ △ △83520△ △ △ △05646 △ △ △ △ △ △ △ △ △ 02△ △ △ △ｱｵﾓﾘ△ △ △ △ △ △ △09619△ △ △ △01529 出力レコードに記憶された内容を 印字（書き込み）する命令 繰り返し処理の終わり 繰り返し処理（PERFORM文）は、終了条件に 当てはまるまで続く ↓ PERFORM UNTIL 条件 PERFORM UNTIL e-flg = “on” 記憶場所 e-flg の内容が「on」と等しくなる時 まで、処理を繰り返し実行する。
© Copyright 2024 ExpyDoc
