RPG编程同C语言编程的比较.doc

《RPG编程同C语言编程的比较.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、20用法ilerpg例子变量声明1、整数（i(整数)、b（二进制）、s(区位十进制)、p（压缩十进制））i(整数)只可为3、5、10、20个字节长。dpos1s5i0inz(*zero)dpos2s10i0inz(*zero)dpos3s3i0inz(*zero)dpos4s20i0inz(*zero)注意s(区位十进制)dpos5s16s0inz(*zero)2、浮点数只能定义为4字节和8字节df1s4finz(*zero)df2s8finz(*zero)cevalf2=121212.12121212cf2dsplyce

2、valf1=121212.12121212cf1dsply注意在小数点位数必须为blank。8字节相当于doubledsply+1.212121212121200e+0054字节相当于floatdsply+1.2121212e+053、字符串das30ainz(*blank)a单字节或多字节n指示符，单字节4、数组这里只说明运行时数组darrays2s0dim(12)引用array(下标),下标从1开始。dcharrs5adim(12)5、基指针基指针必须为4字节，且必须与4字节边界对齐。6、结构DParmDSDS1024

3、DSFld150DSFld2200D……C*ENTRYPListCParmParmDSC*这是我们经常使用的一种结构定义方式和使用方式，这种用于传递入口参数的数据结构，一定不能使用INZ关键字。20C*但是，如果该结构不是作为程序入口参数或是作为下级调用的接口参数，一般要在工程中约定使用INZ关键字。INZ关键字会让系统在程序被激活时，自动按结C*构各子字段的类型自动初始化，否则上述结构中SFld1字段的值将是一个非法的空格值而不是数字零。DmystrudsDname20aDage3s0Dmemo44aDaddr120aD

4、tel12132aDtel23342a或Dmystruds68Dname20aDage3s0Dmemo44aDaddr20aoverlay(memo:1)Dtel112aoverlay(memo:21)Dtel212aoverlay(memo:33)或DmystrudsDname20aDage3s0Dmemo44aDaddr20aoverlay(memo)Dtel112aoverlay(memo:*next)Dtel212aoverlay(memo:*next)Dother12a多重数据结构及使用Dmystrudsoccu

5、rs(10)inzDname20aDage3s0Dmemo44aDaddr20aoverlay(memo)Dtel112aoverlay(memo:*next)Dtel212aoverlay(memo:*next)Dother12aDcnts2s0inz(*zero)C*给第一个mystru赋值C1occurmystruCevalname='高殿华'Cevalage=30Cevaladdr='河北省吴桥县'Cevaltel1='13731169562'Cevaltel2='03177348792'Cevalother='1

6、2121212'20C*给第二个mystru赋值C2occurmystruC*等同于Ceval%occur(mystru)=2Cevalname='高殿华'Cevalage=30Cevaladdr='河北省吴桥县1111'Cevaltel1='13731169562'Cevaltel2='03177348792'Cevalother='12121212'C*依次访问每个数组元素Cforcnt=1to2CcntoccurmystruCaddrdsplyCendfor外部描述数据结构DDSNameEDSEXTNAME（File

7、Name）INZExtname(filename:{fmtname})关键字用来引用filename中的记录格式，如未制定记录格式名，则默认第一个记录格式名。文件状态数据结构FFileNameCFEWORKSTNINFDS(FileDS)DFileDSDSDFileSt*STATUS数据域数据类型包括*CHAR，*DEC和*LGL三种。如果指定因子2，则它必须包含正在引用的OS/400数据区。若未指定因子2，则将结果字段用作数据区名称。结果字段必须包含字段、数据结构、数据结构子字段或数据区数据结构。这与为检索因子2中指定数

8、据区中的数据并将数据写至此数据区，而与IN和OUT操作一起使用的名称同名。在结果字段中指定数据区数据结构时，VisualAgeRPG应用程序在程序开始时检索数据区中的数据，并在程序结束时将数据写至数据区。1》本地数据域*LDA2》程序初始化参数数据域*PDA3》外部描述数据域例子1、Dst_bufds6