我试图从CLLE调用RPGLE程序。由于RPGLE过程存在,我无法将其更改为extproc(* CL)类型。我目前在V7R1。我使用了以下代码。如果我通过* BYVAL传递参数没有通过。如果我通过* BYREF它正在工作。我在RPGLE服务中将参数定义为CONST。如果我需要进行任何其他更改以通过值,请告诉我。
PGM
DCLPRCOPT USRPRF(*OWNER) DFTACTGRP(*NO) ACTGRP(*NEW) +
BNDDIR(SAMSRV)
DCL VAR(&CLNBR) TYPE(*CHAR) LEN(9)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&IS_VLD) TYPE(*LGL)
CHGVAR VAR(&CLNBR) VALUE('01112201T')
CHGVAR VAR(&USER) VALUE('UUUUU ')
CALLPRC PRC('IsValidClient') PARM((&CLNBR *BYREF) +
(&USER *BYREF)) RTNVAL(&IS_VLD)
ENDPGM