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