小编xzb*_*zmn的帖子

COBOL:文件状态 39 错误

这是我的 cobol 代码。我的 cobol 文件夹中有 testinput.txt。我编译了它,它没有错误,但是当我尝试运行它时,

有一条消息说 RCL0002: File status 39 on < unopened-file > 在程序 TEST 的段 00 的偏移量 0046 处检测到错误

   IDENTIFICATION DIVISION. 
   PROGRAM-ID. transactionIN.


   ENVIRONMENT DIVISION. 
   CONFIGURATION SECTION. 
   SOURCE-COMPUTER. IBM-PC. 
   OBJECT-COMPUTER. IBM-PC. 
   INPUT-OUTPUT SECTION. 
   FILE-CONTROL. 
       SELECT INFILE ASSIGN TO 'testinput.txt'. 
       SELECT OUTFILE ASSIGN TO 'testoutput'. 
   DATA DIVISION. 
   FILE SECTION. 
   FD  INFILE
       LABEL RECORD IS STANDARD
       DATA RECORD IS INREC. 
   01  INREC. 
       02 AC PIC X(99). 
   FD  OUTFILE
       LABEL RECORD IS OMITTED
       DATA RECORD IS OUTREC. 
   01  OUTREC. 
       02 …
Run Code Online (Sandbox Code Playgroud)

cobol input output

2
推荐指数
1
解决办法
1万
查看次数

标签 统计

cobol ×1

input ×1

output ×1