NAME       : HCPPDSBK
 DESCRIPTION: Partitioned Data Set Block
 DSECT      : PDSBK
 FUNCTION   : The PDSBK describes the contents of CMS partitioned
              data set headers.
 LOCATED BY : It is record number 1 of the CMS file
 CREATED BY : None
 DELETED BY : None
 RELOCATION CONSIDERATIONS : None
 NOTES      : This description of the PDS directory description
              record was extracted from the CMS file PDSSECT MACRO.
              The CMS definitions are shown here, too.  It makes for
              cluttered listing, but it helps to see the CMS
              original definitions.

 PDSBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      PDSBK          Partitioned Data Set Block
           LIBPDS format
0000    0 Character    6 PDSNID         LIBPDS (new format) id
          11.1 .111      PDSNFNEW       C'P' PDSNFNEW Check PDSNID+3, old
                                        vs new.
0006    6 Bitstring    1 PDSNFLG1       Flag1.
          .1.1 1.11      PDSNTEMPF      C'$' PDSNTEMPF Dir is in $PDSTEMP
                                        file.
0007    7 Bitstring    1 PDSNFLG2       Flag2.
0008    8 Signed       4 PDSNDRSZ       Directory size in bytes
000C   12 Signed       4 PDSNDST        Directory starts at this record
                                        number
0010   16 Signed       4 PDSNNTSZ       Each directory entry is this
                                        number of bytes long
          00000014       PDSNSZ         *-PDSBK Size for LIBPDS format
       Old DMSLIB format
0000    0 Character    6 PDSOID         DMSLIB (old format) id
0006    6 Signed       2 PDSODST        Directory starts at this record
                                        number
0008    8 Signed       1 *
0009    9 Signed       1 *
000A   10 Signed       2 PDSODRSZ       Directory size in bytes
000C   12 Signed       2 *
000E   14 Signed       1 *
000F   15 Signed       1 *
0010   16 Signed       4 PDSODRLN       Each entry size in bytes
          00000014       PDSOSZ         *-PDSBK Size for CMSLIB format
       Old MACLIB format
0000    0 Character    6 PDSMID         MACLIB (old format) id
0006    6 Signed       2 PDSMDST        Directory starts at this record
                                        number
0008    8 Signed       2 PDSMDRSZ       Directory size in bytes
000A   10 Signed       2 DIRNAME (3)    MACLIB IDENTIFIER
0010   16 Signed       2 DIRPTR         ITEM PTR TO START OF DIRECTORY
0012   18 Bitstring    1 TEMPBYTE       IF $ , THEN PDS IS IN $PDSTEMP
                                        FILE
0013   19 Bitstring    1 NEWBLKS        NO. NEW BLKS ADDED TO PDS BY STOW
0014   20 Signed       2 CORESIZE       SIZE OF DICTIONARY IN BYTES
0016   22 Signed       2 PDSBLKSI       BLOCKSIZE OF DICTIONARY
0018   24 Bitstring    1 CHNGBYTE       INDICATES UPDATES TO DICTIONARY
0019   25 Bitstring    1 *              NOT USED -
          0000001A       PDSMSZ         *-PDSBK Size for MACLIB format
       End of PDS formats
          00000004       PDSBKSZ        (*-PDSBK+7)/8 Max size of PDSBK
                                        (d-words)

          
*** PDSBK - Partitioned Data Set Block
*
*     +-------------------------------------------------------+
*   0 |///////////////////////////////////////////////////////|
*     =///////////////////////////////////////////////////////=
*     |/////////////+-----------------------------------------+
*     |/////////////|
*     +-------------+
*
*** PDSBK - Partitioned Data Set Block
          
*** Overlay for PDSBK in PDSBK
*
*     +-----------------------------------------+------+------+
*   0 |                 PDSNID                  |:NFLG1|:NFLG2|
*     +---------------------------+-------------+------+------+
*   8 |         PDSNDRSZ          |         PDSNDST           |
*     +---------------------------+---------------------------+
*  10 |         PDSNNTSZ          | 14
*     +---------------------------+
*
*** Overlay for PDSBK in PDSBK
          
*** Overlay for PDSBK in PDSBK
*
*     +-----------------------------------------+-------------+
*   0 |                 PDSOID                  |  PDSODST    |
*     +------+------+-------------+-------------+------+------+
*   8 |//////|//////|  PDSODRSZ   |/////////////|//////|//////|
*     +------+------+-------------+-------------+------+------+
*  10 |         PDSODRLN          | 14
*     +---------------------------+
*
*** Overlay for PDSBK in PDSBK
          
*** Overlay for PDSBK in PDSBK
*
*     +-----------------------------------------+-------------+
*   0 |                 PDSMID                  |  PDSMDST    |
*     +-------------+---------------------------+-------------+
*   8 |  PDSMDRSZ   |                DIRNAME                  |
*     +-------------+------+------+-------------+-------------+
*  10 |   DIRPTR    |:PBYTE|:BLKS |  CORESIZE   |  PDSBLKSI   |
*     +------+------+------+------+-------------+-------------+
*  18 |:GBYTE|//////| 1A
*     +------+------+
*
*** Overlay for PDSBK in PDSBK

 
Symbol         Dspl Value
-------------- ---- -----
CHNGBYTE       0018
CORESIZE       0014
DIRNAME        000A
DIRPTR         0010
NEWBLKS        0013
PDSBKSZ        0019 00000004
PDSBLKSI       0016
PDSMDRSZ       0008
PDSMDST        0006
PDSMID         0000
PDSMSZ         0019 0000001A
PDSNDRSZ       0008
PDSNDST        000C
PDSNFLG1       0006
PDSNFLG2       0007
PDSNFNEW       0000 D7
PDSNID         0000
PDSNNTSZ       0010
PDSNSZ         0010 00000014
PDSNTEMPF      0006 5B
PDSODRLN       0010
PDSODRSZ       000A
PDSODST        0006
PDSOID         0000
PDSOSZ         0010 00000014
TEMPBYTE       0012