COBOL程序UPDATE-PRODUCT模块语法错误排查求助

针对第103行：PERFORM未用END-PERFORM终止 #

• 检查该行的PERFORM类型：如果是结构化PERFORM（比如PERFORM ... UNTIL、PERFORM VARYING、PERFORM WITH TEST BEFORE/AFTER这类带执行范围的语法），必须用END-PERFORM作为闭合标记。比如错误写法：

  PERFORM UPDATE-LOOP UNTIL PRODUCT-NOT-FOUND
      MOVE PRODUCT-DATA TO WORK-AREA
  // 缺少END-PERFORM
  

  正确写法需补充闭合：

  PERFORM UPDATE-LOOP UNTIL PRODUCT-NOT-FOUND
      MOVE PRODUCT-DATA TO WORK-AREA
  END-PERFORM
  

• 注意：如果是传统的PERFORM PARAGRAPH-NAME（仅调用指定段落），不需要END-PERFORM，报错说明你使用了结构化PERFORM却遗漏了闭合标记。

针对第117行：意外的END-IF #

• 检查第117行的END-IF对应关系：
  • 是否存在多余的END-IF：比如某个IF语句无嵌套逻辑，却多写了一个闭合标记；
  • 是否存在IF语句定义不完整：部分COBOL编译器要求IF后必须显式写THEN，若省略可能导致编译器无法识别IF范围，进而误判后续的END-IF；
  • 是否存在嵌套层级不匹配：比如内层IF已用END-IF闭合，但外层IF的逻辑书写错误，导致后续的END-IF找不到对应的IF。例如错误嵌套：

    IF PRODUCT-EXISTS
        IF QUANTITY > 0
            MOVE QUANTITY TO NEW-QUANTITY
        END-IF
    END-IF
    END-IF // 该END-IF无对应IF，触发报错
    

• 检查第117行前后的注释或换行：若注释中包含END-IF，或换行拆分了IF语句的结构，可能导致编译器误解析语法范围。

额外排查点 #

• 检查模块内的语法一致性：如果其他模块采用传统COBOL语法（无需END-PERFORM/END-IF），但UPDATE-PRODUCT混用了结构化语法，就会出现局部报错；
• 确认编译器语法兼容：部分编译器对结构化COBOL语法的支持需要特定配置，但你移除模块后程序可正常运行，说明编译器本身支持结构化语法，问题仍集中在模块内部的语法书写错误。

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