NAME       : HCPXITPL
 DESCRIPTION: Exit Plist
 DSECT      : XITPL
 FUNCTION   : The Exit Plist describes the standard fields in the
              CP Exit parameters supplied to the exit routines.
              Additional fields are expected to be appended by the
              various routines that build exit plists.
 LOCATED BY : R1 at invocation of the HCPXSERV CALL service.
 CREATED BY : Any CP routine that has an exit point defined.
 DELETED BY : The CP routine that created it.
 SERIALIZED : None
 RELOCATION CONSIDERATIONS : None
 NOTES      : Acqusition and release of the exit plist should use
              the label XITPL.   This is because the true plist
              (the addresses of data items) is embedded within the
              acquired storage.  This is done to facilitate use of
              BLOCKDEF and BLOCKMAP, as well as provide a simple
              way for one to extend the plist addresses at XITPLVAR
              without stomping on data that would come after the
              plist addresses if we didn't put the data at the
              front of the acquired storage.
              The 256 byte TRT table, XITPLTRT, must remain on a
              double word boundary, just so expectaions in user
              exit routines for a doubleword aligned work area
              are met.
              The last address in the true plist should have its
              high order bit turned on, just so expectaions in user
              exit routines for a variable length plist are met.

 XITPL DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      XITPL          Exit Plist
       The user fields must remain at the front of the block
0000    0 Dbl-Word     8 XITPLUD1       Reserved for non-IBM use
0008    8 Dbl-Word     8 XITPLUD2       Reserved for non-IBM use
0010   16 Signed       4 XITPLUF1       Reserved for non-IBM use
0014   20 Signed       4 XITPLUF2       Reserved for non-IBM use
0018   24 Signed       2 XITPLUH1       Reserved for non-IBM use
001A   26 Signed       2 XITPLUH2       Reserved for non-IBM use
001C   28 Bitstring    1 XITPLUX1       Reserved for non-IBM use
001D   29 Bitstring    1 XITPLUX2       Reserved for non-IBM use
001E   30 Bitstring    1 XITPLUX3       Reserved for non-IBM use
001F   31 Bitstring    1 XITPLUX4       Reserved for non-IBM use
0020   32 Dbl-Word     8 * (0)          Align XITPLTRT
0020   32 Bitstring  256 XITPLTRT       256 bytes for anything
          00000120       XITPLHSZ       *-XITPL Size of standard plist
                                        header Start of the true plist
                                        (list of addresses)
0120  288 Address      4 XITPLSTR (0)   Start of the plist
0120  288 Address      4 XITPL@RS       'RESERVED'
0124  292 Address      4 XITPL@UW       'USERWORD' pointer
0128  296 Address      4 XITPL@TT       'TRTTABLE' pointer
012C  300 Address      4 XITPLVAR (0)   Start of variable length data
                                        Addresses of fields specific to
                                        the exit. (Eventually) the end of
                                        the true plist (list of
                                        addresses)
012C  300 Address      4 XITPL@04       Address of first field specific
                                        to the exit.
0130  304 Address      4 XITPL@05       Address of second field specific
                                        to the exit.
       etc.

          
*** XITPL - Exit Plist
*
*     +-------------------------------------------------------+
*   0 |                       XITPLUD1                        |
*     +-------------------------------------------------------+
*   8 |                       XITPLUD2                        |
*     +---------------------------+---------------------------+
*  10 |         XITPLUF1          |         XITPLUF2          |
*     +-------------+-------------+------+------+------+------+
*  18 |  XITPLUH1   |  XITPLUH2   |:PLUX1|:PLUX2|:PLUX3|:PLUX4|
*     +-------------+-------------+------+------+------+------+
*  20 |                                                       |
*     =                       XITPLTRT                        =
*     |                                                       |
*     +---------------------------+---------------------------+
* 120 |         XITPL@RS          |         XITPL@UW          |
*     +---------------------------+---------------------------+
* 128 |         XITPL@TT          |
*     +---------------------------+
*
*** XITPL - Exit Plist
          
*** Overlay for XITPLVAR in XITPL
*
*                                 +---------------------------+
* 128 ...                     12C |         XITPL@04          |
*     +---------------------------+---------------------------+
* 130 |         XITPL@05          | 134
*     +---------------------------+
*
*** Overlay for XITPLVAR in XITPL

 
Symbol         Dspl Value
-------------- ---- -----
XITPL@RS       0120
XITPL@TT       0128
XITPL@UW       0124
XITPL@04       012C
XITPL@05       0130
XITPLHSZ       0020 00000120
XITPLSTR       0120
XITPLTRT       0020
XITPLUD1       0000
XITPLUD2       0008
XITPLUF1       0010
XITPLUF2       0014
XITPLUH1       0018
XITPLUH2       001A
XITPLUX1       001C
XITPLUX2       001D
XITPLUX3       001E
XITPLUX4       001F
XITPLVAR       012C