Re: Inquiry messages in RPG

["Paul Tuohy" <tuohyp@xxxxxxxxxxxxx>]

I think Troy wanted it the other way, where the CLLE is calling the RPG
procedure.

Your second suggestion will fix the problem - declare the &AUTH variable as
TYPE(*CHAR) LEN(2).  Then, use %SST() to only check the first byte of it.

HTH

Paul Tuohy

----- Original Message -----
From: "Scott Klement" <rpg400-l@xxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Tuesday, July 20, 2004 12:35 AM
Subject: Re: Inquiry messages in RPG


>
> Hi Troy,
>
> [SNIP]
> > I am having trouble getting a correct RTNVAL.
> > Is this possible or am I dreaming?
> > I have tried declaring &AUTH as LGL and as CHAR, neither give the
desired
> > result.
>
> You need to code a prototype that looks like this:
>
>      D #pgmAuth        PR              n   ExtProc(*CL: '#PGMAUTH')
>      D  inUser                       10a   const
>      D  inPgm                        10a   const
>
> The EXTPROC(*CL) keyword will fix the return value errors.
>
> If you can't change the RPG procedure, a relatively simple workaround is
> to declare the &AUTH variable as TYPE(*CHAR) LEN(2).  Then, use %SST() to
> only check the first byte of it.
>
> ---
> Scott Klement  http://www.scottklement.com