file-io - cobol Open-IO: ファイルが存在しない場合は作成する

Question

IO ファイルが存在しない場合に IO ファイルを開こうとした場合に cobol がスローする例外をキャッチし、新しいファイルを作成する方法を知っている人はいますか?

Answer 1

SELECT 原因の OPTIONAL 句は、これを行います。

SELECT OPTIONAL FILE-A 
   ASSIGN TO "INFILE" 
   ORGANIZATION INDEXED. 

OPEN IO の場合、必要に応じてファイルが作成されます。OPEN INPUT の場合、ファイルは作成されませんが、EOF にあるものとして扱われ、すべてのランダム読み取りは「INVALID KEY」になります。

これは ANSI 標準の句であると確信していますが、いつ登場したか思い出せません。

Answer 2

使用しているCobolのバージョンや、使用しているプラ​​ットフォームがわかりません。私のプログラムは、ファイルを開こうとする前に、まずファイルが存在するかどうかを確認します。MCPメインフレームプラットフォームでUnisysCobol85を使用しています。メッセージは不完全ですが、誰が気にしますか？

毎日実行されるジョブのスニペットは次のとおりです。

968545     IF  ATTRIBUTE RESIDENT OF OU3-WORK-LIST-FILE = VALUE TRUE  
968550         DISPLAY "PROGRAM SHOWS ATTRIBUTE TRUE"                 
968555         OPEN EXTEND OU3-WORK-LIST-FILE                         
968560     ELSE                                                       
968565         DISPLAY "PROGRAM SHOWS FALSE"                          
968570         OPEN OUTPUT OU3-WORK-LIST-FILE                         
968575     END-IF.                                                    
968580                                    

キャシー