扫描在下一个区域 A、项目、级别编号处恢复

Question

我在工作存储部分定义的变量出现编译错误。请帮助我

        WORKING-STORAGE SECTION.                                        
        77  WS-FS1              PIC 9(02).                              
        77  WS-FS2              PIC 9(02).                              
        01  WS-EOF-SW           PIC X(01) VALUE 'N'.                    
            88-EOF-SW           VALUE 'Y'.                              
 S   "88-EOF-SW" WAS INVALID.  SCANNING WAS RESUMED AT THE NEXT AREA "A"   //Error msg
        ITEM, LEVEL-NUMBER, OR THE START OF THE                            //Error msg
            88-NOT-EOF-SW       VALUE 'N'.                              
 S   "88-NOT-EOF-SW" WAS INVALID.  SCANNING WAS RESUMED AT THE NEXT AREA   //Error msg
        "A" ITEM, LEVEL-NUMBER, OR THE START OF                            //Error msg

        PROCEDURE DIVISION.                                             
             OPEN INPUT INPUT-FILE.                                     
             OPEN OUTPUT OUTPUT-FILE.                                   
             PERFORM UNTIL EOF-SW                                       
 S   "EOF-SW" WAS NOT DEFINED AS A DATA-NAME.  THE STATEMENT WAS DISCARD  //Error msg
       ED.                                                              
                READ INPUT-FILE                                         
                AT END MOVE 'Y' TO WS-EOF-SW                            
                                                                        
                MOVE IN-ALL(3:3)  TO OUT-SYM                            
                MOVE IN-ALL(6:7)  TO OUT-POL                            
                MOVE IN-ALL(13:2) TO OUT-MOD                            
                MOVE IN-ALL(15:2) TO OUT-MCO                            
                MOVE IN-ALL(17:2) TO OUT-LOC                            
                END-READ

Answer 1

      88-EOF-SW           VALUE 'Y'.

没有等级编号。变量声明需要级别编号。

扫描在下一个区域 A、项目、级别编号处恢复

scanning was resumed at next area A, item, level number

cobol

mainframe