gtpi1m1x | System Installation Support Reference |
User exit routine UCCRTC is invoked from the ROUTC and SENDC macros.
This exit point, named RTC, cannot be activated
dynamically. Exit point RTC is located in copy segment CLXA of CSECT
CCCCP1. Copy segment CT20 of CSECT CCCTIN detects if the user exit
routine exists. If so, CT20 turns on the active indicator for this exit
point.
UCCRTC allows you to intercept outbound messages and modify the message
text and the routing parameters.
General Conditions at Entry
The registers at entry to UCCRTC are:
- R1
- Address of message block.
- R2
- Address of RCPL.
- R3, R4
- Set to 0.
- R7
- Address of ROUTC parameter list.
- R9
- Address of the ECB.
- R11-R15
- See User Exit Routines - Common Entry Conditions.
System Conditions at Entry
- System state
- Supervisor
- System mask
- Masked for I/O interrupts
- Protect key
- 0
- Address space
- EVM.
Programming Considerations at Entry
- See User Exit Routines - Common Entry Conditions.
- See User Exit Routines - Common Programming Considerations for other considerations.
Programming Considerations on Return
For all registers except registers R3 and R4, see User Exit Routines - Common Return Conditions.
Registers R3 and R4 on return from UCCRTC are:
- R3=0
- Continue processing without process selection vector (PSV)
activation.
- R3=-1
- Stop processing the message. Release the message from the data
level, if still holding the block, and return to the calling program.
If the exit code takes control of the message block by using the $DISBC macro,
it is responsible for clearing the data level held indicator.
- R3=RID (resource ID) with high order bit on
- Activate the PSV routine using the RID.
- R3=address
- Activate the PSV routine using the PSV name at the specified (EVA)
address.
If R3 shows that a PSV routine is to be activated:
- R4=address
- The 3 bytes of data at the specified address (EVA) are placed in the ECB
fields EBCM02-4 of the new ECB used to invoke the PSV routine.
- R4=0
- No data is passed in ECB fields EBCM02-4 of the new ECB used to invoke the
PSV routine.
General Conditions on Return
See User Exit Routines - Common Return Conditions.