Filter
Top Products
address. Set the top bit to specify that the alternative
program is to run AMODE (31).
PCUE_REAL_ENTRY
From z/OS 1.7 onwards, this field provides the real entry
point for Language Environment conforming programs.
Previously only PCUE_ENTRY_POINT was available to
you, but for Language Environment conforming programs
this did not contain the entry point that you needed to know
about.
Note: With z/OS 1.7, this field provides a solution to the
problem raised by APAR PQ43992.
PCUE_CHANNEL_NAME
Address of a 16-byte field containing the name of the
channel with which the application program is to be invoked
(that is, the program’s current channel). If there is no
channel, this field is set to blanks.
Return codes
UERCNORM
Continue processing.
UERCPURG
Task purged during XPI call.
UERCMEA
Entry address has been modified.
XPI calls
All can be used.
The sample XPCFTCH global user exit program, DFH$PCEX
Note that there is a CICS-supplied sample exit program, DFH$PCEX, that is
designed to be driven by the XPCFTCH exit. For more information about
DFH$PCEX, see “Sample global user exit programs” on page 15.
Exit XPCHAIR
XPCHAIR is invoked before a HANDLE ABEND LABEL routine is given control.
Note that this occurs only when a program abend causes a branch to an internal
abend routine. (When the HANDLE ABEND request specifies PROGRAM, exit
XPCFTCH is invoked, as described above.) You can use this exit to supply an
alternative handle-abend address. If the exit sets a return code of zero, or an
alternative address of zero, CICS passes control to the application program’s
specified internal routine.
If a modified entry address is supplied:
v The code that is invoked receives control in the execution key that the internal
abend routine would have received control in—that is, the key in force when the
EXEC CICS HANDLE ABEND LABEL command was issued.
v The resume address is placed in either register 14 or register 15, depending on
the language of the application. For COBOL, R14 holds the return address; for
Assembler, R15 is used. If you run in a mixed environment, your exit program
may need to set up its own base register. For example, you could set up
addressability using:
188 Customization Guide