COBOL中GO TO指令对控制流的影响及代码场景咨询

一、GO TO 2000-EXIT触发后的执行流程 #

当执行进入2000-MAIN-PROCESS的第一个ELSE分支并执行GO TO 2000-EXIT时：

1. 执行直接跳转到2000-EXIT段落，执行其中的EXIT语句（EXIT本身是无操作语句，仅作为段落标记）；
2. 由于当前处于PERFORM 2000-MAIN-PROCESS THRU 2000-EXIT的执行范围内，2000-EXIT是该PERFORM的终点，执行完该段落后会回到PERFORM语句位置，检查UNTIL的终止条件；
3. 此时WS-ERROR-STAT已被设为'EXIT'，满足终止条件，PERFORM循环结束；
4. 后续依次执行PERFORM 9900-END-PROGRAM THRU 9900-EXIT，最后执行GOBACK退出程序。

二、是否会落入2100-SEND-MAP？为什么？ #

不会落入2100-SEND-MAP，原因如下：

• 首先，GO TO 2000-EXIT直接跳过了2000-MAIN-PROCESS中ELSE分支之后的所有代码，包括后续的IF判断、PERFORM 2100-SEND-MAP语句，这些代码不会被执行；
• 其次，2000-EXIT是PERFORM ... THRU指定的执行范围终点，执行到这里就会退出当前PERFORM上下文，回到主流程的PERFORM语句之后，不会自动进入后续的2100-SEND-MAP段落——COBOL段落按顺序排列，但只有被明确调用（如PERFORM）或跳转指向时才会执行，不会因前一个段落结束就自动执行下一个。

三、COBOL控制流学习资源推荐 #

• IBM COBOL语言参考手册（大型机版本）：权威资料，详细讲解PERFORM、GO TO、段落结构等控制流核心语法；
• 《COBOL编程指南》（大型机场景版）：经典入门书籍，结合遗留系统实际场景讲解控制流逻辑，适合新手理解老代码；
• 企业内部培训文档：如果团队维护大型机COBOL系统，内部资料通常贴合工作场景，实用性强；
• COBOL模拟练习环境：用Micro Focus COBOL个人版等模拟器编写小型测试程序，比如测试PERFORM THRU和GO TO的跳转，通过实际运行直观理解控制流路径。

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