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

用法ilerpg例子变量声明整数(i(整数)、b(二进制)、s(区位十进制)、p(压缩十进制))i(整数)只可为3、5、10、20个字节长。dposls5i0inz(*zero)dpos2slOi0inz(*zero)dpos3s3i0inz(*zcro)dpos4s20i0inz(*zero)注意s(区位十进制)dpos5s16s0inz(*zero)浮点数只能定义为4字节和8字节dfls4finz(*zero)df2s8finz(*zero)cevalf2=121212.12121212cf2dsplycevalfl=121212.12121212cfldsply注意在小数点位数必须为blanko8字节相当于double4字节相当于floatdsply+1.2l21212e+05字符串das30ainz(*blank)a单字节或多字节n指示符，单字节数组这里只说明运行时数组darrays2s0dim(12)引用array(下标),下标从1开始。dcharrs5adim(12)基指针基指针必须为4字节，且必须与4字节边界对齐。结构DParmDSDS1024DSFldl50DSFld2200DC*ENTRYPListCParmParmDSC*这是我们经常使用的一种结构定义方式和使用方式，这种用于传递人口参数的数据结构，一定不能使用1NZ关键字。Dints2s0inz(*zero)Cevalcharl='1'CmovelcharlintCintdsplyCeval*inlr=TCreturn此时字符串实际长度小于数字长度，movel时，此时int显示DSPLY10Dcharls1ainz(*blank)Dints2s0inz(*zero)Cevalcharl='1'CmovecharlintCintdsplyCeval*inlr='1'Creturn此时字符串实际长度小于数字长度，move时，此时int显示DSPLY1Dcharls2ainz(*blank)Dints2s0inz(*zero)Cevalcharl='12'CmovecharlintCintdsplyCeval*inlr='1'Creturn此时字符串实际长度等于数字长度，movel和move时，此时int都显示DSPLY12Dcharls3ainz(*blank)Dints2s0inz(*zero)Cevalcharl='123'CmovelcharlintCintdsplyCeval*inlr=1'Creturn此时字符串实际长度大于数字长度，movel时，此时int显示DSPLY12move时，此时int显示DSPLY23当int向char移动时也遵循这个结果.函数比拟一、字符函数das30ainz(*blank)dbs20ainz(*blank)des50ainz(*blank)1、字符串连接Cevala='gaodianhua,Cevalb=isagoodboy'Cevalc=a+bCCdsplyc*c的值dsply为gaodianhuaisagoodboyCevala=%trim(a)+%trimr(b)cadsplyc*c的值dsply为gaodianhuaisagoodboy2、扫描字符串Cevalpos=%scan(,oo':a:1)Cifpos=0c'notfound1dsplycelsecposdsplycendif3、%check（comparator:base｛:start｝）:在base串中查找第一个不在comparator中存在的字符的位置，如果base市的所看字符均在comparator中存在，那么返回0。%checkr（comparator:base｛:start｝）：在base串中查找最后一个不在comparator中存在的字符的位置，如果base中面所有的字符均在comprator中存在，那么返回0。4、%SUBST（字符串:开始位置｛:长度｝）返回自变量字符串的一局部。它也可用作带EVAL操作码的赋值的结果5、%STR（基指针｛:最大长度｝）（右边）%STR（基指针:最大长度）（左边）%alloc（number）Deallocptr1%realloc（ptr:number）Number/、须是不带小数的非浮点数。%STR既可以用来获取以NULL结束的字符串（当在表达式的右边使用时，此函数返回第一个参数指向的数据，直至（但不包括）指定长度中找到的第一个空字符（xW）o可在字符表达式有效的位置处使用此内置函数。在运行时，假设在指定的长度中找不到NULL终止符，那么不出错。在此情况下，结果值的长度与指定的长度相同。），又可以用来存储以NULL结束的字符串（当在表达式的左边使用时，%STR（ptr:length）将表达式右边的值赋给