Programming Interface Information: This information is NOT intended to be
used as Programming Interfaces of z/VM.

DMSVIPWK

Prolog  

Control Block Contents  
   DMSVIPWK DSECT

Storage Layout  

Cross Reference (Contains links to field and bit definitions)  


DMSVIPWK Prolog

 Name       : DMSVIPWK
 Description: CMS VSAM Interface Work Area
 DSECT      : DMSVIPWK
 Function   : DMSVIPWK SERVES AS A WORKS AREA FOR USE BY
              DMSVIB, DMSVIP, AND DMSVSR.

 

DMSVIPWK Control Block Content


DMSVIPWK DSECT

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      DMSVIPWK       CMS VSAM Interface Work Area
0000    0 Signed       4 VIPSAVE (18)   DMSVIP SAVE (OS CONVENTION)
0048   72 Signed       4 EXITSAVE (18)  SAVE AREA FOR USER REGISTERS
     VIP FLAG:
0090  144 Bitstring    1 VIPINDC        INDICATOR BYTE
          .... ..11      EOJEXIT        X'03' TAKE EOJ EXIT
          .1.. ....      OPTDUMP        X'40' 'OPTION DUMP' IND IN BGCOM
0094  148 Signed       4 DLUTUCNT       FILEMODE USAGE CTR WORK AREA
0098  152 Character    1 DLUT (234)     DMSVIP TABLE OF LOGICAL UNITS
0182  386 Bitstring    1 DUMFLAG        DUMMY DATASET FLAG
          1... ....      DUMMIES        X'80' DUMMY DATASETS
          .1.. ....      DUMCAT         X'40' DUMMY CAT
0183  387 Character    1 DUMUNIT (3)    DUMMY UNIT
0186  390 Bitstring    1 VIPKEY         PSW key on entry to DMSVIP
0188  392 Dbl-Word     8 * (0)
0188  392 Character    1 DASSGN (32)    ASSGN CMD AREA
01A8  424 Dbl-Word     8 SEGSTOR (5)    SEGMENT MACRO WORK AREA (USED BY
                                        DMSVIB AND DMSVSR)
     SPECIAL VARIABLES (BEGINNING OF CHAIN POINTERS, ETC)
01D0  464 Signed       4 ACBMACB        ADDR OF OS ACB FOR SHOWCB/TESTCB
                                        ACB
01D4  468 Signed       4 ACBMERET       ADDR OF USER ERROR RETURN FOR
                                        TESTCB ACB
01D8  472 Signed       4 AVSEEXL1       ADDR OF VSE EXLST
01DC  476 Signed       4 AVSERPL1       ADDR OF FIRST VSE RPL IN VSE RPL
                                        CHAIN
01E0  480 Bitstring    1 ASYNC          ASYNCHONOUS PROCESSING IND
01E1  481 Bitstring    1 POSTECB        POST ECB INDICATOR
          .111 1111      SUCCESS        X'7F'
          .1.. ...1      PHYSICAL       X'41'
          .1.. ..1.      LOGICAL        X'42'
01E4  484 Signed       4 CALLERAM       Amode of user program
     PARAMETERS
01E8  488 Signed       4 RETCODE        VSAM RETURN CODE
01EC  492 Signed       4 R0RSNCDE       VSAM R0 REASON CODE (TESTCB)
01F0  496 Signed       4 TESTCBCC       VSAM TESTCB PSW CONDIT'N CODE
01F4  500 Signed       4 AOSLST         ADDR OF OS ACBLIST
01F8  504 Signed       4 AOSACB         ADDR OF OS ACB
01FC  508 Signed       4 AVSELST        ADDR OF VSE ACBLIST
0200  512 Signed       4 AVSEACB        ADDR OF VSE ACB
0204  516 Bitstring    2 VSEACBED       END OF VSE ACB LIST X'0A02'
0208  520 Signed       4 AOSEXL         ADDR OF OS EXLST
020C  524 Signed       4 AOSRPL         ADDR OF OS RPL
0210  528 Signed       4 AVSERPL        ADDR OF VSE RPL
0214  532 Signed       4 ACBCNT         COUNT OF ACBS IN ACBLIST
0218  536 Bitstring   21 JRNDPARM       PARAMETER PASS TO JRNAD
022D  557 Bitstring    5 JRNDDPTR       2ND PARAMETER LIST
0232  562 Bitstring    1 STRINGID       VSE RPL STRING ID
0233  563 Bitstring    1 OSEXLFLG       OS EXIT FLAGS
0234  564 Bitstring    1 EXITFLAG       USER EXIT INVOKED
          .... ...1      EODAD          X'01' END OF DATA
          .... ..1.      SYNAD          X'02' PHYSICAL ERROR
          .... .1..      LERAD          X'04' LOGICAL ERROR
          .... 1...      EXCPAD         X'08' I/O ERROR
          ...1 ....      JRNAD          X'10' JOURNAL
          ..1. ....      CHECK          X'20' CHECK (INTERNAL)
0238  568 Signed       4 AUSREXIT       ADDR OF USER EXIT INVOKED
023C  572 Signed       4 VSAMRET        ADDR OF VSE/VSAM TO RETURN TO
0240  576 Signed       4 VSAMR1         ADDR OF VSE/VSAM ERROR RPL
0248  584 Dbl-Word     8 TRACEIT        ADDR OF CNTL BLK TO BE TRACED
0250  592 Signed       4 STGSZ          SIZE OF SUB-ALLOC STORAGE
0254  596 Signed       4 ABLK           ADDR OF 4K BLOCK
0258  600 Signed       4 ASUBLK         ADDR OF SUB-ALLOCATED BLOCK
025C  604 Signed       4 AALTBLK        ADDR OF OS ALTERNATE BLOCK
     OBJECT HANDLER SAVE AREAS
0260  608 Signed       4 VIPBASES (3)   SAVE AREA FOR DMSVIP BASE REG
026C  620 Signed       4 DMRSV (3)      SAVE AREA FOR DATAMGMT ROUTINE
0278  632 Signed       4 CBMSV          SAVE AREA FOR CBMREQ ROUTINE
027C  636 Signed       4 OPCLSV         SAVE AREA FOR OPENCLOS ROUTINE
0280  640 Signed       4 OPNMAPSV (8)   SAVE AREA FOR OPEN MAP ERR RTN
02A0  672 Signed       4 CLSMAPSV (6)   SAVE AREA FOR CLOS MAP ERR RTN
02B8  696 Signed       4 DMEMAPSV (5)   SAVE AREA FOR MAP DMR MAP ERR
02CC  716 Signed       4 TRACESV (5)    SAVE AREA FOR TRACE UTILITY
02E0  736 Signed       4 ACBUSTSV (2)   SAVE AREA ACB OBJ HANDLER
02E8  744 Signed       4 ACBGEXSV (2)   SAVE AREA ACB OBJ HANDLER
02F0  752 Signed       4 ACBGALSV (2)   SAVE AREA ACB OBJ HANDLER
02F8  760 Signed       4 ACBBLDSV (3)   SAVE AREA ACB OBJ HANDLER
0304  772 Signed       4 ACBCPYSV (3)   SAVE AREA ACB OBJ HANDLER
0310  784 Signed       4 ACBFRESV (2)   SAVE AREA ACB OBJ HANDLER
0318  792 Signed       4 ACBSIDSV (3)   SAVE AREA ACB OBJ HANDLER
0324  804 Signed       4 ACBPLHSV (3)   SAVE AREA ACB OBJ HANDLER
0330  816 Signed       4 ACBSETSV (2)   SAVE AREA ACB OBJ HANDLER
0338  824 Signed       4 ACBRSTSV       SAVE AREA ACB OBJ HANDLER
033C  828 Signed       4 RPLCRCSV (4)   SAVE AREA RPL OBJ HANDLER
034C  844 Signed       4 RPLCPYSV (5)   SAVE AREA RPL OBJ HANDLER
0360  864 Signed       4 RECCPYSV (9)   SAVE, RECVOCPY
0384  900 Signed       4 RECALCSV (10)  SAVE, RECOVALC
03AC  940 Signed       4 RPLCPCSV (2)   SAVE AREA RPL OBJ HANDLER
03B4  948 Signed       4 RPLAJRSV (4)   SAVE AREA RPL OBJ HANDLER
03C4  964 Signed       4 RPLECBSV (2)   SAVE AREA RPL OBJ HANDLER
03CC  972 Signed       4 RPLCHKSV (2)   SAVE AREA RPL OBJ HANDLER
03D4  980 Signed       4 EXLCRTSV (3)   SAVE AREA EXLST OBJ HANDLER
03E0  992 Signed       4 EXLCPYSV (4)   SAVE AREA EXLST OBJ HANDLER
03F0 1008 Signed       4 EXLGFLSV       SAVE AREA EXLST OBJ HANDLER
03F4 1012 Signed       4 BLKALCSV (5)   SAVE AREA VIPBLK OBJ HANDLER
0408 1032 Signed       4 BLKINTSV (2)   SAVE AREA VIPBLK OBJ HANDLER
0410 1040 Signed       4 SUBALCSV (9)   SAVE AREA VIPSUBLK OBJ HAND.
0434 1076 Signed       4 SUBFRESV (5)   SAVE AREA VIPSUBLK OBJ HAND.
0448 1096 Signed       4 SUBGETSV       SAVE AREA VIPSUBLK OBJ HAND.
044C 1100 Signed       4 SUBPUTSV       SAVE AREA VIPSUBLK OBJ HAND.
     Area is initialised to hex zeroes in DMSVIB
          0000000A       TAB4BRP        10 Number of entries
0450 1104 Character    1 TAB4BFLG       Flag byte
0458 1112 Dbl-Word     8 TAB4B (0)      Start of table entry
0458 1112 Signed       4 TAB4BAD        Buffer pointer: LOC mode
045C 1116 Signed       4 TAB4BRAD       @ RPL using entry
          00000008       TAB4BELN       *-TAB4B Length of an entry
0458 1112 Character    1 * (80)         Table
04A8 1192 Signed       4 FRAADDR        Addr of free IO area
04AC 1196 Signed       4 FRASIZE        Size of free IO area
04B0 1200 Character    1 OCPLFMT        Flag of plist format
          11.1 .1.1      OCPNEW         C'N' .. new format
          11.1 .11.      OCPOLD         C'O' .. old format
04B1 1201 Bitstring    1 OSDMREQ        OS data mgmt req code
04B2 1202 Bitstring    4 TESTMACR       TESTCB ACB,MACRF element value
                                        passed by caller
04B8 1208 Dbl-Word     8 * (0)          Ensure a nice round length
          000004B8       DMSVIPSZ       *-DMSVIPWK LENGTH OF DMSVIPWK
                                        WORK AREA

 

DMSVIPWK Storage Layout

          
*** DMSVIPWK - CMS VSAM Interface Work Area
*
*     +-------------------------------------------------------+
*   0 |                                                       |
*     =                       VIPSAVE                         =
*     |                                                       |
*     +-------------------------------------------------------+
*  48 |                                                       |
*     =                       EXITSAVE                        =
*     |                                                       |
*     +------+--------------------+---------------------------+
*  90 |:INDC |////////////////////|         DLUTUCNT          |
*     +------+--------------------+---------------------------+
*  98 |                                                       |
*     =                         DLUT                          =
*     |             +------+--------------------+------+------+
* 180 |             |:FLAG |      DUMUNIT       |VIPKEY|//////|
*     +-------------+------+--------------------+------+------+
* 188 |                                                       |
*     =                        DASSGN                         =
*     |                                                       |
*     +-------------------------------------------------------+
* 1A8 |                                                       |
*     =                       SEGSTOR                         =
*     |                                                       |
*     +---------------------------+---------------------------+
* 1D0 |         ACBMACB           |         ACBMERET          |
*     +---------------------------+---------------------------+
* 1D8 |         AVSEEXL1          |         AVSERPL1          |
*     +------+------+-------------+---------------------------+
* 1E0 |ASYNC |:TECB |/////////////|         CALLERAM          |
*     +------+------+-------------+---------------------------+
* 1E8 |         RETCODE           |         R0RSNCDE          |
*     +---------------------------+---------------------------+
* 1F0 |         TESTCBCC          |          AOSLST           |
*     +---------------------------+---------------------------+
* 1F8 |          AOSACB           |         AVSELST           |
*     +---------------------------+-------------+-------------+
* 200 |         AVSEACB           |  VSEACBED   |/////////////|
*     +---------------------------+-------------+-------------+
* 208 |          AOSEXL           |          AOSRPL           |
*     +---------------------------+---------------------------+
* 210 |         AVSERPL           |          ACBCNT           |
*     +---------------------------+---------------------------+
* 218 |                                                       |
*     =                       JRNDPARM                        =
*     |                                  +--------------------+
*     |                                  |     JRNDDPTR-      |
*     +-------------+------+------+------+--------------------+
* 230 |   -(22D)    |:INGID|:XLFLG|:TFLAG|////////////////////|
*     +-------------+------+------+------+--------------------+
* 238 |         AUSREXIT          |         VSAMRET           |
*     +---------------------------+---------------------------+
* 240 |          VSAMR1           |///////////////////////////|
*     +---------------------------+---------------------------+
* 248 |                       TRACEIT                         |
*     +---------------------------+---------------------------+
* 250 |          STGSZ            |           ABLK            |
*     +---------------------------+---------------------------+
* 258 |          ASUBLK           |         AALTBLK           |
*     +---------------------------+---------------------------+
* 260 |                       VIPBASES                        |
*     |                           +---------------------------+
* 268 |                           |          DMRSV            |
*     +---------------------------+                           |
*     |                                                       |
*     +---------------------------+---------------------------+
* 278 |          CBMSV            |          OPCLSV           |
*     +---------------------------+---------------------------+
* 280 |                                                       |
*     =                       OPNMAPSV                        =
*     |                                                       |
*     +-------------------------------------------------------+
* 2A0 |                                                       |
*     =                       CLSMAPSV                        =
*     |                                                       |
*     +-------------------------------------------------------+
* 2B8 |                                                       |
*     =                       DMEMAPSV                        =
*     |                           +---------------------------+
* 2C8 |                           |                           |
*     +---------------------------+                           |
*     |                       TRACESV                         |
*     |                                                       |
*     +-------------------------------------------------------+
* 2E0 |                       ACBUSTSV                        |
*     +-------------------------------------------------------+
* 2E8 |                       ACBGEXSV                        |
*     +-------------------------------------------------------+
* 2F0 |                       ACBGALSV                        |
*     +-------------------------------------------------------+
* 2F8 |                       ACBBLDSV                        |
*     |                           +---------------------------+
* 300 |                           |         ACBCPYSV          |
*     +---------------------------+                           |
*     |                                                       |
*     +-------------------------------------------------------+
* 310 |                       ACBFRESV                        |
*     +-------------------------------------------------------+
* 318 |                       ACBSIDSV                        |
*     |                           +---------------------------+
* 320 |                           |         ACBPLHSV          |
*     +---------------------------+                           |
*     |                                                       |
*     +-------------------------------------------------------+
* 330 |                       ACBSETSV                        |
*     +---------------------------+---------------------------+
* 338 |         ACBRSTSV          |                           |
*     +---------------------------+                           |
*     |                       RPLCRCSV                        |
*     |                           +---------------------------+
* 348 |                           |                           |
*     +---------------------------+                           |
*     |                       RPLCPYSV                        |
*     |                                                       |
*     +-------------------------------------------------------+
* 360 |                                                       |
*     =                       RECCPYSV                        =
*     |                           +---------------------------+
*     |                           |                           |
*     +---------------------------+                           |
* 388 |                                                       |
*     =                       RECALCSV                        =
*     |                           +---------------------------+
*     |                           |        RPLCPCSV-          |
*     +---------------------------+---------------------------+
* 3B0 |          -(3AC)           |                           |
*     +---------------------------+                           |
*     |                       RPLAJRSV                        |
*     |                           +---------------------------+
*     |                           |        RPLECBSV-          |
*     +---------------------------+---------------------------+
* 3C8 |          -(3C4)           |        RPLCHKSV-          |
*     +---------------------------+---------------------------+
* 3D0 |          -(3CC)           |         EXLCRTSV          |
*     +---------------------------+                           |
*     |                                                       |
*     +-------------------------------------------------------+
* 3E0 |                       EXLCPYSV                        |
*     |                                                       |
*     +---------------------------+---------------------------+
* 3F0 |         EXLGFLSV          |                           |
*     +---------------------------+                           |
*     |                       BLKALCSV                        |
*     |                                                       |
*     +-------------------------------------------------------+
* 408 |                       BLKINTSV                        |
*     +-------------------------------------------------------+
* 410 |                                                       |
*     =                       SUBALCSV                        =
*     |                           +---------------------------+
* 430 |                           |                           |
*     +---------------------------+                           |
*     |                       SUBFRESV                        |
*     |                                                       |
*     +---------------------------+---------------------------+
* 448 |         SUBGETSV          |         SUBPUTSV          |
*     +------+--------------------+---------------------------+
* 450 |:4BFLG|////////////////////////////////////////////////|
*     +------+--------------------+---------------------------+
* 458 |         TAB4BAD           |         TAB4BRAD          |
*     +---------------------------+---------------------------+
* 460
*
*** DMSVIPWK - CMS VSAM Interface Work Area
          
*** Overlay for TAB4B in DMSVIPWK
*
*     +-------------------------------------------------------+
* 458 |///////////////////////////////////////////////////////|
*     =///////////////////////////////////////////////////////=
*     |///////////////////////////////////////////////////////|
*     +---------------------------+---------------------------+
* 4A8 |         FRAADDR           |         FRASIZE           |
*     +------+------+-------------+-------------+-------------+
* 4B0 |:LFMT |:MREQ |         TESTMACR          |/////////////|
*     +------+------+---------------------------+-------------+
* 4B8
*
*** Overlay for TAB4B in DMSVIPWK

 

DMSVIPWK Cross Reference

Symbol         Dspl Value
-------------- ---- -----
AALTBLK        025C
ABLK           0254
ACBBLDSV       02F8
ACBCNT         0214
ACBCPYSV       0304
ACBFRESV       0310
ACBGALSV       02F0
ACBGEXSV       02E8
ACBMACB        01D0
ACBMERET       01D4
ACBPLHSV       0324
ACBRSTSV       0338
ACBSETSV       0330
ACBSIDSV       0318
ACBUSTSV       02E0
AOSACB         01F8
AOSEXL         0208
AOSLST         01F4
AOSRPL         020C
ASUBLK         0258
ASYNC          01E0
AUSREXIT       0238
AVSEACB        0200
AVSEEXL1       01D8
AVSELST        01FC
AVSERPL        0210
AVSERPL1       01DC
BLKALCSV       03F4
BLKINTSV       0408
CALLERAM       01E4
CBMSV          0278
CHECK          0234 20
CLSMAPSV       02A0
DASSGN         0188
DLUT           0098
DLUTUCNT       0094
DMEMAPSV       02B8
DMRSV          026C
DMSVIPSZ       04B8 000004B8
DUMCAT         0182 40
DUMFLAG        0182
DUMMIES        0182 80
DUMUNIT        0183
EODAD          0234 01
EOJEXIT        0090 03
EXCPAD         0234 08
EXITFLAG       0234
EXITSAVE       0048
EXLCPYSV       03E0
EXLCRTSV       03D4
EXLGFLSV       03F0
FRAADDR        04A8
FRASIZE        04AC
JRNAD          0234 10
JRNDDPTR       022D
JRNDPARM       0218
LERAD          0234 04
LOGICAL        01E1 42
OCPLFMT        04B0
OCPNEW         04B0 D5
OCPOLD         04B0 D6
OPCLSV         027C
OPNMAPSV       0280
OPTDUMP        0090 40
OSDMREQ        04B1
OSEXLFLG       0233
PHYSICAL       01E1 41
POSTECB        01E1
RECALCSV       0384
RECCPYSV       0360
RETCODE        01E8
RPLAJRSV       03B4
RPLCHKSV       03CC
RPLCPCSV       03AC
RPLCPYSV       034C
RPLCRCSV       033C
RPLECBSV       03C4
R0RSNCDE       01EC
SEGSTOR        01A8
STGSZ          0250
STRINGID       0232
SUBALCSV       0410
SUBFRESV       0434
SUBGETSV       0448
SUBPUTSV       044C
SUCCESS        01E1 7F
SYNAD          0234 02
TAB4B          0458
TAB4BAD        0458
TAB4BELN       045C 00000008
TAB4BFLG       0450
TAB4BRAD       045C
TAB4BRP        044C 0000000A
TESTCBCC       01F0
TESTMACR       04B2
TRACEIT        0248
TRACESV        02CC
VIPBASES       0260
VIPINDC        0090
VIPKEY         0186
VIPSAVE        0000
VSAMRET        023C
VSAMR1         0240
VSEACBED       0204

This information is based on z/VM V4R1.0.
Last updated on 12 Jul 2001 at 13:46:27 EDT.
Copyright IBM Corporation, 1990, 2001