IBM SC33-1683-02 - Manual (Page 840)

* *
* It is not safe to use the following storage: *
* Program storage (DFHEISTG) since this is freed as soon *
* as the exit program returns control to CICS. *
* *
* 2) When adding or removing a field in the command parameter list, *
* you must remember: *
* a) To set/clear the field's existence bit in the EID *
* b) To set/clear the appropriate address in the Addr_List *
* c) To set the hi-order bit in the LAST address in the *
* Addr_List. *
* *
* 3) If you are planning to use the CICS API in the exit, you *
* must: *
* a) Use the DFHEIENT macro to control module entry. *
* b) Use the DFHEIRET macro to return control to CICS. However,*
* the exit return code MUST be set in Register 15. *
* c) Issue an ADDRESS EIB command before issuing any EXEC CICS *
* commands. *
* *
* 4) If you are planning to use the API and XPI in the same *
* global user exit program, take care to ensure that Register *
* 13 points to the kernel stack entry (UEPSTACK) for XPI calls, *
* and is restored for API calls if necessary. *
* *
* *
***********************************************************************
EJECT ,
*---------------------------------------------------------------------*
* *
* Copybook and DSECTS required by the exit program *
* *
*---------------------------------------------------------------------*
DFHUEXIT TYPE=EP,ID=(XTSEREQ,XTSEREQC)
DFHUEXIT TYPE=XPIENV Exit programming interface (XPI)
COPY DFHTRPTY Trace XPI definitions
COPY DFHTSUED Command Level Plist definitions
*
*---------------------------------------------------------------------*
* The following DSECT maps the shared storage obtained by the *
* EXEC CICS GETMAIN API call. This storage is used to store the *
* modified SYSID and/or TS QNAME that is passed to CICS on return *
* from the exit program. *
*---------------------------------------------------------------------*
SHARED_STORAGE DSECT
SHARED_EYECATCHER DS CL16
SHARED_NAME DS CL8
SHARED_SYSID DS CL4
*
Figure 113. Example exit program for the XTSEREQ exit (Part 2 of 16)
example XTSEREQ global user exit program
808 CICS TS for OS/390: CICS Customization Guide