IBM主机技术——COBOL程序设计【推荐就业】

这门课适合一类很具体的人：正在或即将接触 IBM 主机（z/OS）环境，需要读懂、改对、写得出 COBOL 程序，但此前只在分布式系统里用 Java、Python 或 Go 写过业务逻辑。它不适合把 COBOL 当成兴趣语言学两天就放下的人——主机上的 COBOL 是拿来跑批、算账、支撑核心交易的，学它的目的是能接手真实代码，而不是知道个语法轮廓。

先确认你缺的到底是哪一块

COBOL 的坑通常不在"看不懂语法"，而在几个容易含糊过去的地方。第一是数据描述：PICTURE 子句怎么定义数值精度，COMP-3 与 DISPLAY 在存储和性能上的差别，什么时候用 88 条件名代替布尔判断。第二是文件处理：顺序文件、索引文件和相对文件各自适合什么场景，批处理程序的读—处理—写主循环怎么组织。第三是程序结构：主程序与子程序如何通过 CALL 传递参数，工作存储节里的变量作用域和生命周期是怎么回事。这三块只要有一块是模的，读生产代码就会一直卡壳。你可以先拿一段现成的 COBOL 源码试试，看自己卡在哪一层，再决定怎么用这门课。

课程按什么顺序处理这些内容

整体路线是先把语言骨架立起来，再往主机特有的场景里压。基础层覆盖标识部、环境部、数据部、过程部的职责，以及 MOVE、COMPUTE、IF、EVALUATE 这些日常语句。往上一级进入循环与数组（OCCURS 与带下标的数据项），这是批处理逻辑的基本功。之后是文件处理与字符串操作，INSPECT、STRING、UNSTRING 这类语句在处理定长字段时用得非常频繁。最后落到主程序/子程序的设计与调用，这决定了你能不能把一个大程序拆成可维护的模块，而不是堆成两千行的一份过程部。

看完应当能回答的问题

• 给定一个字段定义，能判断它的实际存储长度和取值范围，并说明为什么这样定义会出错。
• 能写出一个完整的顺序文件批处理程序：打开、循环读取、按条件处理、写记录、正常与异常关闭。
• 能解释 88 条件名、REDEFINES、COMP-3 各自解决什么问题，误用会有什么后果。
• 能把重复逻辑抽成子程序，说清参数是按引用还是按内容传递，以及这对数据修改的影响。
• 遇到一段没有注释的老代码，能从数据部和过程部的结构反推出它在算什么。

练习建议与使用方式

光看不动手，COBOL 基本学不会，因为它的大量细节是小写错误和字段定义错误带来的。每个主题学完，至少手写一遍可编译的程序：先做最朴素的版本，再故意改坏数据定义看编译或运行报什么错，这种"制造错误"的练法比一次写对更有价值。文件处理部分尤其要自己造测试数据，跑通读、改、写全流程。字符串和数组部分则拿真实业务字段（比如定长的客户号、金额、日期）来练，比用教学示例更贴近实际。

如果目标是往主机方向转岗，这门课解决的是"程序写得对不对"，但主机开发还牵连 JCL、VSAM、DB2 或 CICS 的配合，学完后接着补这几块才不会断层。反过来，如果你只是要读懂一段遗留 COBOL 逻辑做迁移评估，可以重点看数据描述和文件处理两部分，其余按需跳读。