|
Programming Interface Information:
This information is NOT intended to be used as Programming Interfaces of z/VM. |
DMSVIPWK
Control Block Contents
DMSVIPWK DSECT
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
Last updated on 1 May 2002 at 14:16:26 EDT.
Copyright IBM Corporation, 1990, 2002