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

我在working storage部分中定义的变量出现编译错误。请帮帮我

        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                                                                                                                        

---

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

看起来您想要

88 EOF-SW

-在这种情况下，我强烈建议您也使用

将EOF-SW设置为TRUE

@SimonSobisch谢谢您的帮助，我现在已经更正了。谢谢@meat的帮助，我已经在代码中进行了更正，现在工作正常。

      88-EOF-SW           VALUE 'Y'.