/********************************************************************/ 03000003
 /*                                                                  */ 03100003
 /*   MACRO NAME = IEZCTGCV                                          */ 03200003
 /*                                                                  */ 03300003
 /*   DESCRIPTIVE NAME = VSAM CATALOG CONTROL VOLUME LIST            */ 03400003
 /*                                                                  */ 03500003
 /*   FUNCTION = MAPPING FOR THE OS/VS SYSTEM CATALOG CVOL ENTRY     */ 03600003
 /*                                                                  */ 03700003
 /*   CONTROL BLOCK STRUCTURE = IF THE REQUEST IS 'SUPERLOCATE',     */ 03800003
 /*                             THE CTGCV IS POINTED TO BY THE       */ 03900003
 /*                             CTGPL (CTGCVOL).                     */ 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 = 17 JUL 74                                */ 04800003
 /*                                                                  */ 04900003
 /********************************************************************/ 05000003
 %DECLARE (CTGCVLEN, CTGCV999, CTGCVLVL) CHAR;                          05100003
*%CTGCVLEN = 'LENGTH(CTGCV)';       /* LENGTH OF CTGCV               */ 05200003
*%IF CTGCV999 ^= ','                /* IF BLOCK NOT CONTINUED,       */ 15000003
*  %THEN %CTGCV999 = ';';           /*   THEN CLOSE DECLARE STMNT    */ 18000003
*%IF CTGCVLVL  = ''                 /* IF BLOCK NOT CONCATENATED,    */ 21000003
*  %THEN %GOTO CTGCV001;            /*   THEN GENERATE DECLARE       */ 24000003
*%CTGCVDUM = CTGCVLVL||' CTGCV';    /* SET MINOR LEVEL NUMBER        */ 27000003
*   CTGCVDUM                        /* CTGCV CONCATENATED LEVEL      */ 30000003
*%GOTO CTGCV002;                    /* SKIP DECLARE                  */ 33000003
*%CTGCV001:;                        /* DECLARE                       */ 36000003
*   DECLARE                                                             37000003
*     1 CTGCV BASED(CTGCVOL)        /* DECLARE CTGCV LEVEL ONE       */ 39000003
*%CTGCV002:;                        /* SKIP DECLARE                  */ 42000003
*        BDY(WORD),                 /* WORD BOUNDARY                 */ 45000003
*       5 CTGCVVOL CHAR(6),         /* CVOL VOLUME SERIAL            */ 48000003
*                                   /* VOLUME SER OF CATALOG   Y02020*/ 48050003
*       5 CTGCVDSN CHAR(44),        /* CATALOG NAME            Y02020*/ 48100003
*         10 CTGCVDEV CHAR(4),      /* CVOL DEVICE TYPE        Y02020*/ 48150003
*       5 CTGCVCC CHAR(44) CTGCV999 /* ALIAS NAME OR CONNECTOR Y02020*/ 51000003