怎么让RPG 返回一个值

JustinCaribe

我用CL call 一个RPG，我想让这RPG返回一个值。怎么办？

wjhgod

c     *entry        plist                           
c                   parm                    p@ckcs    1
c                   eval        p@ckcs = '1'
C                   Seton                                        Lr
C                   Return

roden

一般RPG里的参数都是双向的,既接受参数的输入,也把结果返回到调用程序

fairyboy

假设A  CALL  B 程序  带一个参数

那么 CALL  'B'     x        ,x是传入传出参数

在B程序中,
*ENTRY   plist
               parm         x (可以起其他名字,但是字段属性要一样)


那么在B程序中,对X给值,那么B程序会返回给A程序中的X.基本原来就这样，可以传多个参数..