/********************************************************************/ 00050004 /* */ 00100004 /* MACRO NAME = IDAVSRT */ 00150004 /* */ 00200004 /* DESCRIPTIVE NAME = VSAM SHARED RESOURCE TABLE. */ 00250004 /* */ 00300004 /* FUNCTION = THE VSRT CONTAINS POINTERS TO BUFFER AND PLH POOLS */ 00350004 /* AS WELL AS POINTERS TO VARIOUS BLOCKS BUILT BY THE */ 00400004 /* BLDVRP ROUTINES. */ 00450004 /* */ 00500004 /* CONTROL BLOCK STRUCTURE = CHAINED OFF THE VAT (LSR OPTION) OR */ 00510004 /* THE AMCBS (GSR OPTION). */ 00520004 /* */ 00530004 /* INCLUDED MACROS = NONE */ 00540004 /* */ 00542004 /* METHOD OF ACCESS = PL/S - RESPECIFY IDAVSRT BASED. */ 00544004 /* */ 00546004 /* CREATED BY: VSAM OPEN MODULE IDA0192Y. */ 00548004 /* */ 00548404 /* STATUS = VS2 RELEASE 4. @Z40ESSR*/ 00548804 /* */ 00549204 /* DATE OF LAST CHANGE = 31 JAN. 75. @Z40ESSR*/ 00549604 /* */ 00570003 /********************************************************************/ 00580003 DCL 1 IDAVSRT BASED BDY (WORD), /* VSAM SHARED RESOURCE POOL */ 00590003 2 VSRTBKID CHAR (1), /* BLOCK ID */ 00600004 2 VSRTKEY FIXED(8), /* KEY OF GSR USER @Z40ESSR*/ 00650004 2 VSRTLEN FIXED (15), /* VSRT LENGTH IN BYTES */ 00700004 2 VSRTID CHAR (8), /* BLOCK IDENTIFIER */ 00750004 2 VSRTFLGS, /* FLAG BYTES */ 00800004 3 VSRTGSRF BIT (1), /* ON INDICATES GSR OPTION */ 00850004 3 VSRTLSRF BIT (1), /* ON INDICATES LSR OPTION */ 00900004 3 VSRTIOBF BIT (1), /* ON INDICATES IOB'S FIXED */ 00910004 3 VSRTBFRF BIT (1), /* ON INDICATES BUFFERS FIXED */ 00920004 3 * BIT (12), /* RESERVED */ 00950004 2 VSRTKL FIXED (8), /* MAX KEY LENGTH */ 01000004 2 VSRTSTRN FIXED (8), /* STRNO FROM BLDVRP MACRO */ 01050004 2 VSRTPLHH PTR (31), /* POINTER TO PLH HEADER */ 01100004 2 VSRTBUFH PTR (31), /* POINTER TO BUFFER HEADER */ 01150004 2 VSRTCPAH PTR (31), /* POINTER TO CPA HEADER */ 01200004 2 VSRTWAH PTR (31), /* POINTER TO WORKAREA HEADER */ 01250004 2 VSRTVIOT PTR (31), /* POINTER TO VIOT (0 IN VS1) */ 01300004 2 VSRTASCB PTR(31), /* ADDRS OF ORIGINATING ASCB IF GSR. */ 01310003 2 VSRTNEXT PTR(31), /* ADDR OF NEXT VSRT */ 01320004 2 VSRTCSL (*), /* ENTRIES FOR GOTTEN STORAGE */ 01350004 3 VSRTCSLF, /* FLAGS */ 01400004 4 VSRTCSFX BIT (1), /* ON INDICATES FIXED STORAGE */ 01450004 4 VSRTCSVS BIT (1), /* INDICATES BLOCK IS VSRT */ 01500004 4 VSRTCSBF BIT (1), /* INDICATES BLOCK IS BUFFER */ 01550004 5 VSRTCSGT BIT(1), /*GSR KEY(VSRTKEY) CORE IND @Z40ESSR*/ 01560004 4 VSRTCSPF BIT (1), /* INDICATES PFL BLOCK */ 01600004 5 VSRTCSVG BIT(1), /* INDIC VGTT PREFIX BLK @Z30SSDP*/ 01610003 4 VSRTCSWS BIT (1), /* INDICATES BLOCK IS WORKING 01650004 STORAGE */ 01660004 4 VSRTCSPL BIT (1), /* INDICATES BLOCK IS PLH'S */ 01670004 4 VSRTCSIO BIT (1), /* INDICATES BLOCK IS IOB'S */ 01680004 4 VSRTCSBH BIT (1), /* INDICATES BLOCK IS BUFFER */ 01690004 3 VSRTCSAD PTR (24), /* POINTER TO GOTTEN STORAGE */ 01700004 3 VSRTCSSP FIXED (8), /* SUBPOOL NUMBER */ 01750004 3 VSRTCSLN FIXED (24); /* LENGTH OF GOTTEN STORAGE */ 01800003