| |
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' EOJEXIT TAKE EOJ EXIT
.1.. .... OPTDUMP X'40' OPTDUMP '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' DUMMIES DUMMY DATASETS
.1.. .... DUMCAT X'40' DUMCAT 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' SUCCESS
.1.. ...1 PHYSICAL X'41' PHYSICAL
.1.. ..1. LOGICAL X'42' LOGICAL
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' EODAD END OF DATA
.... ..1. SYNAD X'02' SYNAD PHYSICAL ERROR
.... .1.. LERAD X'04' LERAD LOGICAL ERROR
.... 1... EXCPAD X'08' EXCPAD I/O ERROR
...1 .... JRNAD X'10' JRNAD JOURNAL
..1. .... CHECK X'20' CHECK 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' OCPNEW new format
11.1 .11. OCPOLD C'O' OCPOLD 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
| |