I Love You --- 我的程序 虔谦2007-06-02 07:37:01

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

我程序作的很好呀 :) 您看出我程序什么毛病了吗? 是就请指教.

你很有拜神的天赋，可惜没有写程序的能力，让上帝代你写大概会好些。

爱老虎油

i love u, but ... ^O~

机房里热着那, 得大功率的空调才能降下温来

把写程序比作写诗的观点是错误的。

谢谢,讲的主要是意境和感受, 不是方法. 不过必须承认,

聪明的脑袋、灵巧的双手、轻盈的步履，都需要

Not quite get it, but thank you :)