RE: Indicator passing from ILE RPG to CL

["Smith, Nelson" <NSmith@xxxxxxxxxxx>]

What exactly does the *CL in ExtProc mean?  At first glance, I would think
it meant that MYPROC was written in CL, but clearly that is not the case.
If it changes the behavior of the parms, does it effect the return value an
RPG program would see, calling the same proc?

> -----Original Message-----
> From: Gary Guthrie [SMTP:garyguthrie@charter.net]
> Sent: Monday, September 16, 2002 7:56 PM
> To:   rpg400-l@midrange.com
> Subject:      Re: Indicator passing from ILE RPG to CL
>
> if you're at V5R1 you can use keywords on your prototype to
> permit 1-byte (in your case indicator) parameters twixt CL and RPG.
> Following is an example service program and program that calls its
> procedure via CallPrc.
>
> H NoMain
>
> D MyProc          Pr              N   ExtProc( *CL: 'MYPROC' )
> D  ParameterIn                   1
>
> P MyProc          B                   Export
>
> D MyProc          PI              N
> D  InputFld                      1
>
>  /Free
>
>        If InputFld = *Blank ;
>          Return *Off ;
>        Else ;
>          Return *On ;
>        EndIf ;
>
>  /End-Free
>
> P MyProc          E
>
>
>
> Pgm
>
>   Dcl    &MyFld  *Char ( 1 )
>   Dcl         &MyRtn  *Lgl
>
>   ChgVar     &MyFld      ( 'A' )
>   CallPrc    Prc( MyProc ) Parm( &MyFld ) RtnVal( &MyRtn
> )
>   ChgVar     &MyFld      ( ' ' )
>   CallPrc    Prc( MyProc ) Parm( &MyFld ) RtnVal( &MyRtn )
>
> EndPgm
>


************************************************************************************************************************************************************************************************************
This message originates from Lincare Holdings Inc. It contains information 
which maybe confidential or privileged and is intended only for the individual 
or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the 
contents of this message.
All personal messages express views solely of the sender, which are not to be 
attributed to Lincare Holdings Inc., and may not be copied or distributed 
without this disclaimer.
If you received this message in error, please notify us immediately at 
MailAdmin@lincare.com or (800) 284-2006.
************************************************************************************************************************************************************************************************************