*/********************************************************************/ 00050002
*/* MACMEAN GDGNT MEANS GENERATION DATA GROUP NAME TABLE             */ 00100002
*/* MACCOMP Y-2 SCIB4/PZD82                                          */ 00150002
*/* MACSTAT Y-2 72145/016138                                         */ 00200002
*/********************************************************************/ 00250002
*        %GOTO GDGNTBSL;               /*                               00300002
*                                                                       00350002
         MACRO                                                          00400002
         IEFZB429                                                       00450002
GDGNT    DSECT                         GDG NAME TABLE                   00500002
GNTNEXTP DS    AL3                     POINTER TO RECORD PREFIX OF      00550002
*                                      NEXT GDGNT                       00600002
GNTID    DS    X                       GDG NAME TABLE ID                00650002
GNTNEXTR DS    A                       POINTER TO RECORD OF NEXT GDGNT  00700002
GNTNAME  DS    CL35                    GDG GROUP NAME                   00750002
GNTBASE  DS    CL4                     GENERATION BASE NUMBER           00800002
         DS    CL117                   THREE MORE ENTRIES FOR THE GDG   00850002
*                                      GROUP NAME AND GENERATION BASE   00900002
*                                      NUMBER                           00950002
GNTENT   DS    X                       NUMBER OF ENTRIES IN GDGNT       01000002
         DS    XL11                    RESERVED                         01050002
         MEND  */                                                       01100002
        %GDGNTBSL: ;                                                    01150002
  DCL 1 GDGNT BASED(GDGNTPTR),         /* GDG NAME TABLE             */ 01200002
       2 GNTNEXTP PTR(24)BDY(WORD) ,  /* POINTER TO RECORD PREFIX   */  01250002
                                       /* OF NEXT GDGNT              */ 01300002
       2 GNTID CHAR(1),                /* GDG NAME TABLE ID          */ 01350002
       2 GNTNEXTR PTR(31),             /* POINTER TO RECORD OF NEXT  */ 01400002
                                       /* GDGNT                      */ 01450002
       2 GNTGRPEN(4) CHAR(39),         /* GDG NAME TABLE ENTRIES     */ 01500002
        3 GNTNAME CHAR(35),            /* GDG GROUP NAME             */ 01550002
        3 GNTBASE CHAR(4),             /* GENERATION BASE NUMBER     */ 01600002
       2 GNTENT FIXED(8),              /* NUMBER OF OF ENTRIES IN    */ 01650002
                                       /* GDGNT                      */ 01700002
       2 * CHAR(11);                   /* RESERVED                   */ 01750002