TPLBK

TPLBK Prolog

 NAME       : HCPTPLBK
 DESCRIPTION: TAPE LABEL CONTROL BLOCK
 DSECT      : TPLBK
 FUNCTION   : THE TAPE LABEL CONTROL BLOCK IS USED TO DESCRIBE THE
              TAPE LABEL PUT ON TAPE.  ONLY ONE TPLBK IS CREATED
              AND USED DURING I/O PROCESSING TO TAPE.
 LOCATED BY : TPETPLBK IN HCPTPEBK
 CREATED BY : HCPTPEIN - DURING INITIALIZATION OF I/O PROCESSING.
 DELETED BY : HCPTPEND - DURING TERMINATION OF I/O PROCESSING.

TPLBK Control Block Content

TPLBK DSECT

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      TPLBK          TAPE LABEL CONTROL BLOCK
0000    0 Character    3 TPLVOL         LABEL IDENTIFIER
0003    3 Bitstring    1 *              RESERVED FOR IBM USE
0004    4 Signed       2 TPLSEQ         VOLUME SEQUENCE NUMBER
0006    6 Signed       2 *              RESERVED FOR IBM USE
0008    8 Character    8 TPLID          TAPE CREATOR IDENTIFICATION
0010   16 Character    8 TPLCRDT        CREATION DATE
0018   24 Character    8 TPLCRTM        CREATION TIME
0020   32 Signed       4 TPLZONE        TIME ZONE DIFFERENTIAL
0024   36 Signed       4 *              RESERVED FOR IBM USE
0028   40 Character    8 TPLPNAME       PRODUCT NAME
0030   48 Character    7 TPLPNUM        PRODUCT NUMBER
0037   55 Character    1 *              RESERVED FOR IBM USE
0038   56 Signed       4 *              RESERVED FOR IBM USE
003C   60 Signed       4 *              RESERVED FOR IBM USE
0040   64 Signed       4 *              RESERVED FOR IBM USE
0044   68 Signed       4 *              RESERVED FOR IBM USE
0048   72 Signed       4 *              RESERVED FOR IBM USE
004C   76 Signed       4 *              RESERVED FOR IBM USE
          0000000A       TPLSIZE        (*-TPLBK+7)/8 SIZE OF TPLBK IN
                                        DOUBLEWORDS

TPLBK Storage Layout

          
*** TPLBK - TAPE LABEL CONTROL BLOCK
*
*     +--------------------+------+-------------+-------------+
*   0 |      TPLVOL        |//////|   TPLSEQ    |/////////////|
*     +--------------------+------+-------------+-------------+
*   8 |                        TPLID                          |
*     +-------------------------------------------------------+
*  10 |                       TPLCRDT                         |
*     +-------------------------------------------------------+
*  18 |                       TPLCRTM                         |
*     +---------------------------+---------------------------+
*  20 |         TPLZONE           |///////////////////////////|
*     +---------------------------+---------------------------+
*  28 |                       TPLPNAME                        |
*     +------------------------------------------------+------+
*  30 |                    TPLPNUM                     |//////|
*     +---------------------------+--------------------+------+
*  38 |///////////////////////////|///////////////////////////|
*     +---------------------------+---------------------------+
*  40 |///////////////////////////|///////////////////////////|
*     +---------------------------+---------------------------+
*  48 |///////////////////////////|///////////////////////////|
*     +---------------------------+---------------------------+
*  50
*
*** TPLBK - TAPE LABEL CONTROL BLOCK

TPLBK Cross Reference

Symbol         Dspl Value
-------------- ---- -----
TPLCRDT        0010
TPLCRTM        0018
TPLID          0008
TPLPNAME       0028
TPLPNUM        0030
TPLSEQ         0004
TPLSIZE        004C 0000000A
TPLVOL         0000
TPLZONE        0020