* /*                                                                 */ 03050002
* /* MACCOMP Y-2 SC1DE/SJD61                                         */ 03100002
* /* MACSTAT Y-2 73103/Y02113                                        */ 03150002
* /*                                                                 */ 03200002
   DCL 1 IDAVUCBL BASED BDY(WORD),      /* UCB LIST */                  03250002
         2 * BIT(8),                                                    06000000
           3 VUCBLID BIT(1),            /* INDICATES UCB LIST */        09000000
           3 *       BIT(1),            /* MUST BE ZERO */              12000000
           3 VUCBLFAE BIT(1),           /* UCB LIST FREED AT END */     15000000
         2 * CHAR(1),                                                   18000000
         2 VUCBLNBR FIXED(15),          /* NUMBER OF UCB ENTRIES */     21000000
         2 VUCBLVLA PTR(31),            /* POINTER TO VOLUME LIST */    24000000
         2 VUCBLENT (*),                                                27000000
           3 * BIT(8),                                                  30000000
             4 VUCBLALC BIT(1),         /* INDICATES UCB ALLOCATED */   33000000
             4 VUCBLBAD BIT(1),         /* VOLUME NOT DISMOUNTABLE */   36000000
           3 VUCBLADR PTR(24);          /* POINTER TO UCB */            39000000