/********************************************************************/ 03000003
 /*                                                                  */ 03100003
 /*   MACRO NAME = IEZCTGVL                                          */ 03200003
 /*                                                                  */ 03300003
 /*   DESCRIPTIVE NAME = VSAM CATALOG VOLUME LIST AND EXTENSION      */ 03400003
 /*                                                                  */ 03500003
 /*   FUNCTION = MAPPING MACRO FOR THE CATALOG VOLUME LIST           */ 03600003
 /*              AND THE VOLUME LIST EXTENSION.                      */ 03700003
 /*                                                                  */ 03800003
 /*   CONTROL BLOCK STRUCTURE = THE CTGVL IS POINTED TO BY THE       */ 03900003
 /*                             CTGWA (CTGWAVL).                     */ 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
 /*                                                                  */ 04900003
 /*   DATE OF LAST CHANGE = 18 JUL 74                                */ 05000003
 /*                                                                  */ 05100003
 /********************************************************************/ 05200003
 %DECLARE (CTGVLLEN, CTGVLXLN, CTGVL999, CTGVLLVL) CHAR;                05300003
*%CTGVLLEN = 'LENGTH(CTGVL)';       /* LENGTH OF CTGVL               */ 05400003
*%CTGVLXLN = 'LENGTH(CTGVLX)';      /* LENGTH OF CTGVLX              */ 05500003
*%IF CTGVL999 ^= ','                /* IF BLOCK NOT CONTINUED,       */ 15000003
*  %THEN %CTGVL999 = ';';           /*   THEN CLOSE DECLARE STMNT    */ 18000003
*%IF CTGVLLVL  = ''                 /* IF BLOCK NOT CONCATENATED,    */ 21000003
*  %THEN %GOTO CTGVL001;            /*   THEN GENERATE DECLARE       */ 24000003
*%CTGVLDUM = CTGVLLVL||' CTGVL(*)'; /* SET MINOR LEVEL NUMBER        */ 27000003
*   CTGVLDUM                        /* CTGVL CONCATENATED LEVEL      */ 30000003
*%GOTO CTGVL002;                    /* SKIP DECLARE                  */ 33000003
*%CTGVL001:;                        /* DECLARE                       */ 36000003
 /********************************************************************/ 36600003
 /*                     CATALOG  VOLUME  LIST                        */ 37200003
 /********************************************************************/ 37800003
    DECLARE                                                             38400003
*     1 CTGVL(*) BASED(CTGWAVL)     /* DECLARE CTGVL LEVEL ONE       */ 39000003
*%CTGVL002:;                        /* SKIP DECLARE                  */ 42000003
*                   BDY(WORD),      /* WORD BOUNDARY                 */ 45000003
*       5 CTGVLVOL CHAR(6),         /* VOLUME SERIAL NUMBER          */ 48000003
*       5 CTGVLDEV CHAR(4),         /* DEVICE TYPE                   */ 51000003
*       5 CTGVLSEQ FIXED(15);       /* FILE SEQUENCE NUMBER          */ 54000003
 /********************************************************************/ 54700003
 /*                     VOLUME  LIST  EXTENSION                      */ 55400003
 /********************************************************************/ 56100003
    DECLARE                                                             57000003
*     1 CTGVLX BASED(ADDR(CTGVL))   /* VOLUME LIST EXTENSION         */ 60000003
*                BDY(WORD),         /* WORD BOUNDARY                 */ 63000003
*       5 *        CHAR(LENGTH(CTGVL)), /* VOLUME LIST BASE          */ 66000003
*       5 CTGVLTTR CHAR(3) CTGVL999 /* FORMAT 1 DSCB TTR             */ 69000003