Re: CALLPRC

[Carel <coteijgeler@xxxxxxxxx>]

Perhaps define &RFSLC with length 18; the first 2 bytes for the actual 
length passed.


Kind regards,

Carel Teijgeler


Op 27-11-2018 om 17:35 schreef Greg Wilburn:
> I am trying to call a well-established RPG procedure (function) from a CLLE program.  I call this all the time from RPGLE.
>
> When executing the CLLE pgm, I get "Length of varying length variable is out of range"
>
> The ILE RPG procedure is defined as follows:
>       P Ast_GetRf       B                   Export                               Procedure to Get
>       D Ast_GetRf       pi           800a                                        Reference File Data
>       D  incat                         4a   Const                                Input Category
>       D  inslc                        16a   Varying Const                        Input Selection
>
> I've tried all different iterations within the CL pgm.  I don't do this very often... so I know I'm missing something.
> The CLLE looks like this:
>
>               DCL        VAR(&RFCAT) TYPE(*CHAR) LEN(4)
>               DCL        VAR(&RFSLC) TYPE(*CHAR) LEN(16)
>               DCL        VAR(&RFDTA) TYPE(*CHAR) LEN(800)
>
>               CHGVAR     VAR(&RFCAT) VALUE('0021')
>               CHGVAR     VAR(&RFSLC) VALUE(&WHS#)
>               CALLPRC    PRC('Ast_GetRf') PARM((&RFCAT) (&RFSLC)) RTNVAL(&RFDTA)
>
> I'm just about to give up and write a RPGLE program to call from the CLP.  Any insight would be appreciated.
>
> Greg