COBOL　PERFORM文の処理の流れについて

前提

最近COBOLを勉強し始めましたプログラミング初心者の事務職です。
COBOL　PERFORM文の処理の流れについて3点、質問します。

実現したいこと

＜＜実行例＞＞を確認ください。

*PERFORM 入力処理. >1.
で入力処理を呼び出しまず。
入力ファイルの読み込みが終わったので、
終了フラグに 1 を代入しています。

質問①
この時点で終了フラグ = '1' ですよね？

**質問② **
PERFORM UNTIL 終了フラグ = '1' >2.
終了フラグ = '1' 　になるまで>3.出力処理と>4.入力処理を繰り返せとのことですが、
既に>1.の時点で　終了フラグ = '1' なので　

3.出力処理と>4.入力処理へは行かずに、END-PERFORM.　になりませんか？

質問③
PERFORM 入力処理 >4.
この>4.の処理は何のためにあるのですか？
既に　PERFORM 入力処理. *>1.　で入力ファイルの読み込みが終わって
終了フラグ = '1' を代入しています。
*>4.で再度　終了フラグ = '1'　を代入する必要がありますか？

処理の流れが良くわからず、質問させていただきます。

COBOL
1
2
3＜＜　実行例  ＞＞
4       主処理.
5           OPEN INPUT 入力ファイル
6                OUTPUT 出力ファイル.
7           PERFORM 入力処理.                   *>1.
8           PERFORM UNTIL 終了フラグ = '1'      *>2.
9             PERFORM 出力処理                  *>3.
10             PERFORM 入力処理                  *>4.
11           END-PERFORM.
12           CLOSE 入力ファイル
13                 出力ファイル.
14           STOP RUN.
15       入力処理　SECTION.
16           READ 入力ファイル 
17                AT END MOVE '1' TO 終了フラグ  *>5.
18           END-READ.
19       出力処理　SECTION.
20           MOVE 入力レコード TO 出力レコード.  *>6.
21           WRITE 出力レコード.
22        
231.入力処理を呼び出します。
242.うちPERFORMで3.，4.をファイル終了条件が成立するまで繰り返します。
253.出力処理を呼び出します。
264.入力処理を呼び出します。
275.入力処理を実行します。
286.出力処理を実行します。
29
30＜＜　実行例  ここまで  ＞＞
31

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

sazi

2023/01/30 05:29

基本的なPERFORMの構文は、「PERFORM [手続き名]」だと思います。以下は「手続き名」の指定がありませんが、正しいですか？ > PERFORM UNTIL 終了フラグ = '1' *>2.

SYOSINSYA

2023/01/30 06:03

sazi様　コメントありがとうございます。 https://itpfdoc.hitachi.co.jp/manuals/3020/30203D6240/USR20073.HTM 上記URLの　「(c)　手続きを呼び出す場合（そとPERFORM）」　からコピペした例題になります。出力処理と出力処理にかかっているのかなと思ってました。 PERFORM UNTIL 終了フラグ = '1' 　 PERFORM 出力処理　 PERFORM 入力処理　

行動規範の内容に同意します

回答1件

ベストアンサー

質問①
この時点で終了フラグ = '1' ですよね？

いいえ。'1'になるのは、AT END になった時（ファイルの末尾で読むデータが無かった時）だけです。
最初から空のファイルでなければデータがあるので、その時点ではAT ENDではないです。
もしかして、READ命令の意味を理解していないのであれば、復習しましょう。

質問②③も上記を理解すれば自明かと思います。

投稿2023/01/30 10:12

otn

総合スコア84663

SYOSINSYA

2023/01/31 01:44

otnさま、回答ありがとうございます。おっしゃる通りREAD命令を理解しておりませんでした。復習して流れがわかりました。また質問させていただくかもしれませんが、懲りずに教えていただけるとうれしいです。

otn

2023/01/31 07:05

質問文のようなことを考えたにもかかわらず、「これは自分のREADの理解が間違っているからでは無いか？」という方向に発想が行かないというのは、「自分には間違いが無い」と思い込む初心者あるあるです。（類似例：「書いてある通りにやったのにうまく行かない」）「自分のどこが間違っているのだろう？」という発想が自然に出てくるようになれば中上級者が見えてきます。

SYOSINSYA

2023/02/24 01:29

otnさま、コメント気がつかず失礼いたいました。ほんとにおっしゃる通りですね。今後も精進いたしますのでよろしくお願いいたします。

行動規範の内容に同意します