COBOL

COBOLでファイルが終わるまで繰り返す命令はどう書くのですか。

PERFORMを使うと思うのですが分かりません。

AT　ENDが何処の来るのかも分かりません教えてください。

No.2 ベストアンサー 回答者： rvr3958 回答日時： 2002/06/12 15:00

一つの例です。

MOVE　SPACE　　TO　FLG-END.
PERFORM　UNTIL　FLG-END　=　"END"
　　READ　A-FILE
　　　AT　END
　　　　MOVE　"END"　　TO　FLG-END
　　END-READ
END-PERFORM.

FLG-ENDが"END"になるまでA-FILEの読込を行います。
FLG-ENDはファイル終了を検知した時に"END"がセットされます。

前回もあなたのCOBOLの質問に対して回答させていただいた者ですが、質問しっぱなしは宜しくないと思いますよ。前回の質問疑問が片付いたのなら締め切りましょうね。

この回答へのお礼

回答ありがとう御座いました。
解決しました。

お礼日時：2002/06/13 01:31

No.1 回答者： tyururun 回答日時： 2002/06/12 14:56

大昔の記憶なのですが　(-_-;)

ＰＥＲＦＯＲＭ　ＡＴ　ＥＮＤ－ＦＩＬＥ（ＤＡＴＡ？）

みたいなかき方したような・・・

この回答へのお礼

ありがとう御座いました。

お礼日時：2002/06/13 01:29