Re: Réf. : Re: Inquiry messages in RPG

Yes I have implemented Scott's suggestion and it works perfectly.
I am able to call the ILE procedure from either a CL or ILE program.
Thankyall.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Troy Bryant 
Analyst Programmer
Patrick Autocare.
Phone: +61 03 9926 9913
Fax: +61 03 9926 9977
Mobile: +61 0408 397 333
T.Bryant@xxxxxxxxxxxxxx




antoine.contal@xxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
20/07/2004 09:20 PM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        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$!


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