NAME       : HCPXCRBK
 DESCRIPTION: CP Exit Call Request Block
 DSECT      : XCRBK
 FUNCTION   : This control block contains information used to
              authorize user exit routines to find their entry
              points.
 LOCATED BY : XITBK.XITXCRBK
              XCRBK.XCRFWD
 CREATED BY : HCPZIX
 DELETED BY : HCPZIX
 REFERENCES : HCPICRBK - Indirect Call Request Block
 RELOCATION CONSIDERATIONS : None

 XCRBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      XCRBK          CP Exit Call Request Block
      These fields map the Indirect Call Request Block.
      These fields must match the analogous fields in the
      ICRBK.  The fields are defined explicitly here in order
      that BLOCKDEF can correctly describe them.  CKMAINT is
      used in the hope that an assembly error will alert one
      to any possible inconsistencies between the definitions
      here and the ICRBK definitions.
0000    0 Dbl-Word     8 XCRICRBK (0)   ICRBK fields
0000    0 Character    8 XCREPNAM       Name of exit routine ep
0008    8 Address      4 XCRADDRL       Address of the ICLBK, or 0.
000C   12 Bitstring    1 XCRATTR        Attributes for call
          .1.. ....      ICRRLONG       X'40' ICRRLONG Caller is LONGREG
          ..1. ....      ICRELONG       X'20' ICRELONG Callee is LONGREG
          ...1 ....      ICRESTA        X'10' ICRESTA callee uses static
                                        savearea
          .... 1...      ICRRMP         X'08' ICRRMP caller MP capable
          .... .1..      ICRERES        X'04' ICRERES callee Resident
          .... ..1.      ICREMP         X'02' ICREMP callee MP capable
          .... ...1      ICRTRC         X'01' ICRTRC issue TRACE
                                        instruction
000D   13 Bitstring    1 *              Reserved
000E   14 Bitstring    1 *              Reserved
000F   15 Bitstring    1 *              Reserved
      Thus ends the Indirect Call Request Block fields
0010   16 Dbl-Word     8 XCRUSRD1       Reserved for non-IBM use
0018   24 Dbl-Word     8 XCRUSRD2       Reserved for non-IBM use
0020   32 Signed       4 XCRUSRF1       Reserved for non-IBM use
0024   36 Signed       4 XCRUSRF2       Reserved for non-IBM use
0028   40 Signed       2 XCRUSRH1       Reserved for non-IBM use
002A   42 Signed       2 XCRUSRH2       Reserved for non-IBM use
002C   44 Bitstring    1 XCRUSRX1       Reserved for non-IBM use
002D   45 Bitstring    1 XCRUSRX2       Reserved for non-IBM use
002E   46 Bitstring    1 XCRUSRX3       Reserved for non-IBM use
002F   47 Bitstring    1 XCRUSRX4       Reserved for non-IBM use
0030   48 Address      4 XCRFWD         Address of next XCRBK
0034   52 Signed       4 XCRATMPT       Count of attempts to call this
                                        routine
0038   56 Signed       4 XCRCALLS       Count of calls to this exit
003C   60 Signed       4 *              Reserved
0040   64 Dbl-Word     8 XCRMSACT       Time (in micro-seconds) that this
                                        routine was active.
0048   72 Dbl-Word     8 XCR$END (0)    The end

          
*** XCRBK - CP Exit Call Request Block
*
*     +-------------------------------------------------------+
*   0 |                       XCREPNAM                        |
*     +---------------------------+------+------+------+------+
*   8 |         XCRADDRL          |:ATTR |//////|//////|//////|
*     +---------------------------+------+------+------+------+
*  10 |                       XCRUSRD1                        |
*     +-------------------------------------------------------+
*  18 |                       XCRUSRD2                        |
*     +---------------------------+---------------------------+
*  20 |         XCRUSRF1          |         XCRUSRF2          |
*     +-------------+-------------+------+------+------+------+
*  28 |  XCRUSRH1   |  XCRUSRH2   |:USRX1|:USRX2|:USRX3|:USRX4|
*     +-------------+-------------+------+------+------+------+
*  30 |          XCRFWD           |         XCRATMPT          |
*     +---------------------------+---------------------------+
*  38 |         XCRCALLS          |///////////////////////////|
*     +---------------------------+---------------------------+
*  40 |                       XCRMSACT                        |
*     +-------------------------------------------------------+
*
*** XCRBK - CP Exit Call Request Block

 
Symbol         Dspl Value
-------------- ---- -----
ICRELONG       000C 20
ICREMP         000C 02
ICRERES        000C 04
ICRESTA        000C 10
ICRRLONG       000C 40
ICRRMP         000C 08
ICRTRC         000C 01
XCR$END        0048
XCRADDRL       0008
XCRATMPT       0034
XCRATTR        000C
XCRCALLS       0038
XCREPNAM       0000
XCRFWD         0030
XCRICRBK       0000
XCRMSACT       0040
XCRUSRD1       0010
XCRUSRD2       0018
XCRUSRF1       0020
XCRUSRF2       0024
XCRUSRH1       0028
XCRUSRH2       002A
XCRUSRX1       002C
XCRUSRX2       002D
XCRUSRX3       002E
XCRUSRX4       002F