gtpi1m37 | System Installation Support Reference |
The DEARRANGE_CTK9 user exit, UPX1, performs any needed accounting or
utility functions when keypoint 9 (CTK9) is filed by the TPF system through
the CYYA interface. You can also provide your own DEARRANGE_CTK9
function to convert CTK9 from the current format in processor storage to pool
expansion (PXP) format or to a user-defined format that is compatible with PXP
format.
The DEARRANGE_CTK9 user exit is called from the DEARRANGE_CTK9
function in segment CYH1.
Input
- EBXSW0
- Contains the index of the data level containing CTK9 in 32-way loosely
coupled pool support format or a user-defined format compatible with 32-way
loosely coupled pool support format. The index is in the form of data
level 0 (D0) to data level E (DE). EBXSW0 is only valid when
EBXSW2=X'80'.
- EBXSW1
- Contains switches used by CYYA. These switches can only be queried
by this user exit.
- EBXSW2
- If EBXSW2=X'00', CTK9 is on data level F (DF) in 32-way loosely
coupled pool support format or a user-defined format compatible with 32-way
loosely coupled pool support format.
If EBXSW2=X'80', CTK9 is on the data level specified by
EBXSW0.
- Data Level F
- If EBXSW2=X'00', data level F (DF) contains CTK9 in 32-way loosely
coupled pool support format or a user-defined format compatible with 32-way
loosely coupled pool support format.
If EBXSW2=X'80', data level F (DF) is free.
Return Values
- R6=0
- Default return code. If this value is returned, CYH1 converts CTK9
from its 32-way loosely coupled pool support format to PXP format. Use
this return code if you code this user exit but do not change CTK9.
- R6=1
- If this value is returned, CYH1 does not change CTK9. CYH1
immediately returns to its caller. Use this return code if you code
this user exit and convert CTK9 from its current format in processor storage
to PXP format or to a user-defined format that is compatible to PXP
format.
Programming Considerations
- This user exit is called by CYH1 when the conversion mode indicator
(CY1MD32) in CTK9 is PXP or CONVERTING. If the conversion mode
indicator is 32LC or FALLING_BACK, CYH1 does not call this user
exit.
- As shipped by IBM, this user exit issues a BACKC macro to 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.
- If R6=0 on return to CYH1, CTK9 must be in 32-way loosely coupled pool
support format and it must be on the same data level where it was on entry to
the user exit.
- If R6=1 on return to CYH1, CTK9 must be on data level F (DF) and it must
be in PXP format or a user-defined format that is compatible with PXP
format.
- If EBXSW2=X'80' on entry to the user exit, CTK9 must remain
unchanged on the data level specified in EBXSW0 on return from the user
exit. If R6=1, a second CTK9 in pool expansion (PXP) format or a
user-defined format that is compatible to PXP format must reside on data level
F (DF).
References
See TPF Database Reference for more information
about pool support.