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

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

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?

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

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