DLJBK | Back to Index page

| Prolog Control Block Contents DLJBK DSECT Storage Layout Cross Reference (Contains links to field and bit definitions) |
Programming Interface Information: This information is NOT intended to be used as Programming Interfaces of z/VM.

DLJBK Prolog | Top of page

     NAME       : HCPDLJBK
     DESCRIPTION: Mapping of HCPDLJ and HCPDLK Common Area
     DSECT      : DLJBK
     FUNCTION   : The DLJBK maps the common data area that is used by
                  HCPDLJ and HCPDLK.
     LOCATED BY : CommAr pointer in WKAREA DSECT.
     CREATED BY : HCPDLJ using CMSSTOR macro.
     DELETED BY : HCPDLJ using CMSSTOR macro.
     REFERENCES :
     SERIALIZED :
     RELOCATION CONSIDERATIONS : None, allocated in CMS Storage
     COMPATIBILITY AND MIGRATION CONCERNS : None
     NOTES      :

DLJBK Control Block Content | Top of page

     DLJBK DSECT
    Top of page

    Hex   Dec Type/Val   Lng Label (dup)    Comments
    ---- ---- --------- ---- -------------- --------
    0000    0 Structure      DLJBK          Mapping of HCPDLJ and HCPDLK Common Area
    0000    0 Character    8 DLJEYE         Eyecatcher String
          HCPDLJFD specific fields
    0008    8 Signed       4 *              Reserved for IBM Use
    000C   12 Signed       4 InDevTyp       Device type of input device
    0010   16 Signed       4 *              Reserved for IBM Use
    0014   20 Address      4 SDWBK@         Addr in buffer of SDWBK
    0018   24 Address      4 SympRec@       Addr in buffer of Symptom Record
    001C   28 Address      4 DFMBK@         Addr in buffer of DFMBK
    0020   32 Address      4 SDXBK@         Addr in buffer of SDXBK
    0024   36 Address      4 SDSBK@         Addr in buffer of SDSBK
    0028   40 Address      4 DFIZ@          Addr in buffer of DFIZ
          HCPDLJFP internal fields
    002C   44 Signed       4 *              Reserved for IBM Use
          HCPDLK Input Fields
    0030   48 Bitstring    1 REQ_Type       Input Flags
              1... ....      GETNEXT        X'80' GETNEXT Request is for next
                                            record
    0031   49 Bitstring    1 * (3)          Reserved for IBM Use
    0034   52 Signed       4 REQ_Last       Last CCHH or record of partition
    0038   56 Signed       4 REQ_DevE       Requested Device (EBCDIC)
    003C   60 Address      4 TrkBuf@        Addr of buffer for curr track
    0040   64 Signed       4 REQ_CCHH       HCPDLKGR - Requested CCHH
    0044   68 Signed       4 REQ_Rec        HCPDLKGR - Requested Record
    0048   72 Signed       4 REQ_RecFB      HCPDLKFB - Requested Record
    004C   76 Signed       4 *              Reserved for IBM Use
          HCPDLK Common Output Fields
    0050   80 Address      4 RecHeadPtr     If 3390, this is addr of header
                                            of current record in buffer
    0054   84 Address      4 RecPtr         Addr of curr record in buffer
    0058   88 Signed       4 ReasCode       Possible reason code to further
                                            decribe return code.
    005C   92 Signed       4 *              Reserved for IBM Use
          HCPDLK common internal fields
    0060   96 Signed       4 REQ_Dev        Requested Device (binary)
    0064  100 Signed       4 CURR_Dev       Current Device (binary)
    0068  104 Signed       4 CURR_DevE      Current Device (EBCDIC)
    006C  108 Bitstring    1 DLKFlags       HCPDLK Persistent Flags
              .1.. ....      DevOpen        X'40' DevOpen A device is 'open',
                                            If ON, then CURR_Dev, CURR_DevE,
                                            CURR_CCHH, CURR_Rec and
                                            CURR_DevSz contain information.
    006D  109 Bitstring    1 * (3)          Reserved for IBM Use
          HCPDLKFB internal fields
    0070  112 Signed       4 DLKFBRC        Return Code from HCPDLKFB
    0074  116 Signed       4 CURR_RecFB     Current Record
    0078  120 Signed       4 CURR_SizFB     Curr Dev Size (Blocks)
    007C  124 Signed       4 *              Reserved for IBM Use
          HCPDLKGR internal fields
    0080  128 Signed       4 DLKGRRC        Return Code from HCPDLKGR
    0084  132 Signed       4 CURR_CCHH      Current CCHH
    0088  136 Signed       4 CURR_Rec       Current Record
    008C  140 Signed       4 CURR_DevSz     Curr Dev Size (Cyl)
    0090  144 Signed       4 DIAGA8RC       RC from DIAG A8
    0094  148 Signed       4 BytesRead      Size of track in buffer
    0098  152 Signed       4 *              Reserved for IBM Use
    009C  156 Signed       4 *              Reserved for IBM Use
    00A0  160 Dbl-Word     8 CCWEYE         Eyecatcher above CCW area
    00A8  168 Dbl-Word     8 CCW1           Define Extent
    00B0  176 Dbl-Word     8 CCW2           Locate Record
    00B8  184 Dbl-Word     8 CCW3           Read Track
    00C0  192 Bitstring   16 DEFEXT         Define Extent Data Area
    00D0  208 Bitstring   16 LOCATE         Locate Record Data Area
    00E0  224 Signed       4 * (4)          Reserved for IBM Use
          More HCPDLK Common internal fields
    00F0  240 Dbl-Word     8 * (0)
    00F0  240 Bitstring   88 SGIBAREA       SGIOB Work Area
              00000148       DLJSIZE        *-DLJBK Size of this block in
                                            bytes
                 DSECT for Record n

DLJBK Storage Layout | Top of page

    *** DLJBK - Mapping of HCPDLJ and HCPDLK Common Area
    *
    *     +-------------------------------------------------------+
    *   0 |                        DLJEYE                         |
    *     +---------------------------+---------------------------+
    *   8 |///////////////////////////|         INDEVTYP          |
    *     +---------------------------+---------------------------+
    *  10 |///////////////////////////|          SDWBK@           |
    *     +---------------------------+---------------------------+
    *  18 |         SYMPREC@          |          DFMBK@           |
    *     +---------------------------+---------------------------+
    *  20 |          SDXBK@           |          SDSBK@           |
    *     +---------------------------+---------------------------+
    *  28 |          DFIZ@            |///////////////////////////|
    *     +------+--------------------+---------------------------+
    *  30 |:_TYPE|////////////////////|         REQ_LAST          |
    *     +------+--------------------+---------------------------+
    *  38 |         REQ_DEVE          |         TRKBUF@           |
    *     +---------------------------+---------------------------+
    *  40 |         REQ_CCHH          |         REQ_REC           |
    *     +---------------------------+---------------------------+
    *  48 |        REQ_RECFB          |///////////////////////////|
    *     +---------------------------+---------------------------+
    *  50 |        RECHEADPTR         |          RECPTR           |
    *     +---------------------------+---------------------------+
    *  58 |         REASCODE          |///////////////////////////|
    *     +---------------------------+---------------------------+
    *  60 |         REQ_DEV           |         CURR_DEV          |
    *     +---------------------------+------+--------------------+
    *  68 |        CURR_DEVE          |:FLAGS|////////////////////|
    *     +---------------------------+------+--------------------+
    *  70 |         DLKFBRC           |        CURR_RECFB         |
    *     +---------------------------+---------------------------+
    *  78 |        CURR_SIZFB         |///////////////////////////|
    *     +---------------------------+---------------------------+
    *  80 |         DLKGRRC           |        CURR_CCHH          |
    *     +---------------------------+---------------------------+
    *  88 |         CURR_REC          |        CURR_DEVSZ         |
    *     +---------------------------+---------------------------+
    *  90 |         DIAGA8RC          |        BYTESREAD          |
    *     +---------------------------+---------------------------+
    *  98 |///////////////////////////|///////////////////////////|
    *     +---------------------------+---------------------------+
    *  A0 |                        CCWEYE                         |
    *     +-------------------------------------------------------+
    *  A8 |                         CCW1                          |
    *     +-------------------------------------------------------+
    *  B0 |                         CCW2                          |
    *     +-------------------------------------------------------+
    *  B8 |                         CCW3                          |
    *     +-------------------------------------------------------+
    *  C0 |                        DEFEXT                         |
    *     |                                                       |
    *     +-------------------------------------------------------+
    *  D0 |                        LOCATE                         |
    *     |                                                       |
    *     +-------------------------------------------------------+
    *  E0 |///////////////////////////////////////////////////////|
    *     |///////////////////////////////////////////////////////|
    *     +-------------------------------------------------------+
    *  F0 |                                                       |
    *     =                       SGIBAREA                        =
    *     |                                                       |
    *     +-------------------------------------------------------+
    * 148
    *
    *** DLJBK - Mapping of HCPDLJ and HCPDLK Common Area

DLJBK Cross Reference | Top of page

    Symbol         Dspl Value
    -------------- ---- -----
    BytesRead      0094
    CCWEYE         00A0
    CCW1           00A8
    CCW2           00B0
    CCW3           00B8
    CURR_CCHH      0084
    CURR_Dev       0064
    CURR_DevE      0068
    CURR_DevSz     008C
    CURR_Rec       0088
    CURR_RecFB     0074
    CURR_SizFB     0078
    DevOpen        006C 40
    DEFEXT         00C0
    DFIZ@          0028
    DFMBK@         001C
    DIAGA8RC       0090
    DLJEYE         0000
    DLJSIZE        00F0 00000148
    DLKFlags       006C
    DLKFBRC        0070
    DLKGRRC        0080
    GETNEXT        0030 80
    InDevTyp       000C
    LOCATE         00D0
    ReasCode       0058
    RecHeadPtr     0050
    RecPtr         0054
    REQ_CCHH       0040
    REQ_Dev        0060
    REQ_DevE       0038
    REQ_Last       0034
    REQ_Rec        0044
    REQ_RecFB      0048
    REQ_Type       0030
    SympRec@       0018
    SDSBK@         0024
    SDWBK@         0014
    SDXBK@         0020
    SGIBAREA       00F0
    TrkBuf@        003C

This information is based on z/VM 7.2.0 Last updated on 24 Jun 2020 at 09:27:47 EDT.
Copyright IBM Corporation, 1990, 2020