Listing 1

Defining a Stored Procedure in DB2 (the DLL):

CREATE PROCEDURE CMCTRAIN.CNASTADR (MSTRID CHAR(9) IN, RCODE CHAR(4) OUT)
    LANGUAGE COBOL
    DYNAMIC RESULT SET 1
    PARAMETER STYLE GENERAL
    EXTERNAL NAME CNASTADR
    WLM ENVIRONMENT DSNMCTT
    SECURITY DEFINER
    COLLID CMC_TRAIN
    PROGRAM TYPE MAIN
    COMMIT ON RETURN YES

COBOL program code's linkage section:
(What precedes and follows is normal COBOL code)

LINKAGE SECTION.                   
 01  INPUT-MSTR-ID                  PIC 9(09).
 01  OUTPUT-RETURN-MESSAGE          PIC 9(04).
*                      
 PROCEDURE DIVISION USING INPUT-MSTR-ID OUTPUT-RETURN-MESSAGE.


Listing 2

Defining a Stored Procedure in DB2 (the DLL):

  CREATE PROCEDURE FMTMDEVL.FMSP060 (
         IN  USER_ID        CHAR   (08)    ,
         IN  ENVIRONMENT    CHAR   (04)    ,
         IN  BILL_CYCL_DATE CHAR   (10)    ,
         IN  TRANS_CODE     CHAR   (03)    ,
         IN  OPERATOR_ID    CHAR   (04)    ,
         OUT RET_BATCH_DATE CHAR   (06)    ,
         OUT RET_BATCH_NO   CHAR   (03)    ,
         OUT RETURN_CODE    CHAR   (02)    ,
         OUT ERROR_DESC     VARCHAR(250)
         )
         LANGUAGE COBOL
         DETERMINISTIC
         EXTERNAL NAME FMSP060
         DYNAMIC RESULT SETS 0
         WLM ENVIRONMENT DSNFMT
         COLLID FMT_DEVL_DTEAMS
         PARAMETER STYLE GENERAL
         PROGRAM TYPE MAIN
         STAY RESIDENT NO
         SECURITY USER
         RUN OPTIONS 'MSGFILE(SYSOUT,FBA,121,0,ENQ)'
         COMMIT ON RETURN NO;

Lines from the stored procedure dealing with EXCI:

the first line; declares ext option to use EXCI:

	00001  CBL XOPTS(EXCI)

(What follows is normal COBOL code)…

Lines 269-283; the actual EXCI call:

	00269  200-LINK-CICS-PROGRAM.                                           
	00273      MOVE '200-LINK-CICS-PROGRAM' TO WS-PARAGRAPH-NAME
	00274               
	00275      EXEC CICS LINK
	00276          PROGRAM    (WS-TARGET-PROGRAM)
	00277          TRANSID    (WS-TARGET-TRANSID)
	00278          APPLID     (WS-TARGET-SYSTEM)
	00279          COMMAREA   (COMMAREA)
	00280          LENGTH     (LENGTH OF COMMAREA)
	00281          DATALENGTH (LENGTH OF COMMAREA)
	00282          RETCODE    (EXCI-EXEC-RETURN-CODE)
	00283      END-EXEC