RE: ILE and CL, need be pointed to the right directions

["Mangavalli, Ramanujam" <RamM@xxxxxxxxxxx>]

>It certainly is possible to use CLLE procedures from RPG IV but not in an 
>expression because CL has no support for return values.  

Simon, 
Assuming that I understand your statement correctly, 
I think CL can handle return values. 

CALLPRC Prc(Procedure_name) Parm(&parm1 &parm2....) RTNVAL(&rtnvalue)

don't know if this was available prior to V4R5. 

-----Original Message-----
From: Simon Coulter [mailto:shc@flybynight.com.au]
Sent: Thursday, May 03, 2001 6:56 AM
To: RPG400-L@midrange.com
Subject: Re: ILE and CL, need be pointed to the right directions


m
Hello Slava,

You wrote:
>Seems i can not find good resource about CL ILE .
>I was trying to prototype procedure in CL and the only way i could do it is
>by using ExtPgm('program')

Use EXTPROC instead.

>Is it possible to us CLLE in expression like RPG procedures?


You must create the CLLE as a *MODULE object and either turn it into a
*SRVPGM 
or bind it by copy to the RPG program.  Here is a bind-by-copy example:

<========== CLLE source TESTRPGCLC ==================>
             PGM        PARM(&INPUT &OUTPUT)                   
                                                               
             DCL        VAR(&INPUT) TYPE(*CHAR) LEN(10)        
             DCL        VAR(&OUTPUT) TYPE(*CHAR) LEN(10)       
                                                               
             CHGVAR     VAR(&OUTPUT) VALUE('Got it!')          
                                                               
             RETURN                                            
             ENDPGM                                            

<========== RPGLE source TESTRPGCLR ==================>
     D doStuff         PR            10    EXTPROC('TESTRPGCLC')         
     D   input                       10    CONST                         
     D   output                      10                                  
                                                                         
     D data            S             10                                  
                                                                         
     C                   CALLP     doStuff('Some text' : data)           
     C     data          DSPLY                                           
     C                   SETON                                        LR 
     C                   RETURN                                          


CRTCLMOD   MODULE(SHC/TESTRPGCLC) SRCFILE(SHC/TEMP) SRCMBR (TESTRPGCLC)   
CRTRPGMOD   MODULE(SHC/TESTRPGCLR) SRCFILE(SHC/TEMP) SRCMBR(TESTRPGCLR)
CRTPGM PGM(SHC/TESTRPGCL) MODULE(TESTRPGCLR TESTRPGCLC)                   

then CALL TESTRPGCL

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\   «»
«» Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /   «»
«»                                                           X    «»
«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---