Xpi examples – IBM SC33-1683-02 User Manual
Page 325
TITLE 'GUEXPI - GLOBAL USER EXIT PROGRAM WITH XPI'
*************************************************************************
* The first three instructions set up the global user exit
*
* environment, identify the user exit point, prepare for the use of
*
* the exit programming interface, and copy in the definitions that
*
* are to be used by the XPI function.
*
*************************************************************************
*
DFHUEXIT TYPE=EP,ID=XFCREQ
PROVIDE DFHUEPAR PARAMETER
*
LIST FOR XFCREQ IN THE FILE
*
CONTROL PROGRAM AND LIST
*
OF EXITID EQUATES
*
DFHUEXIT TYPE=XPIENV
SET UP ENVIRONMENT FOR
*
EXIT PROGRAMMING INTERFACE --
*
MUST BE ISSUED BEFORE ANY
*
XPI MACROS ARE ISSUED
*
COPY DFHSMMCY
DEFINE PARAMETER LIST FOR
*
USE BY DFHSMMCX MACRO
*
*************************************************************************
* The following DSECT maps a storage area you can use to make the
*
* exit program reentrant by storing the address of the storage you
*
* acquire in the first four bytes of the 260-byte area provided by
*
* the user exit handler (DFHUEH) and addressed by UEPXSTOR.
*
*************************************************************************
*
TRANSTOR DSECT
DSECT FOR STORAGE OBTAINED BY
*
GETMAIN
..
.
storage declarations
..
.
*
Figure 11. Global user exit program with XPI (Part 1 of 5)
XPI examples
Chapter 3. The user exit programming interface (XPI)
293