Re: Calling an ILE Procedure from CLLE

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 10/07/2019
01:58:37 PM:

I have an RPGLE procedure that I need to call from a CLLE program.
The issue is the length (and type) of the parameters in the RPG
procedure - they are all VARCHAR and range in size from 50 to 1024.

For now, I have it "working" by defining the CL variables as the
"maximum size".

If your RPG procedure expects VARCHAR then you cannot pass a CL
*CHAR variable value and expect it to always work correctly. Instead, you
should pass a variable defined similar to the following. This is the CL
equivalent of a VARCHAR field. It is a CL data structure where the first
2 characters are a binary length value. This matches the memory layout of
an RPG VARCHAR(2) variable. If you need VARCHAR(4) then increase the
2-byte CL prefix to 4 bytes.


DCL VAR(&RTNMESG) TYPE(*CHAR) LEN(1026)
DCL VAR(&RTN_MDLEN) TYPE(*UINT) LEN(2) STG(*DEFINED) DEFVAR(&RTNMESG
1)
DCL VAR(&RTN_MDATA) TYPE(*CHAR) LEN(1024) STG(*DEFINED)
DEFVAR(&RTNMESG 3)


Sincerely,

Dave Clark