1995年 – RPG

　　?1

　　2

　　3

　　4

　　5

　　6

　　7

　　8I

　　'HELLO, WORLD'

　　C

　　HELOC

　　HELO

　　DSPLYC

　　SETON

　　LR

　　注意第一个字符显示的行的不同类型(其实它原本会有若干列，但我有意省略了一些边缘代码)。这定义并显示了一个常数，然后设置一个指示符结束程序。

　　在这些操作之后，我又开启了第二幕个人秀。月末的会计需要相当多的时间和精力。原来的系统是一台读取穿孔卡片的Honeywell 主机。写了一个COBOL程序，能在模拟穿孔卡片的文件中读取并输出另一个之后注入AS / 400被处理的文件。在此之后，各种会计数据必须得匹配。由于舍入误差，不支持的交易，以及任何其他许多数字几乎从不匹配的问题，所以这工作就成为了调查进程，找出哪里坏了，然后更新代码来解决它。我们也曾“紧急”工作过11个小时，读取输出数据生成账务调整，以平衡账目，如果我们无法找到问题的话。虽然我没有涉及很多COBOL代码，但是我不得不去充分地了解它，以便于阅读Honeywell 源代码来解决AS / 400上的问题。

　　1995年 – COBOL

　　?1

　　2

　　3

　　4

　　5

　　6

　　7

　　8IDENTIFICATION DIVISION.PROGRAM-ID.

　　HELLO.ENVIRONMENT DIVISION.DATA

　　DIVISION.WORKING-STORAGE SECTION.01

　　WELCOME-MESSAGE

　　PIC X(12).PROCEDURE DIVISION.PROGRAM-BEGIN.

　　MOVE "Hello World" TO WELCOME-MESSAGE.

　　DISPLAY WELCOME-MESSAGE.PROGRAM-DONE.

　　STOP RUN.

　　这只是一段很短的时间，之后顶级RPG大师来到我们公司给我们上了为期三天的课程，因为最酷的事情是发生在AS / 400世界中。不仅AS / 400机器转移到64-bit(众所周知加倍的位数更好，对吧?)，而且RPG语言正在越来越规整，版本IV将接受更多的程序并且几乎比以往任何时候都要更面向对象。那有什么酷的吗?在给我们培训的时候，我不由得大笑，因为所有老的RPG开发者对这种“新的编程风格”目瞪口呆抓耳挠腮，试图蒙混过关，但我却可以放心，因为最终可以回归到我更习惯使用的C和C ++程序，而不是RPG语言曾经那种紧密，狭隘，指示符和基于列的风格。