RE: CALLPRC parameter usage

Thanks Simon. Works a treat!

I found the problem with the &RETURN parameter in midrange and got that to work 
as well by extracting only the first byte. Is this some issue with the way the 
compiler returns a value through the procedure name that can't be mapped 
directly to how CL works internally?

By the way, you answered Yes to my last quetion which was an either/or. I'll 
presume the answer was in regard to the way I wrote the CALLPRC parameter list 
and not to my stuidity. 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Simon Coulter
Sent: Friday, 3 March 2006 1:10 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: CALLPRC parameter usage



On 03/03/2006, at 12:38 PM, Mike Pantzopoulos - (H/O) wrote:

>
> Unfortunately, I'm the person responsible!
>
> The declared length is 20. It's varying so I presume it's really 22. 
> The passed in parameter is actually defined as 20.

Yes.

> I'm presuming it's something I've done with the way I've written the 
> CALLPRC command in the CL.
> Or have I just done something stupid?

Yes.

> Any clues would be gratefully accepted.

CL doesn't have any concept of *VARYING character strings. You'll have 
to build a proper string yourself. A *VARYING character string is 
prefixed with a 2-byte length thus you'll have to set the length into 
those bytes before you call the procedure. Declare the field as 22 
bytes and use %BIN to set the length in the first two bytes.

I question why this field is *VARYING. It's only 20 bytes. Just make it 
fixed length and trim if needed.

Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         AS/400 Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
    Fax:   +61 3 9419 0175                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------