如何检查文件是否已经在COBOL中打开？

我想找出一种方法来检查一个文件是否已经在COBOL中打开，这样我可以打开它，如果它是关闭的或关闭它，如果它被打开。如何检查文件是否已经在COBOL中打开？

Thnx。

2010-02-09 doro

检查FILE STATUS并采取相应措施。

尝试以下方法：在WORKING-STORAGE

 
    FILE-CONTROL. 
     SELECT MYFILE ASSIGN MYDD 
       ORGANIZATION SEQUENTIAL 
       ACCESS  SEQUENTIAL 
       FILE STATUS MYFILE-STATUS.

声明一个FILE STATUS变量作为PIC X(2)值，例如：

添加FILE-STATUS下FILE-CONTROL，例如

 
      01 MYFILE-STATUS PIC X(2). 
       88 MYFILE-ALREADY-OPEN VALUE '41'.

然后在PROCEDURE DIVISION问题OPEN为您的文件。紧接着的是，测试的FILE STATUS 值如下所示：的FILE STATUS

 
    OPEN MYFILE.... 
    IF MYFILE-ALRADY-OPEN 
     CLOSE MYFILE... 
    END-IF 
    IF MYFILE-STATUS <> '00' 
     perform some sort of general error routine 
    END-IF

值，其中所述第一字符不是“9”，是 COBOL标准的值，以便检测关于“41”，以检测已打开的文件应该适用于所有COBOL实现。当第一个字符是'9'时，请注意，这些是供应商特定的文件状态代码。看看下面的链接，一个很好的介绍使用COBOL FILE STATUS：http://www.simotime.com/vsmfsk01.htm

来源

2010-02-09 15:04:11 NealB

日Thnx了很多，尤其是对的链接。我对Cobol完全陌生，因此非常感谢您的资源！ – doro 2010-02-10 13:39:41

你的编译器也可以提供一个外部API，如CBL_CHECK_FILE_EXIST它可以在微焦点COBOL，ACUCOBOL和Fujutsu COBOL被发现。

例如，在微焦点COBOL：

copy "cblproto.cpy". 

program-id. MYMAIN. 
working-storage section. 
01 . 
    05 file-details cblt-fileexist-buf. 

procedure division. 
    call 'CBL_CHECK_FILE_EXIST' using 'mymain.cbl ' 
             file-details 
    if return-code not = 0 
     display "File mymain.cbl does not exist (or error)" 
    else 
     display "File mymain.cbl size is " cblt-fe-filesize 
     of file-details 
    end-if 
end program MYMAIN.

来源

2010-02-15 14:07:17

如何检查文件是否已经在COBOL中打开？

回答

相关问题