Procedure for passing parameter from CL to RPG and CL

领测软件测试网
Sample for CL to CL program. CLA call CLB, CLB call RPGPGM

CLA  coding

PGM  parm(&type &wdate)

DCL  Type  *char 10
DCL  WDate  *dec 6 0

Call   CLB  parm(&type &wdate)

Endpgm

CLB coding

PGM     parm(&intype &indate)

DCL intype *char 10
DCL indate *dec 6 0

Call    RPGPGM   parm(&intype &indate)

Endpgm

RPGPGM coding

Factor1        Op code     Factor2     Result

*entry         Plist
               parm                    I#type          10
               parm                    I#date           6 0

*********** that all *********************

CLA program receive two parameter and the pass it to the CLB. CLB then pass the parameter to RPGPGM. Be careful to the attribute for all parameters. they must be in the same type and length. Note : The name for the field is not concerned as it just check on the sequence and then matching the type and length. In the RPGPGM.  The statement must be put in the begining of the 'C' specification.

文章来源于领测软件测试网 https://www.ltesting.net/