Re: CALLPRC

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 11/27/2018 11:35:14
AM:

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.

I do this, too, and it works for me. What you have to do in CL/LE
is to build in the 2-byte binary length of the varying length string you
are passing to RPG/LE. For example:

DCL VAR(&VARSTR) TYPE(*CHAR) LEN(82)
DCL VAR(&VARLEN) TYPE(*UINT) LEN(2) STG(*DEFINED) DEFVAR(&VARSTR 1)
DCL VAR(&VARDATA) TYPE(*CHAR) LEN(80) STG(*DEFINED) DEFVAR(&VARSTR 3)


Sincerely,

Dave Clark