Q&A
実現したいこと
ＣＳＶファイル（SEQUENTIALファイル）をREADしたときに、
０件だった場合にメッセージを出したいです。
ソースコードに書いたものしか思い浮かばなかったのですが、
なにかよりよい記述方法はあるのでしょうか？
教えていただけたら幸いです。
該当のソースコード
COBOL
1 ENVIRONMENT DIVISION. 2 SELECT CSV ASSIGN CSV-MSD 3 ORGANIZATION IS SEQUENTIAL 4 ACCESS MODE IS SEQUENTIAL. 5 PROCEDURE DIVISION. 6 READ CSV AT END IF READ-COUNT = 0 7 DISPLAY "０件です" 8 END IF. 9 ADD 1 TO READ-COUNT.
試したこと
検索しました。
補足情報（FW/ツールのバージョンなど）
ここにより詳細な情報を記載してください。
回答2件
0
ベストアンサー
質問文のコードは、ループになってないので、0件でない場合にどうやって全件読むのかわかりませんが、
IF READ-COUNT = 0 DISPLAY "０件です"は、AT ENDの中に書くのでなく、
ループが終わった後に書くのが普通でしょうか。
投稿2022/08/18 10:15
総合スコア84505
0
投稿2022/08/18 07:32
総合スコア261
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。