I Love You --- 我的程序

我学的是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

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


欢迎阅读:
百尝美国梦(七) 上帝, 别让我学电脑
ZT 2007 IT 热门技术图示
我来自洪荒岁月的朋友:穿山而过
I Love You --- 我的程序

所有跟帖： 

• Love You 2, but not your program :P -jstuw- ♂ (0 bytes) () 06/02/2007 postreply 04:27:36

• 我程序作的很好呀 :) 您看出我程序什么毛病了吗? 是就请指教. -虔谦- ♀ (0 bytes) () 06/02/2007 postreply 07:23:33

• 你很有拜神的天赋，可惜没有写程序的能力，让上帝代你写大概会好些。 -Σ- ♀ (0 bytes) () 06/02/2007 postreply 07:38:22

• 爱老虎油 -德州老外- ♂ (68 bytes) () 06/02/2007 postreply 08:36:22

• 机房里热着那, 得大功率的空调才能降下温来 -westmont- ♂ (0 bytes) () 06/02/2007 postreply 18:59:52

• i love u, but ... ^O~ -我稀饭捣乱- ♀ (429 bytes) () 06/02/2007 postreply 10:36:18

• 把写程序比作写诗的观点是错误的。 -墨斗鱼- ♀ (344 bytes) () 06/02/2007 postreply 19:43:00

• 谢谢,讲的主要是意境和感受, 不是方法. 不过必须承认, -虔谦- ♀ (114 bytes) () 06/02/2007 postreply 21:52:27

• 聪明的脑袋、灵巧的双手、轻盈的步履，都需要 -德州老外- ♂ (58 bytes) () 06/04/2007 postreply 15:31:33

• Not quite get it, but thank you :) -虔谦- ♀ (0 bytes) () 06/05/2007 postreply 12:56:37