* %GOTO DSNQPLS1; /* @ZA03544 00050003 MACRO 00100002 IEFZB902 00150002 * */ 00200002 * %DSNQPLS1: ; 00250002 * /*******************************************************************/ 00300002 * /* DATA SET ENQ TABLE */ 00350002 * /*******************************************************************/ 00500002 * %GOTO DSNQPLS2; /* 00550002 * MACMEAN DSENQ MEANS DATA SET ENQUEUE TABLE 00560002 * MACCOMP Y-2 SC1B9/PZD83 @ZA03544 00570003 * MACSTAT Y-2 75041/ZA03544 @ZA03544 00580003 DSNQTABL EQU * 00600002 DSNQSVA DS CL3 SVA OF THIS RECORD Y02668 00650002 DSNQID DS CL1 DSENQ ID X'0F' Y02668 00700002 DSNQTID EQU X'0F' INITIALIZE TABLE ID FIELD Y02668 00702002 DSNQNSVA DS CL3 SVA OF NEXT DSENQ RECORD Y02668 00710002 DSNQRS01 DS CL1 RESERVED Y02668 00720002 DSNQNEXT DS CL4 IN-CORE ADDRESS OF NEXT RECORDY02668 00730002 DSNQFREE DS CL2 NO. OF FREE BYTES IN RECORD Y02668 00740002 DSNQNTRY EQU * DSNAME ENTRY Y02668 00742002 DSNQSTEP DS CL1 NO. STEP LAST REFERENCED Y02668 00746002 DSNQFLG1 DS CL1 FLAGS Y02668 00748002 DSNQSHR EQU 128 SHARED Y02668 00748402 DSNQDSNL DS CL1 LENGTH OF DSNAME Y02668 00748802 DSNQDSN EQU * DSNAME Y02668 00749202 DSNQLEN EQU DSNQTABL+176 Y02668 00749602 MEND , */ 00800002 * %DSNQPLS2: ; 00850002 * 00900002 * /* MACMEAN DSENQ MEANS DATA SET ENQUEUE TABLE */ 00910002 * /* MACCOMP Y-2 SC1B9/PZD83 @ZA03544*/ 00920003 * /* MACSTAT Y-2 75041/ZA03544 @ZA03544*/ 00930003 * DCL 00950002 * 1 DSNQTABL CHAR(176) BASED(DSNQPTR) BDY(WORD), /*DSENQ TABLE */ 01000002 * 2 DSNQSVA CHAR(3), /*SVA OF THIS RECORD */ 01050002 * 2 DSNQID CHAR(1), /*DSENQ ID - 0F */ 01100002 * 2 DSNQNSVA CHAR(3), /*SVA OF NEXT DSENQ RECORD */ 01150002 * 2 DSNQRS01 CHAR(1), /*RESERVED */ 01200002 * 2 DSNQNEXT PTR(31), /*IN-CORE ADDR OF NEXT RECORD */ 01250002 * 2 DSNQFREE FIXED(15), /*NUM FREE BYTES IN THIS RECRD*/ 01300002 * 2 DSNQENTS CHAR(162); /*DSNAME ENTRIES */ 01350002 * 01400002 * DCL 01450002 * 1 DSNQNTRY BASED(DSNQENTP), /*DSNAME ENTRY */ 01500002 * 2 DSNQSTEP CHAR(1), /*NUM OF STEP LAST REFERENCED */ 01550002 * 2 DSNQFLG1 CHAR(1), /*FLAGS */ 01650002 * 3 DSNQSHR BIT(1), /*SHARED USAGE IF ON, 01700002 EXCLUSIVE USAGE IF OFF */ 01750002 * 3 DSNQRS02 BIT(7), /*RESERVED */ 01800002 * 2 DSNQDSNL FIXED(8), /*LENGTH OF DSNAME */ 01850002 * 2 DSNQDSN CHAR(*); /*DSNAME */ 01900002 * DCL DSNQTID BIT(8) CONSTANT('0F'X); /*DSENQ TABLE ID */ 01950002