3
A
回答
5
检查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
1
你的编译器也可以提供一个外部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.
相关问题
- 1. 检查文件是否已经打开
- 2. python xlrd检查文件是否已经打开
- 3. 节点js检查一个文件是否已经打开
- 4. 检测文件是否已经在javascript中打开
- 5. 如何检查网址是否已经打开HTML
- 6. 如何检查弹出对话框是否已经打开?
- 7. 如何检查文件是否打开
- 8. 如何检查文件是否打开
- 9. 如何检查并关闭如果Excel文件是在java中已经打开
- 10. 如何检查文件是否已经存在于列表中?
- 11. 如何检查word文档已经打开或没有打开。
- 12. 如何知道IsolatedStorage中的文件是否已经打开?
- 13. 你如何检测你已经打开的文件已经打开
- 14. 检查文件名是否已经存在于文件夹中?
- 15. 如何检查网站是否已经在网页浏览器中打开?
- 16. 如何检查文件名是否已经存在?
- 17. 如何检查文件名是否已经存在?
- 18. 如何检查文本文件是否在gedit中打开
- 19. 如何检查意图/活动是否已在Android中打开?
- 20. 有没有办法检查Hadoop文件是否已经打开写入?
- 21. 有没有一种方法可以检查文件是否已经打开?
- 22. 如何检查Google Chrome中是否已经打开特定页面?
- 23. 检查第三方应用程序是否已经打开
- 24. 如何检查电子邮件是否已打开?
- 25. 如何检查样式文件是否已经加载?
- 26. 如何检查一个文件是否已经打开(在同一个进程中)
- 27. 检查文件是否已经在源代码管理中
- 28. 如何检查文件是否存在打开在EXE C++
- 29. 检查文件是否打开
- 30. 检查文件是否打开
日Thnx了很多,尤其是对的链接。我对Cobol完全陌生,因此非常感谢您的资源! – doro 2010-02-10 13:39:41