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