我学的是IBM 中型机AS400 的语言 RPG. RPG stands for “Report Program Generator”. 不过今天的RPG, 它的能量已经远远超出REPORT 功能, 它在医院, 银行, 保险, 制造, 商务, 销售甚至赌场等等行业, 都有广泛深入的应用.  我做过的最大的一个程序有一万一千行的codes.  今天的RPG最多能容下三万多行codes.

底下只是一个小小的PRINT LABEL 的例子.  这个小程序能印9999 张印着四行爱语的小LABEL:

 * File Specification
FQSYSPRT     O   F                    132              OFLIND(*IN25)             PRINTER
F                                                                         FORMLEN(5)  FORMOFL(4)                                                     

 * Definition Specification
D WORD1                 S                                   10
D WORD2                 S                                   13
D WORD3                 S                                   10
D WORD_LAST       S                                   20
D
 * Calculation Specification
C                                                   DO               9999
C                                                   EVAL           WORD1 = ‘I love God’
C                                                   EVAL           WORD2 = ‘I love people’
C                                                   EVAL           WORD3 = ‘I love you’
C                                                   EXCEPT      Heart_Line1
C                                                   EXCEPT      Heart_Line2
C                                                   EXCEPT      Heart_Line3
C                                                   EVAL           WORD_LAST = ‘LOVE – Endless Story’
C                                                   EXCEPT      Last_Line
C                                                   ENDDO
C                                                   EVAL           *INLR = *ON
C
  * Output Specification
  *
OQSYSPRT           E                   Heart_Line1                  1
O                                                   WORD1                                      10
O                             E                   Heart_Line2                  1
O                                                   WORD2                                      13
O                             E                   Heart_Line3                  1       
O                                                   WORD3                                      10
O                             E                   Last_Line                         2
O                                                   WORD_LAST                             20

                                                    I love God
                                                    I love people
                                                    I love you
                                                    Love – Endless Story

 朋友stillthere 和我讲过: “迟早你会发现程序也象一首诗.” 感谢朋友, 我如今算是资深程序员了, 可这是我第一次发觉, 程序, 真的也象首诗, 很美很美的诗.
神将爱编进了我们人心, 所以我们爱, 能爱, 渴望爱, 那爱, 不是只有9999那么多, 那爱, 是无尽…....  

注:  本人已经开始了 ASP.NET 的程序设计学习, 开始了从IBM中型机语言向PC 语言的双语转换.  : )

快乐感恩节!

再见难, 难于上青天 (3)

再见难, 难于上青天 (长篇小说 2)

感恩, 感恩, 感恩个啥?

虔诚简单的人啊, 愿你常伴我身边!

暗恋酷老板的纯情女孩心提 (完)