当调用一个具有入口参数RPGLE程序的时候,在主调程序中CALL之后,我们给其传递的参数变量就有了值。
这些参数具有的值,是在被调程序传递回来的,也叫程序返回值;
如同DB2中存储过程里面的OUT参数(CREATE PROCEDURE PRO_CL(IN PARM1 CHAR(5),OUT PARM2 VARCHAR(100))...)
返回给过程调用程序的作用相同。
下面是一个例子,MAINCALL程序调用BECALL程序,将其返回值写入一个叫做CALLTST的物理文件里面:
MAINCALL :
FCALLTST UF A E DISK
DRSLT DS
DFLD1 10A
DFLD2 D
DFLD3 T
DFLD4 Z
C*程序控制
C EXSR @MAIN
C EXSR @EXIT
C*主控程序
C @MAIN BEGSR
C CLEAR RSLT
C*调用BECALL
C CALL 'BECALL'
C PARM RSLT
C*给物理文件字段赋值
C EVAL SEQCOL = FLD1
C EVAL DTCOL = FLD2
C EVAL TMCOL = FLD3
C EVAL TMSTMP = FLD4
C*向物理文件写数据
C WRITE RCALL
C ENDSR
C*程序退出
C @EXIT BEGSR
C EVAL *INLR = '1'
C RETURN
C ENDSR
BECALL :
DDSPARM DS
DSTR 10A
DDTE D
DTIM T
DTSTMP Z
DSEQCLB S 5A
DTMP S 5S 0
DSTR1 S 5A INZ('21012')
DSTR2 S 26A
C*程序控制
C EXSR @MAIN
C EXSR @EXIT
C*@MAIN
C @MAIN BEGSR
C CLEAR DSPARM
C*入口参数
C *ENTRY PLIST
C PARM DSPARM
C*取出数据域里面的值,并让其+1,然后写回数据域
C *DTAARA DEFINE SEQCLB
C *LOCK IN SEQCLB
C EVAL TMP = %INT(SEQCLB)
C EVAL SEQCLB = %CHAR(TMP+1)
C OUT SEQCLB
C*给参数赋值
C MOVE TMP SEQCLB
C STR1 CAT SEQCLB STR
C
C EVAL DTE = %DATE('2000-01-01')
C EVAL TIM = %TIME('10.10.10')
C*%TIME()函数,
C EVAL STR2 = '1999-09-29-12.34.56.000000'
C EVAL TSTMP = %TIMESTAMP(STR2)
C
C ENDSR
C*程序结束
C @EXIT BEGSR
C EVAL *INLR='1'
C RETURN
C ENDSR
在进行编译,失败,调试,再编译之后,程序结果如下:
Line ....+....1....+....2....+....3....+....4....+....5....+....6
序列 日期 时间 时间戳
000001 2101200015 0001-01-01 00.00.00 0001-01-01-00.00.00.000000
000002 2101200016 0001-01-01 00.00.00 1999-09-29-12.34.56.000000
000003 2101200018 0001-01-01 10.10.10 1999-09-29-12.34.56.000000
000004 2101200019 2000-01-01 10.10.10 1999-09-29-12.34.56.000000
000005 2101200020 2000-01-01 10.10.10 1999-09-29-12.34.56.000000
000006 2101200021 2000-01-01 10.10.10 1999-09-29-12.34.56.000000
****** ******** End of report ********
第一行数据,添加序列值成功;
这里报日期,时间,或者时间戳格式不对,所以只添加序列值。
第二行数据,添加序列和时间戳成功;
确定时间戳格式无误。为了保证BECALL修改编译后没问题,这里CALL了一次,所以序列里面少了2101200017这个数字。
第三行数据,添加添加序列,时间,和时间戳成功;
查了ILE RPG Reference,发现默认的时间*ISO格式的分隔符为点(.),而程序给的分隔符却是冒号(:)。
在默认情况下,时间,日期,时间戳的格式都为*ISO格式,这也是程序内部格式。
若程序中有不同的时间,日期格式的话,推荐使用默认格式*ISO。
第四行数据,调试完全通过,添加所有字段的数据;
第五、六行,call了两次。