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
|
