Re: Calling Service Programs from ILE Cobol

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]


Hello John,

This is all described in the ILE COBOL Reference Manual under the relevant 
sections.  Here is a quick cut-and-paste from some of our code.  Notice how 
the call to WFMCPRINT at the bottom of the code doesn't need any LINKAGE 
TYPE IS information because that was supplied in the SPECIAL NAMES 
paragraph.  This example also shows how to inlovke the ILE APIs.

 IDENTIFICATION DIVISION.                            
 PROGRAM-ID. WFMCDATE.                               
 ENVIRONMENT DIVISION.                               
 CONFIGURATION SECTION.                              
 SPECIAL-NAMES.                                      
     LINKAGE PROCEDURE FOR "WFMCPRINT"               
     LINKAGE SYS FOR "CEEHDLR".                      
 DATA DIVISION.                                      
 WORKING-STORAGE SECTION.                            
     COPY WFMCINC.                                   
 01   Pgm-Id            PIC  X(10) VALUE "WFMCDATE". 
 01   pHandler          procedure-pointer.           
 01   pMsgId            pointer.                     
 PROCEDURE DIVISION.                                 
 MAINLINE.                                                        
*                          ************************************** 
*                          * Register exception handler         * 
*                          ************************************** 
     Set pMsgId to address of MsgId                               
     Set pHandler to entry linkage procedure "CATCHIT"            
     Call "CEEHDLR" using pHandler                                
                          pMsgId                                  
                          omitted                                 

<======= Stuff Deleted Here ==========>

 *                          ************************************** 
 *                          * Thats all - close the report       * 
 *                          ************************************** 
      Set Print-Close to TRUE                                      
      Call "WFMCPRINT" using Common-Data                           
      GOBACK.                                                      

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      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END