Réf. : Re: Inquiry messages in RPG

Although ExtProc(*CL:...) can be used for calling an ILE CL program from an ILE 
RPG program, it is also used to allow ILE CL programs to call an ILE RPG 
program. Scott's solution looks good for the problem at hand.

--
Antoine CONTAL



                                                                                
                                                       
                                                                                
                                                       
                                                Pour :   "RPG programming on 
the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>              
                                                cc :                            
                                                       
                                                Objet :  Re: Inquiry messages 
in RPG                                                   
             "Paul Tuohy"                                                       
                                                       
             <tuohyp@xxxxxxxxxxxxx>                                             
                                                       
             Envoyé par :                                                       
                                                       
             rpg400-l-bounces@xxxxxxxxxxxx                                      
                                                       
                                                                                
                                                       
                                                                                
                                                       
             20/07/2004 11:36                                                   
                                                       
             Veuillez répondre à RPG                                            
                                                       
             programming on the AS400 /                                         
                                                       
             iSeries                                                            
                                                       
                                                                                
                                                       
                                                                                
                                                       




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


--
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.



****************************************************************
Ce message a ete transmis par Internet. Son emetteur peut ne pas etre
l'emetteur annonce. Son contenu et toute piece jointe peuvent ne pas etre 
exacts.
This message originated from the Internet. Its originator may or may not be who 
they claim to be and information contained in the message and any attachments 
may or may not be accurate.
$!2$!






Les informations contenues dans ce message sont confidentielles et peuvent 
constituer des informations privilegiees. Si vous n etes pas le destinataire de 
ce message, il vous est interdit de le copier, de le faire suivre, de le 
divulguer ou d en utiliser tout ou partie. Si vous avez recu ce message par 
erreur, merci de le supprimer de votre systeme, ainsi que toutes ses copies, et 
d en avertir immediatement l expediteur par message de retour.
Il est impossible de garantir que les communications par messagerie 
electronique arrivent en temps utile, sont securisees ou denuees de toute 
erreur ou virus. En consequence, l expediteur n accepte aucune responsabilite 
du fait des erreurs ou omissions qui pourraient en resulter.
--- ----------------------------------------------------- ---
The information contained in this e-mail is confidential. It may also be 
legally privileged. If you are not the addressee you may not copy, forward, 
disclose or use any part of it. If you have received this message in error, 
please delete it and all copies from your system and notify the sender 
immediately by return e-mail.
E-mail communications cannot be guaranteed to be timely secure, error or 
virus-free. The sender does not accept liability for any errors or omissions 
which arise as a result.
$!1$!