* CLLE中的BYVAL和*BYREF

Question

我试图从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    

Answer 1

如果在RPGLE过程中将parms编码为CONST，那么您就不能通过值传递。

RPGLE端的参数需要VALUE关键字才能按值parm传递。CONST的意思是通过只读引用传递.如果没有在RPGLE中指定CONST或VALUE，则通过引用传递parm。

您确实应该添加EXTPROC(*CL)。RPGLE和CL不以完全相同的方式返回1字节值，也不以相同的方式传递值1字节变量。在v6r1之前，您可以编写一个临时的2字节变量来保存返回的值，然后将第一个字节复制到&IS_VLD。