Example xtsereq global user exit program 808 – IBM SC33-1683-02 User 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