AS400如何编写RPG程序 .pdf,AS400如何编写RPG程序 --第1页 AS400 如何编写 RPG 程序 As400 如何编写 RPG 程序 1. 写给刚接触AS/400 的朋友 如何建立库、文件和成员 鉴于很多朋友都还是刚接触AS/400,我就从系统登陆开始简单说说吧～ 打开 AS/400 仿真终端(可以是 PCOM、CA
5.使用CPYFRMIMPF upload数据到iSeries的时候如果是CSV,字段包含:使得导入后数据会错误,可以使用TXT文本 ===> CPYFRMIMPF FROMSTMF("/qdls/TEST.CSV") TOFILE(TESTLIB/TESTPF) MBROPT(*ADD) RCDDLM(*CRLF) STRDLM(*NONE) FLDDLM(',') ===> CPYFRMIMPF FROMSTMF('QDLS/TEST.txt') TOFILE(TEST...
ENDSRVJOB 12.RPG语言 === Z-ADD :数值型的附值语句(Z-ADD A B相当于 B=A) MOVEL :移动数据语句 MOVEL A B 是把A的值从左边开始送到B中。 MOVE: 功能于MOVEL类似,区别在于它是从右边开始传送。 MOVEL (P):MOVEL和MOVE的操作在把短的传到长的中时,并不会覆盖其余的部分,因此, 加一个扩展功能用的...
,这句一般写成“ADD E RST”也可以。 (g) DSPLY表示显示变量值,“RST DSPLY”表示显示变量RST的值; (h) SETON给指示器置为*ON的状态,即'1',“SETON LR”表示把LR指示器置*ON,该句的意思表示最后一条记录,即程序结束。 按F3保存,假设该文件名是MYRPG,所在的库是MYLIB,源物理文件是MYSRCPF。
RPG里的三种程序结构(顺序操作、条件转移操作、重复执行某一操作/循环) 条件转移操作 IF ELSEENDIF SELECT WHEN OTHER ENDSL 其他还有CASXX、GOTO、EXSR(执行子程序)转移操作 重复执行某一操作/循环 DOENDDO DOWENDDO 其他还有DOUXX/DOU重复执行操作 算术运算 ADD:RESULT = FACTOR1/RESULT + FACTOR2 SUB:RESULT ...
RPG里的三种程序结构(顺序操作、条件转移操作、重复执行某一操作/循环) 条件转移操作 IFELSEENDIF SELECTWHENOTHERENDSL 其他还有CASXX、GOTO、EXSR(执行子程序)转移操作 重复执行某一操作/循环 DOENDDO DOWENDDO 其他还有DOUXX/DOU重复执行操作 算术运算 ADD:RESULT=FACTOR1/RESULT+FACTOR2 ...
RUNSQLSTM SRCFILE(QXMLDEV400/QCLSRC) SRCMBR(ADRESSBK) NAMING(*SQL) TIBCO XML400ADDR QXMLDEV400 QXMLTOOLS Create the two DB2 tables needed by the program: RUNSQLSTM SRCFILE(QXMLDEV400/QCLSRC) SRCMBR(ADRESSBK) NAMING(*SQL) Create the two modules needed to run the program: CRTSQLRPG...
ORxx (Or) 逻辑判断—或 Factory 1 Operation Factory 2 Result HI LO EQ FLD01 IFGT FLD03 FLD01 OREQ FLD02 等价于 IF FLD01>FLD03 OR FLD01=FLD02 与IF、IFxx,AND、ANDxx 类似,RPGLE 旳写法OR,比RPG 旳写法ORxx 要灵活, 并且可以用来体现某些复杂旳逻辑关系。有鉴于此,因此一般IF 语句中,我会...
小经验:AS/400-RPG递归调用的实现 在开发银行业务系统过程中,我们可能遇上这样的问题:要求汇总某一网点某类业务数据(如总帐发生额)而该网点可能为营业网点,也可能为虚拟网点(总账由下级网点汇总而来),而其下级网点也可能存在上述两种类型,其网点层次不定。处理这类问题如采用常规方法如循环应该是相当复杂的,采用递归...
C Z-ADD*ZERO B2 C MOVE X1 X2 在这例子中X1 = 16进位'A0' ,相当于10进位160,利用数据结构DS001定义同一位置,但不同属性(一为文字X2,一为二进制数B2 ),将X1搬至X2右侧,即可得B2 = 160.这个技巧在做字符转换时很好用, RPG并不提供字符值直接加减(但C语言可以),所以须透过转换,希望未来RPGIV能提供...