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

Question

我试图找到一种方法来检查文件是否已在COBOL中打开,以便我可以打开它,如果它已关闭或关闭它,如果它打开.

日Thnx.

Answer 1

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

请尝试以下方法:

在FILE-STATUS下面添加一个FILE-CONTROL,例如:

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

变量声明FILE STATUS 为WORKING-STORAGE值,例如:

PIC X(2)问题中

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

为您的文件.紧接着,测试以下值PROCEDURE DIVISION :

OPEN,其中第一个字符不是"9",是COBOL标准值,所以测试的"41"检测到一个已经打开的文件,应该对所有COBOL的实施工作.当第一个字符是'9'时要小心,这些是特定于供应商的文件状态代码.有关使用COBOL的详细介绍,请查看以下链接FILE STATUS:http://www.simotime.com/vsmfsk01.htm