|
我学的是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)
感恩, 感恩, 感恩个啥?
虔诚简单的人啊, 愿你常伴我身边!
暗恋酷老板的纯情女孩心提 (完)
|