IBM i——COBOL Programming【推荐就业】

如果你正在翻这门课，多半不是因为"想学 COBOL"，而是被某条招聘信息、某个内推机会，或者手头一个甩不掉的老系统逼到了这里。IBM i（以前叫 AS/400、iSeries）上的 COBOL 岗位有个特点：外面看着冷，里面缺口一直有。银行核心、保险理赔、制造业 ERP、物流结算，很多跑了几十年的业务逻辑还在 RPG 和 COBOL 里转。新人接不上，老人退不掉，这就是这类岗位常年招人的原因。

所以这篇导读不吹前景，只说清楚一件事：这门课能补上你哪块能力缺口，以及学完你该能答出什么问题。对照着看，缺什么补什么。

先确认你缺的是哪一块

学 IBM i 上的 COBOL，和学一门现代语言是两回事。这里没有包管理器、没有框架文档、没有 Stack Overflow 上一搜一大把的答案。你需要的是三样东西叠在一起：COBOL 语言本身、IBM i 这套操作系统的工作方式、以及企业级批处理/联机程序的写法和调试习惯。三者缺一，代码能编译但跑不通，或者跑通了但业务上不对。

• 只会其他语言、没碰过 COBOL：你缺的是固定格式（列位敏感）的写法、PICTURE 子句、WORKING-STORAGE 的数据定义思路，以及"程序结构先写清楚再动手"的习惯。
• 写过 COBOL 但没上过 IBM i：你缺的是源成员怎么放、怎么编译、怎么用 DDS 定义物理文件和逻辑文件、怎么调 job log 看报错。
• 在 IBM i 上做过但只改过小地方：你缺的是表处理、字符串处理、文件读写里那些真正决定程序质量的细节，以及嵌 SQL 的写法。

课程实际覆盖的能力点

这门课的主线是从语法结构走到数据库应用，中间几块是重点，也恰好是工作中最容易卡住的地方。

数据定义与处理。COBOL 里数据描述和过程代码是分开的，PICTURE、USAGE、LEVEL 编号怎么定，直接决定后面运算和输出对不对。这块看着基础，实际是很多人写出来的程序"数值对不上"的根源。

控制结构与表格处理。PERFORM 的各种形态、嵌套逻辑，以及 OCCURS 定义表和下标/索引的使用。企业程序里大量业务规则靠表格驱动，不会用表，代码就会写成几百行 if。

字符串操作。STRING、UNSTRING、INSPECT、参考修改（reference modification）。报文拼接、字段截取、格式转换，日常改需求八成绕不开这几个。

文件处理。顺序文件、索引文件的读写、文件状态码判断、批处理程序的典型骨架。这是 IBM i 上最常见的程序形态，必须写熟。

数据库应用。在 COBOL 里嵌入 SQL、游标的使用、和传统 DDS 文件访问的区别。现在新写的程序越来越多走 SQL 路线，这块不会就等于少一半机会。

怎么练才不算白学

COBOL 这门语言的特点是"看懂"和"写对"之间有条沟：列位、句号位置、数据类型的隐式转换，任何一个错都能让程序行为完全跑偏。所以练习的重点不是刷题量，而是每一段都亲手编译、亲手跑、亲手看输出。

• 每个语法点写一个最小可运行程序，比如只用 PICTURE 定义几个字段做加减和格式化输出，先确认数值行为符合预期。
• 表处理和字符串操作各找一个业务场景来写，比如按商品码查价格表、把多个字段拼成一条对账报文，别用 aaa/bbb 这种占位数据。
• 文件处理一定自己定义文件结构、写进去、再读出来比对，走一遍完整的写—读—校验闭环。
• 嵌 SQL 的部分，先在交互式 SQL 里把语句调通，再搬到程序里，能省掉大量排查时间。

学完你应该能回答这些问题

拿这几条自查，答不上来就回去补对应章节：

• 同样的数值，为什么换个 PICTURE 定义，运算结果就不一样？
• PERFORM 和 PERFORM THRU 的区别是什么，什么时候该用哪个？
• OCCURS 的表，用下标和用索引在写法上有什么不同？
• 文件读操作返回的状态码，哪些属于正常结束、哪些必须报错处理？
• 同一份数据，用 DDS 逻辑文件和用嵌 SQL 访问，程序结构会差在哪里？
• 程序跑出问题，你第一步去看什么？

这些问题看着朴素，但面试和上手第一天就会被问到。能答清楚，说明你不只是"学过 COBOL"，而是能在 IBM i 上干活。