Re: CALLPRC

["Michael Ryan" <michaelrtr@xxxxxxxxx>]

Did you try...

EXTPROC(*CL:name)
Specifies an external procedure that is written in ILE CL, or an RPG
procedure to be called by ILE CL. Use *CL if your program uses return
values with data types that CL handles differently from RPG. For
example, use *CL when prototyping an RPG procedure that is to be
called by a CL procedure when the return value is 1A.

on your RPG entry parm?

On Fri, Aug 8, 2008 at 1:07 PM,  <GKern@xxxxxxxxxxxxxxxx> wrote:
> I'm trying to call a procedure in a *SRVPGM that receives a one byte alpha
> parameter. The procedure works when tested using RPGLE. But when I try to
> use it with CALLPRC, in debug I can see the parameter received is hex FF.
> The procedure doesn't return a value. I've coded the parameter in the CLLE
> first as one byte and then as two bytes and tried multiple ways of
> formatting it for the call but it's always received as one byte (hex FF).
> I've also tried specifying *BYREF on the call. I'm current with PTF's at
> V5R4.
>
> What am I missing?
>
> Regards, Jerry
>
> Gerald Kern - MIS Project Leader
> Lotus Notes/Domino Administrator
> IBM Certified RPG IV Developer
> The Toledo Clinic, Inc.
> 4235 Secor Road
> Toledo, OH 43623-4299
> Phone 419-479-5535
> gkern@xxxxxxxxxxxxxxxx
>
>
> This e-mail message, including any attachments, is for the sole use of the
> intended recipient(s) and may contain confidential and privileged
> information. Any unauthorized use, disclosure or distribution is
> prohibited. If you are not the intended recipient, please inform the
> sender by reply e-mail and destroy this and all copies of this message.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.