Filter
Top Products
2. Reinvoke the routing program, on the routing region, for route selection
failure.
3. Return a RESUNAVAIL condition on the EXEC CICS LINK command
executed by the mirror on the target region. (This condition is not returned
to the application program.)
CICS ignores any changes made by the exit program to the values of any of
the exit parameters. Your exit program can set a return code, but not change
any parameters.
For guidance information about dynamically routing DPL requests, see the
CICS Intercommunication Guide. For guidance information about dynamically
routing Link3270 bridge requests, see the CICS External Interfaces Guide. For
programming information about writing a dynamic routing program to route DPL
requests, see “Routing DPL requests dynamically” on page 597. For
programming information about writing a dynamic routing program to route
Link3270 bridge requests, see “Routing bridge requests dynamically” on page
603.
XPCREQC
XPCREQC is invoked after a link request has completed. You can use this exit
to pass back a response to the application via the EIBRESP or EIBRESP2
fields. Such responses could be used to keep status information about a link
request up-to-date. For example, if a link request fails because a connection is
unavailable, XPCREQC could set EIBRESP=500 (a response code not used by
CICS) to indicate the failure, enabling the application, in conjunction with the
other exit, XPCREQ, to determine a suitable course of action.
Note: The XPCREQC exit is invoked by internal requests made by CICS code,
as well as by requests made by applications.
Exit XPCREQ:
When invoked
By the EXEC interface program before a link request is processed.
Exit-specific parameters
UEPCLPS
Address of the command parameter list.
UEPPCTOK
Address of a 4-byte token to be passed to XPCREQC. This allows
you, for example, to pass a work area to exit XPCREQC.
UEPRCODE
Address of a 6-byte hexadecimal copy of EIBRCODE.
UEPRECUR
Address of a halfword recursion counter. The counter is set to 0
when the exit is first invoked, and is incremented for each recursive
call.
UEPRESP
Address of a 4-byte copy of EIBRESP.
UEPRESP2
Address of a 4-byte copy of EIBRESP2.
UEPTSTOK
Address of a 4-byte token that is valid throughout the life of a task.
See “Using the task token UEPTSTOK” on page 185.
Chapter 1. Global user exit programs 177