Programming Interface Information: This information is NOT intended to be
used as Programming Interfaces of VM/ESA. It is to be used for diagnosis only.

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 * (TAB4BRP*TAB4BELN) 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 000000D5 OCPNEW C'N' .. new format 000000D6 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

(contains links to field and bit definitions)
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 000000D5

OCPOLD 04B0 000000D6

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 VM/ESA 2.4.0.
Last updated on 12 Aug 1999 at 11:19:38 EDT.
Copyright IBM Corporation, 1990, 1999