COBOL開放式IO：創建文件，如果不存在

它有沒有人有一個想法，你如何捕獲異常，如果你試圖打開一個文件IO如果它不存在，COBOL拋出，然後創建一個新的文件？COBOL開放式IO：創建文件，如果不存在

2009-12-16 user211992

在SELECT原因可選的短語會做到這一點：

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

如果OPEN IO文件將在必要時創建。對於OPEN INPUT，無法創建文件，但作爲在EOF處理，所有隨機讀會「無效鍵」。

我敢肯定這是一個ANSI標準條款，但不記得，當它出現了。

來源

2009-12-16 23:46:07

好的答案 - 我相信OPTIONAL子句是在COBOL-85標準中指定的。如果您在z/OS的工作，你需要添加CBLQDA（ON）runtme選項（默認爲關閉）。請注意，此選項在CICS下不可用。 – NealB 2009-12-18 16:47:29

我不知道您使用的是什麼版本的Cobol或您使用的是哪種平臺。我的程序首先檢查文件是否存在，然後再嘗試打開文件。我使用Unisys的Cobol的85 MCP大型機平臺上。消息是跛腳的，但誰在乎？

下面是從日常運行工作的一個片段：

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

凱茜

來源

2009-12-16 22:38:17

COBOL開放式IO：創建文件，如果不存在

回答

相關問題