我學的是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)

感恩, 感恩, 感恩個啥?

虔誠簡單的人啊, 願你常伴我身邊!

暗戀酷老闆的純情女孩心提 (完)