gtpi1m48 | System Installation Support Reference |
The REARRANGE_CTK9 user exit, UPX0, performs any needed accounting or
utility functions when the TPF system retrieves keypoint 9 (CTK9) through the
CYYM interface. You can also provide your own function to convert CTK9
from its current format to 32-way loosely coupled pool support format or a
user-defined format compatible with 32-way loosely coupled pool support
format.
The REARRANGE_CTK9 user exit is called by the REARRANGE_CTK9 function
in segment CYH0.
Input
- EBXSW0
- Contains the index of the data level that contains CTK9 in pool expansion
(PXP) format. The index is in the form of data level 0 (D0) to data
level E (DE).
- EBXSW1
- Contains switches used by segments CYYM and CYH0. These switches
can only be queried by this user exit.
Return Values
- R6=0
- Default return code. If this value is returned, CYH0 converts CTK9
from PXP format to 32-way loosely coupled pool support format. Use this
return code if you code the user exit and do not change CTK9.
- R6=1
- If this value is returned, CYH0 does not change CTK9 and immediately
returns to its caller. Use this return code if you code this user exit
and convert CTK9 from its current format to 32-way loosely coupled pool
support format or a user-defined format compatible with 32-way loosely coupled
pool support format.
- R6=2
- If this value is returned, CYH0 does not change CTK9. CYH0 runs its
error handling function before returning to its caller. Use this return
code to cause error processing if you code this user exit and convert CTK9
from its current format to 32-way loosely coupled pool support format or a
user-defined format compatible with 32-way loosely coupled pool support
format.
Programming Considerations
- This user exit is called by CYH0 when the conversion mode indicator
(CY1MD32) in CTK9 is PXP or CONVERTING. If the conversion mode
indicator is 32LC or FALLING_BACK, CYH0 does not call this user
exit.
- As shipped by IBM, this user exit issues a BACKC macro to immediately
return to the caller. CTK9 remains unchanged.
- You can use all data levels and registers if the data levels and registers
are saved before use and restored before returning to the caller. Data
level F (DF) contains a work block used by segment CYYM.
- If R6=0 on return, CTK9 must be in PXP format and must be on the same data
level where it was on entry to the user exit.
- If R6=1 or R6=2 on return, CTK9 must be on the data level specified by
EBXSW0 and in 32-way loosely coupled pool support format or a user-defined
format compatible with 32-way loosely coupled pool support format.
References
See TPF Database Reference for more information
about pool support.