/********************************************************************/ 00010004
 /*                                                                  */ 00020004
 /*   MACRO NAME = IDACMB                                            */ 00030004
 /*                                                                  */ 00040004
 /*   DESCRIPTIVE NAME = CLUSTER MANAGEMENT BLOCK.                   */ 00050004
 /*                                                                  */ 00060004
 /*   FUNCTION = THE CMB POINTS TO CORE BLOCK HEADERS WHICH REFLECT  */ 00070004
 /*              GOTTEN CORE FOR AN ESDS OR A KSDS CONTROL BLOCK     */ 00080004
 /*              STRUCTURE.                                          */ 00090004
 /*                                                                  */ 00100004
 /*   CONTROL BLOCK STRUCTURE = POINTED TO BY THE AMBL (AMBLCMB).    */ 00110004
 /*                                                                  */ 00120004
 /*   INCLUDED MACROS = NONE                                         */ 00130004
 /*                                                                  */ 00140004
 /*   METHOD OF ACCESS = PL/S - RESPECIFY IDACMB BASED.              */ 00150004
 /*                                                                  */ 00160004
 /*   CREATED BY: VSAM OPEN MODULE IDA0192F.                         */ 00170004
 /*                                                                  */ 00180004
 /*   STATUS = VS2 RELEASE 3.                                        */ 00190003
 /*                                                                  */ 00200004
 /*   DATE OF LAST CHANGE = 10/22/74                                 */ 00210003
 /*                                                                  */ 00220004
 /********************************************************************/ 00230004
 DCL 1 IDACMB BASED,                /* CLUSTER MANAGEMENT BLOCK      */ 01400004
       2 CMBID    CHAR(1),          /* CONTROL BLOCK ID              */ 01500004
       2 *        CHAR(1),          /* UNUSED                        */ 01600004
       2 CMBLEN   FIXED(15),        /* LENGTH OF CMB                 */ 01700004
       2 CMBFLGS BIT(8),            /* INDICATOR FLAGS               */ 01710004
         3 CMBOUT BIT(1),           /* STRUCTURE ALLOWS OUTPUT       */ 01720004
       2 CMBNST CHAR(1),            /* NUMBER OF STRINGS             */ 01800004
       2 CMBCNT   FIXED(15),        /* NUMBER OF ENTRIES IN CMB      */ 01900004
       2 CMBPTRS,                   /* PTR'S TO STORAGE BLOCKS       */ 02000004
         3 CMBUSRPT PTR(31),        /* USER BLOCK HEADER             */ 02100003
         3 CMBPRPTR PTR(31),        /* PROTECT BLOCK HEADER          */ 02200003
         3 CMBSTPTR PTR(31),        /* NON-PROTECTED STRING BLK HDR  */ 02300003
         3 CMBUSPTR PTR(31),        /* NON-PROT UPGR STRING BLK HDR  */ 02400003
         3 CMBFSTPT PTR(31),        /* VS2 - GLOBAL FIXED STRING BLOCK  02500003
                                       HEADER                @ZA04718*/ 02550003
         3 CMBUFSPT PTR(31),        /* VS2 - GLOBAL UPGRADE FIXED       02600003
                                       STRING BLOCK HEADER   @ZA04718*/ 02650003
         3 CMBBFRPT PTR(31),        /* BUFFER BLOCK HEADER           */ 02700003
         3 CMBUBFPT PTR(31),        /* UPGRADE BUFFER BLOCK HEADER   */ 02800003
         3 CMBDEBPT PTR(31),        /* DEB BLOCK HEADER              */ 02900003
         3 CMBEDBPT PTR(31),        /* EDB BLOCK HEADER              */ 03000003
         3 CMBPSTPT PTR(31),        /* VS2 - PROTECTED STRING BLK HDR*/ 03100003
         3 CMBPUSPT PTR(31),        /* VS2 - PROT UPGR STRING BLK HDR*/ 03200003
         3 CMBFXDPT PTR(31),        /* FIXED BLOCK HEADER    @ZA04718*/ 03250003
         3 * PTR(31);               /* RESERVED              @ZA04718*/ 03350003