RPG文件建立_编写_调试和运行.ppt

《RPG文件建立_编写_调试和运行.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、五、RPG文件建立，编写，调试和运行8/6/2021iSoftStoneTechnologiesLtd.RPG文件建立，编写，调试和运行一.RPG语言。RPG的全称：reportprogramgeneratorRPG语言是一种定格式、面向过程、结构化开发语言，它的优点主要体现在可以很方便的对数据库文件进行操作，而且效率非常的高，它是AS/400上一种最主要的开发语言之一。2©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行建RPG程序文件的方法1.在命

2、行上输入STRSEU后按F4。3©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行2.在这个几个可输入项上输入完毕之后按回车键（SOURCETYPE上输入“RPG”代表程序文件）。4©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行二.RPG程序周期。开始处理标题和详细行取得输入记录处理总计算no处理总计算输出LR为ON处送字段处理详细计算yes返回开始程序结束5©2005

3、iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行三.RPG程序所用的式样。H字样：表头，注释和系统日期。F字样：引用外部文件，指在RPG程序中所用的数据库，画面和帐票都要在这里引用。E字样：定义数组。I字样：定义数据结构（ＤＳ结构）。C字样：编写RPG程序命令。注意:在RPG程序中，上边所列的式样要按先后顺序出现，不能颠倒。在PRGILE中定义数组和数据结构都是在Ｄ表中。6©2005iSoftStoneTechnologiesLtd.Allrightsrese

4、rved.RPG文件建立，编写，调试和运行四.引用外部文件例如：FDB01UFEKDISKAFDSP01CFEWORKSTNIF:只读UF:可修改CF:组合（输入/输出）文件A:可追加7©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行五.数组在RPG中定义如下：ER@ARRY1320在PRGILE中定义如下：DR@ARRYS20ADIM(3)CTDATA**R@ARRY001.普通贷记业务包002.普通借记业务包003.实时贷记业务包8©2005iS

5、oftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行六.数据结构（ＤＳ结构）RPG允许在存储区中定义一个区域来放置字段。这些字段叫做子字段。这个区域叫做数据结构。例如：在RPG中定义如下：IDSI18W@DATEI14W@YYI56W@MMI78W@DD在PRGILE中定义如下：DDSDW@DATE18DW@YY14DW@MM56DW@DD789©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试

6、和运行七.RPG里的三种程序结构。1.顺序结构：流水作业，没有程序语句转移。2.条件转移操作：A.IFELSEENDIF。B.SELECTWHENOTHERENDSL结构。C.其他还有CASXX、GOTO、EXSR（执行子程序）转移操作。3.重复执行某一操作/循环：A.DOENDDO。B．DOWENDDO。C.其他还有DOUXX/DOU重复执行操作。10©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行八.RPG的操作码。1.算术运算：ADD：加法运算

7、。SUB：减法运算。MULT：乘法运算。DIV：除法运算。MVR：求余数，必须和DIV连用。SQRT：求平方根的运算。XFOOT：计算数组元素的总合的运算。11©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文件建立，编写，调试和运行ADDCADD1A30CBADDCV52CBADDDV若A=1B=10.0C=32D=-20则A=002V=042.00V=-10.0012©2005iSoftStoneTechnologiesLtd.Allrightsreserved.RPG文

8、件建立，编写，调试和运行SUBCSUB1E30CCSUBBW51CCSUBDW若B=10.0C=32D=-20E=6则E=005W=0022.0W=0052.013©2005iSoftStoneTechnologiesLtd.Allrightsre