/********************************************************************/ 03000003
 /*                                                                  */ 03100003
 /*   MACRO NAME = IEZCTGWA                                          */ 03200003
 /*                                                                  */ 03300003
 /*   DESCRIPTIVE NAME = VSAM CATALOG SCHEDULER WORKAREA             */ 03400003
 /*                                                                  */ 03500003
 /*   FUNCTION = MAPPING MACRO FOR THE VSAM CATALOG                  */ 03600003
 /*              SCHEDULER WORKAREA.                                 */ 03700003
 /*                                                                  */ 03800003
 /*   CONTROL BLOCK STRUCTURE = THE CTGWA IS POINTED TO BY THE       */ 03900003
 /*                             CTGPL (CTGWKA).                      */ 04000003
 /*                                                                  */ 04100003
 /*   INCLUDED MACROS = NONE                                         */ 04200003
 /*                                                                  */ 04300003
 /*   METHOD OF ACCESS = PL/S - NO DECLARES NECESSARY                */ 04400003
 /*                                                                  */ 04500003
 /*   STATUS = VS/2 RELEASE 3   (CHANGE FLAG @Y30SSXX)               */ 04600003
 /*                                                                  */ 04700003
 /*   DATE OF LAST CHANGE = 18 JUL 74                                */ 04800003
 /*                                                                  */ 04900003
 /********************************************************************/ 05000003
 %DECLARE (CTGWALEN, CTGWA999, CTGWALVL) CHAR;                          05100003
*%CTGWALEN = 'LENGTH(CTGWA)';       /* LENGTH OF CTGWA               */ 05200003
*%IF CTGWA999 ^= ','                /* IF BLOCK NOT CONTINUED,       */ 15000003
*  %THEN %CTGWA999 = ';';           /*   THEN CLOSE DECLARE STMNT    */ 18000003
*%IF CTGWALVL  = ''                 /* IF BLOCK NOT CONCATENATED,    */ 21000003
*  %THEN %GOTO CTGWA001;            /*   THEN GENERATE DECLARE       */ 24000003
*%CTGWADUM = CTGWALVL||' CTGWA';    /* SET MINOR LEVEL NUMBER        */ 27000003
*   CTGWADUM                        /* CTGWA CONCATENATED LEVEL      */ 30000003
*%GOTO CTGWA002;                    /* SKIP DECLARE                  */ 33000003
*%CTGWA001:;                        /* DECLARE                       */ 36000003
    DECLARE                                                             37000003
*     1 CTGWA BASED(CTGWKA)         /* DECLARE CTGWA LEVEL ONE       */ 39000003
*%CTGWA002:;                        /* SKIP DECLARE                  */ 42000003
*               BDY(WORD),          /* WORD BOUNDARY                 */ 45000003
*       5 CTGWAVL  PTR(31),         /* VOLUME LIST ADDRESS           */ 48000003
*       5 CTGWALV  FIXED(15),       /* VOLUME LIST LENGTH            */ 51000003
*       5 CTGWAVCT FIXED(15),       /* NUMBER OF VOLUME ENTRIES IN   */ 54000003
*                                   /*   VOLUME LIST                 */ 57000003
*       5 CTGWAUCT FIXED(15),       /* MINIMUM UNIT COUNT            */ 60000003
*       5 CTGWAGCT FIXED(15),       /* COUNT OF GENERATIONS    Y02020*/ 60050003
*       5 CTGWAGB  PTR(31) CTGWA999 /* POINTER TO G0000V00     Y02020*/ 60100003