如何解决COBOL程序中打开文件时出现的状态码90错误

错误核心分析 #

状态码90表明文件操作的程序声明与实际文件属性不匹配，或JCL定义的文件参数与程序逻辑冲突。结合你处理固定块（FB）文件的需求，从代码和JCL两方面逐一排查：

一、COBOL代码存在的问题 #

1. 未配置文件状态捕获
   程序未为文件定义FILE STATUS，错误发生时仅能返回笼统的90，无法获取细分错误原因（如文件未找到、权限不足、属性不匹配等）。

2. 文件组织方式不匹配固定块文件
   你声明的ORGANIZATION IS LINE SEQUENTIAL适用于换行符分隔的行式文本文件，而固定块（FB）文件应使用ORGANIZATION IS SEQUENTIAL，同时需在FD段明确记录与块的属性。

3. FD段缺少固定块属性声明
   当前FD段仅定义了记录长度，未指定块大小、记录格式等固定块文件必需属性，导致系统无法正确识别文件结构。

二、修改后的COBOL代码示例 #

IDENTIFICATION DIVISION.                                
PROGRAM-ID.     TQTEST01                                
ENVIRONMENT DIVISION.                                   
INPUT-OUTPUT SECTION.                                   
FILE-CONTROL.                                           
    SELECT INPUT-DATEI ASSIGN TO EINGABE                
    ORGANIZATION IS SEQUENTIAL
    FILE STATUS WS-FILE-STATUS.  // 添加文件状态变量
                                                         
DATA DIVISION.                                          
FILE SECTION.                                           
FD INPUT-DATEI
    RECORD CONTAINS 40 CHARACTERS  // 匹配记录长度X(40)
    BLOCK CONTAINS 0 RECORDS       // 让系统自动计算块大小（需为LRECL整数倍）
    LABEL RECORDS ARE STANDARD.    // MVS环境标准标签文件
01 EINGELESENE-ZEILE PIC X(40).                         
                                                           
WORKING-STORAGE SECTION.                                
01 WS-FILE-STATUS PIC XX.  // 文件状态变量，用于捕获详细错误码
                                                        
01 BOERSENTABLE.                                        
  05 B-KENNUNGEN OCCURS 71 TIMES INDEXED BY B-IDX.      
    15 B-CODE PIC X(6).                                 
                                                        
01 IDX PIC 9(2).                                        
01 BOERSENCODE PIC X(6).                                
01 FORMATIERTE-ZEILE.                     
  05 SELEKTION-VOR-BOERSENCODE PIC X(33). 
  05 EINGELESENER-BOERSENCODE PIC X(7).   
                                          
01 BESTEHENDE-DATEI-EOF.                  
  05 BD-DATEISTATUS PIC X.                
   88 BD-EOF VALUE 'J'.                   
                                          
COPY LIBCOB.                              
                                          
PROCEDURE DIVISION.                       
                                          
STEUERLOGIK SECTION.                      
    PERFORM F001-INITIALISIERUNG-SECTION. 
    PERFORM F002-ABGLEICH-SECTION.        
    PERFORM F003-DATEI-SCHLIESSEN-SECTION.
    GOBACK.                               
STEUERLOGIK-EX.                           
     EXIT.                                
                                          
F001-INITIALISIERUNG-SECTION. 
DISPLAY "A".                  
OPEN INPUT INPUT-DATEI.       
IF WS-FILE-STATUS NOT = '00'
    DISPLAY "OPEN错误，状态码：" WS-FILE-STATUS
    STOP RUN.
DISPLAY "B".                  
DISPLAY "C".                  
MOVE '.....' TO B-CODE (1).
     CONTINUE.            
F001-INITIALISIERUNG-EXIT.
     EXIT.                
F002-ABGLEICH-SECTION.                           
      ....                               
      CONTINUE.                                   
 F002-ABGLEICH-SECTION-EXIT.                      
      EXIT.                                       
                                                  
 F003-DATEI-SCHLIESSEN-SECTION.                   
      CLOSE INPUT-DATEI.
      IF WS-FILE-STATUS NOT = '00'
          DISPLAY "CLOSE错误，状态码：" WS-FILE-STATUS.                          
      CONTINUE.                                   
 F003-DATEI-SCHLIESSEN-EXIT.                      
      EXIT.                                       

三、JCL检查要点 #

确保JCL中EINGABE对应的DD语句参数与程序声明完全一致：

• DCB参数：必须指定固定块格式，示例如下：

  //EINGABE  DD  DSN=YOUR.INPUT.FILE,DISP=SHR,
  //            DCB=(RECFM=FB,LRECL=40,BLKSIZE=4000)
  

  • RECFM=FB：固定块记录格式
  • LRECL=40：记录长度，必须与程序中EINGELESENE-ZEILE PIC X(40)一致
  • BLKSIZE：必须是LRECL的整数倍（如4000=40*100），也可指定为0让系统自动分配
• DISP参数：读取已存在文件时用DISP=SHR，确保文件存在且有读取权限
• DSN拼写：检查数据集名称是否正确，避免拼写错误

四、后续排查步骤 #

1. 编译修改后的代码，确保无语法错误
2. 修正JCL参数后重新提交作业
3. 若仍报错，查看WS-FILE-STATUS返回的具体两位状态码，进一步定位问题（如92=文件未找到，93=权限不足，94=属性不匹配）

内容的提问来源于stack exchange，提问作者inf1nite