设万维读者为首页 万维读者网 -- 全球华人的精神家园 广告服务 联系我们 关于万维
 
首  页 新  闻 论  坛 博  客 视  频 分类广告 购  物
搜索>> 发表日志 控制面板 个人相册 给我留言
帮助 退出
     
  虔谦:天涯咫尺
  Who will be a witness for my Lord?
网络日志正文
I Love You --- 我的电脑程序 2008-11-27 08:02:03

 

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

感恩, 感恩, 感恩个啥?

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

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

   

 

 

浏览(2730) (0) 评论(3)
发表评论
文章评论
作者:虔谦 留言时间:2008-11-27 23:43:29
谢谢新天地.
那个 heart 不是命令, 而是那一行的电脑代号.
要让每行的中间那个词居中, 我所知那只是一个对准的问题. 比如, 如果那个LABEL 是40 个字符那么宽, I LOVE GOD 这一行大概要从第11个位置开始印起 (没有仔细算, 但是大致是这个道理).
回复 | 0
作者:新天地 留言时间:2008-11-27 15:11:35
QQ,上面没按我排的格式显示,我的意思是要打印成每行最中间那个字符在正中,也就是每行分别居中,请问用什么取代heart 命令?
回复 | 0
作者:新天地 留言时间:2008-11-27 15:07:46
QQ,如果要打印成每行最中间的字符在正中(如下),请问用什么取代heart 命令?

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

看到了你的留言,谢谢!
回复 | 0
 
关于本站 | 广告服务 | 联系我们 | 招聘信息 | 网站导航 | 隐私保护
Copyright (C) 1998-2017. CyberMedia Network /Creaders.NET. All Rights Reserved.