• Subject: Re: Calling Service Programs from ILE Cobol
  • From: "Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>
  • Date: Tue, 05 Dec 00 10:07:06 +1100

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.                              
     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.                                 
*                          ************************************** 
*                          * Register exception handler         * 
*                          ************************************** 
     Set pMsgId to address of MsgId                               
     Set pHandler to entry linkage procedure "CATCHIT"            
     Call "CEEHDLR" using pHandler                                

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

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

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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.