gtpi1m37System Installation Support Reference

DEARRANGE_CTK9 (UPX1)

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

References

See TPF Database Reference for more information about pool support.