RPGLE程序返回值问题

当调用一个具有入口参数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了两次。