模板
教程
环境
性能
功能
管理
Procedure for passing parameter from CL to RPG and CL
发表于：2007-06-08来源：作者：点击数：
标签：
SampleforCLtoCLprogram.CLAcallCLB,CLBcallRPGPGM CLAcoding PGMparm(nbsp;nbsp;Type*char10 DCLWDate*dec60 CallCLBparm(nbsp;nbsp;coding PGMparm(nbsp;nbsp;intype*char10 DCLindate*dec60 CallRPGPGMparm(nbsp;nbsp;coding Factor1OpcodeFactor2Result
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.
