NAME       : HCPRECBK
 DESCRIPTION: RECORDING RECORD FORMAT BLOCK
 DSECT      : RECBK
 FUNCTION   : MAPS THE ENTRIES IN THE RECORDING TABLE OF
              SUBSCRIBERS TO VARIOUS RECORDING SYSTEM SERVICES
 LOCATED BY : RTHDATA
 CREATED BY : HCPREC ASSEMBLY
 DELETED BY : NONE
 RELOCATION CONSIDERATIONS : None
 COMPATIBILITY AND MIGRATION CONCERNS : This control block gets checkpointed during SHUTDOWN and
              will be read back in during a WARM start.  Therefore, if
              the format of the block changes due to service being
              applied before the warm start, code should be in place to
              distinguish between the old and new format.  (See the note
              below describing the RECTVERS field.)

 RECBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      RECBK          RECORDING RECORD FORMAT BLOCK
0000    0 Character    8 RECTNAM        RECORDING SYSTEM SERVICE
                                        REQUESTED
0008    8 Character    8 RECTUID        USERID OF RECORD REQUESTOR
0010   16 Address      4 RECTIXBK       Pointer to this entry's IX block
0014   20 Signed       2 RECTPATH       IUCV PATH ID
0016   22 Bitstring    1 RECTLMT        THRESHOLD VALUE FOR WARNING
                                        MESSAGES
             COMMON LIMIT VALUES FOR RECTLMT
          00000014       RECALMT        20 ACCOUNTING THRESHOLD WARNING
                                        LIMIT
          00000002       RECELMT        2 EREP THRESHOLD WARNING LIMIT
          00000002       RECSLMT        2 SYMPTOM THRESHOLD WARNING LIMIT
          000000FF       RECCLMT        255 CONFIGURATION THRESHOLD
                                        WARNING LIMIT
0017   23 Bitstring    1 RECTRID        Record ID (RSSBK.RSSRID value for
                                        EREP, LOGREC, etc.)
0018   24 Address      4 RECTQUE        Queue pointer for this entry
001C   28 Signed       4 RECTCNT        NUMBER OF RECORDS ENQUEUED FOR
                                        THIS REQUESTOR
0020   32 Signed       4 RECTMSGL       MESSAGE NUMBER OF THE LAST SYSTEM
                                        RECORD CHECKED AGAINST THIS ENTRY
0024   36 Bitstring    1 *              RESERVED FOR IBM USE
0025   37 Bitstring    1 RECTFLG2       General Recording flag number 2
          1... ....      RECOLDTQ       X'80' RECOLDTQ RECTQUE flag is
                                        not current (i.e. it has the
                                        message number of an RSSBK that
                                        has not been retrieved from the
                                        checkpoint area yet.) NOTES : The
                                        following field is used to
                                        indicate when the RECBK format
                                        has changed and what that change
                                        was due to. Any code defined here
                                        should be checked in HCPRECKP
                                        when old format RECBKs are read
                                        from the checkpoint cylinders.
                                        The old format RECBKs should then
                                        be updated appropriately to the
                                        new format. Code should also be
                                        added to HCPRIUCF and HCPRECRI to
                                        set the code for any RECBKs that
                                        are being newly created AFTER the
                                        format change. A new code should
                                        only need to be defined here when
                                        a change to the RECBK causes it
                                        to be incompatible with a
                                        previous format (as in the case
                                        of the RECTCNT field being
                                        expanded from a halfword to a
                                        fullword). Due to compatibility,
                                        the displacement of this field
                                        should NEVER change. Previous
                                        versions of this control block
                                        had this field marked 'RESERVED'
                                        and the field was known to be
                                        zero. Therefore, previous
                                        versions were version X'00'.
0026   38 Bitstring    1 RECTVERS       RECBK VERSION INDICATOR
          00000000       RECTVN00       X'00' RECTVN00 For version 00,
                                        original format
          00000001       RECTVN01       X'01' RECTVN01 FOR VERSION 01,
                                        THE RECTCNT FIELD WAS EXPANDED
                                        FROM A HALFWORD TO FULLWORD
          00000002       RECTVN02       X'02' RECTVN02 FOR VERSION 02,
                                        RECBK INCREASED IN SIZE TO
                                        ACCOUNT FOR RECTMSGN AND RECTMSGL
                                        GOING FROM HALFWORD TO FULLWORD
                                        FIELDS NOTES : THE LAST BYTE OF
                                        THE RECBK MUST BE THE FLAG BYTE.
                                        THIS IS DONE TO PROVIDE A METHOD
                                        FOR DETECTING IF THE ENTRY WAS
                                        BEING UPDATED WHEN A SYSTEM
                                        FAILURE OCCURED.
0027   39 Bitstring    1 RECTFLG        RECORDING STATUS
          1... ....      RECTOFF        X'80' RECTOFF RECORDING TURNED
                                        OFF FOR THIS ENTRY
          .1.. ....      RECTAUT        X'40' RECTAUT USER CONNECTED VIA
                                        IUCV
          ..1. ....      RECTINT        X'20' RECTINT EXTERNAL INTERRUPT
                                        PENDING
          ...1 ....      RECT2WAY       X'10' RECT2WAY IUCV 2 WAY
                                        PROTOCOL
          .... 1...      RECTEND        X'08' RECTEND END OF THE
                                        RECORDING TABLE
          .... .1..      RECTXTNT       X'04' RECTXTNT LAST ACTIVE ENTRY
                                        IN THE TABLE
          .... ..1.      RECTWRN        X'02' RECTWRN WARNING MESSAGE
                                        SENT ONCE
          .... ...1      RECTINC        X'01' RECTINC INCOMPLETE UPDATE
                                        TO ENTRY
          00000028       RECBLEN        *-RECBK RECBK ENTRY IN BYTES
          00000005       RECSIZE        (*-RECBK+7)/8 RECBK ENTRY IN
                                        DOUBLEWORDS
          00000028       RECTNEXT       * NEXT RECBK ENTRY IN THE TABLE
      The following mapping shows what the fields changed for the
      Version 01 RECBK looked like in Version 00.  The following
      fields are used when updating Version 00 RECBKs to Version
      01.
001C   28 Signed       2 RECV00CT       NUMBER OF RECORDS ENQUEUED FOR
                                        THIS REQUESTOR (VERSION 00
                                        FORMAT)
001E   30 Signed       2 RECV00MN       MESSAGE NUMBER OF THE MESSAGE
                                        POINTED TO BY RECTQUE (VERSION 00
                                        FORMAT)
0020   32 Signed       2 RECV00ML       MESSAGE NUMBER OF THE LAST SYSTEM
                                        RECORD CHECKED AGAINST THIS ENTRY
                                        (VERSION 00 FORMAT)
0022   34 Bitstring    1 RECV00SV (5)   RESERVED (VERSION 00 FORMAT)
      The following mapping shows what the fields changed for the
      Version 02 RECBK looked like in Version 01.  The following
      fields are used when updating Version 01 RECBKs to Version
      02.
0020   32 Signed       2 RECV01MN       RECTMSGN FIELD AS A HALFWORD
0022   34 Signed       2 RECV01ML       RECTMSGL FIELD AS A HALFWORD

          
*** RECBK - RECORDING RECORD FORMAT BLOCK
*
*     +-------------------------------------------------------+
*   0 |                       RECTNAM                         |
*     +-------------------------------------------------------+
*   8 |                       RECTUID                         |
*     +---------------------------+-------------+------+------+
*  10 |         RECTIXBK          |  RECTPATH   |:TLMT |:TRID |
*     +---------------------------+-------------+------+------+
*  18 |         RECTQUE           |         RECTCNT           |
*     +---------------------------+------+------+------+------+
*  20 |         RECTMSGL          |//////|:TFLG2|:TVERS|:TFLG |
*     +---------------------------+------+------+------+------+
*  28
*
*** RECBK - RECORDING RECORD FORMAT BLOCK
          
*** Overlay for RECTCNT in RECBK
*
*                                 +-------------+-------------+
*  18 ...                      1C |  RECV00CT   |  RECV00MN   |
*     +-------------+-------------+-------------+------+------+
*  20 |  RECV00ML   |            RECV00SV              | 27
*     +-------------+----------------------------------+
*
*** Overlay for RECTCNT in RECBK
          
*** Overlay for RECTMSGL in RECBK
*
*     +-------------+-------------+
*  20 |  RECV01MN   |  RECV01ML   | 24
*     +-------------+-------------+
*
*** Overlay for RECTMSGL in RECBK

 
Symbol         Dspl Value
-------------- ---- -----
RECALMT        0016 00000014
RECBLEN        0027 00000028
RECCLMT        0016 000000FF
RECELMT        0016 00000002
RECOLDTQ       0025 80
RECSIZE        0027 00000005
RECSLMT        0016 00000002
RECTAUT        0027 40
RECTCNT        001C
RECTEND        0027 08
RECTFLG        0027
RECTFLG2       0025
RECTINC        0027 01
RECTINT        0027 20
RECTIXBK       0010
RECTLMT        0016
RECTMSGL       0020
RECTNAM        0000
RECTNEXT       0027 00000028
RECTOFF        0027 80
RECTPATH       0014
RECTQUE        0018
RECTRID        0017
RECTUID        0008
RECTVERS       0026
RECTVN00       0026 00000000
RECTVN01       0026 00000001
RECTVN02       0026 00000002
RECTWRN        0027 02
RECTXTNT       0027 04
RECT2WAY       0027 10
RECV00CT       001C
RECV00ML       0020
RECV00MN       001E
RECV00SV       0022
RECV01ML       0022
RECV01MN       0020