* %GOTO DSNTPLS1; /* @ZA03545 00050003 MACRO 00100002 IEFDSNT 00150002 * */ 00200002 * %DSNTPLS1: ; 00250002 * /*******************************************************************/ 00300002 * /* Y02668*/ 00350002 * /* DATA SET NAME TABLE Y02668*/ 00400002 * /* Y02668*/ 00450002 * /*******************************************************************/ 00500002 * %GOTO DSNTPLS2; /* 00550002 * MACMEAN DSNT MEANS DATA SET NAME TABLE Y02668 00600002 * MACCOMP Y-2 SC1B9/PZD83 @ZA03545 00650003 * MACSTAT Y-2 75041/ZA03545 @ZA03545 00680003 DSNTABLE EQU * Y02668 00750002 DSNTSVA DS CL3 SVA OF THIS RECORD Y02668 00800002 DSNTID DS CL1 TABLE ID Y02668 00850002 DSNTTID EQU X'07' TABLE ID X'07' Y02668 00900002 DSNTNSVA DS CL3 SVA OF NEXT RECORD Y02668 00950002 DS CL1 RESERVED Y02668 01000002 DSNENTRY DS CL168 DATA SET NAMES Y02668 01050002 DSNTBLN EQU DSNTABLE+168 Y02668 01060002 DSNTLN EQU DSNTABLE+176 Y02668 01100002 MEND , */ 01150002 * %DSNTPLS2: ; 01200002 * 01250002 * /* MACMEAN DSNT MEANS DATA SET NAME TABLE Y02668 */ 01300002 * /* MACCOMP Y-2 SC1B9/PZD83 @ZA03545 */ 01350003 * /* MACSTAT Y-2 75041/ZA03545 @ZA03545 */ 01380003 * DCL 01450002 * 1 DSNTABLE CHAR(176) BASED(DSNTPTR) BDY(WORD), /*DSN TABLE Y02668*/ 01500002 * 2 DSNTSVA CHAR(3), /* SVA OF THIS RECORD Y02668*/ 01550002 * 2 DSNTID CHAR(1), /* TABLE ID Y02668*/ 01600002 * 2 DSNTNSVA CHAR(3) BDY(WORD), /* SVA OF NEXT RECORD Y02668*/ 01650002 * 2 * CHAR(1), /* RESERVED Y02668*/ 01700002 * 2 DSNENTRY CHAR(168); /* DATA SET NAMES Y02668*/ 01750002 * DCL DSNTTID BIT(8) CONSTANT('07'X); /* TABLE ID X'07' Y02668*/ 01800002 * DCL DSNTBLN FIXED(31) CONSTANT(168); /* LENGTH OF DSNAME Y02668*/ 01850002 * DCL DSNTLN FIXED(31) CONSTANT(176); /* LENGTH OF DSN TABLE Y02668*/ 01900002