/********************************************************************/ 00090003
 /*          MACCOMP  Y30LB22          SC1DR/BL0019          @Y30LB22*/ 00092003
 /*          MACSTAT  Y30LB22          74/213/341040         @Y30LB22*/ 00094003
 /*                                                                   */00096003
 /*          NAME: IEZCPUID                                  @Y30LB22*/ 00098003
 /*                                                                   */00098403
 /*          FUNCTION: MAPPING MACRO                         @Y30LB22*/ 00098803
 /*          A CPU RECORD IS MAINTAINED  IN THE MSVI DATA    @Y30LB22*/ 00098903
 /*          SET TO RECORD CPU AFFINITY FOR THE MP AND JES3  @Y30LB22*/ 00099003
 /*          ENVIRONMENTS.                                   @Y30LB22*/ 00113803
 /*                                                                  */ 00121003
 /*          STATUS:  CHANGE LEVEL = 1                       @YM31134*/ 00128203
 /*                                                          @YM31134*/ 00135403
 /*   CHANGE-ACTIVITY = AS FOLLOWS                           @YM31134*/ 00137403
 /*      CHANGE 01 10/14/75 MSVI MULTI-HOST SHARABILITY      @YM31134*/ 00139403
 /*                                                          @YM31134*/ 00141403
 /********************************************************************/ 00142603
     DCL                                                                00149803
       1        CPUID BASED(CPUIDPTR) BDY(WORD),           /*@Y30LB22*/ 00250003
         2      CPUNAME   CHAR(13),  /* KEY-CPU RECORD       @Y30LB22*/ 00300003
         2      *         CHAR(1),   /* UNASSIGNED           @YM31134*/ 00350003
         2      CPUINEXT  FIXED(15), /* MSVI INDEX  EXTS     @YM31134*/ 00352003
         2      CPUDNEXT  FIXED(15), /* MSVI DATA   EXTS     @YM31134*/ 00360003
         2      CPUTYPE   BIT(16),   /* RECORD TYPE FLAG     @Y30LB22*/ 00400003
           3    CPURES1   BIT(6),    /* RESERVED             @Y30LB22*/ 00450003
           3    CPUASSOC  BIT(1),    /* CPU REAORD           @Y30LB22*/ 00500003
           3    CPURES2   BIT(9),    /* RESERVED             @Y30LB22*/ 00550003
         2      CPUMAP (16) CHAR(8), /* ARRAY WITH 16 SLOTS  @Y30LB22*/ 00600003
           3    CPUIDREC  CHAR(5),   /* ID OF CPU  RECORDED  @Y30LB22*/ 00650003
           3    *         CHAR(1),   /* UNASSIGNED           @Y30LB22*/ 00700003
           3    CPUMASK   BIT(16),   /* ASSOC MASK OF CPU    @Y30LB22*/ 00750003
         2      CPUPURGE  BIT(16),   /* CPU PURGE REQ'ED MAP @Y30LB22*/ 00800003
         2      *         CHAR(1);   /* UNASSIGNED           @Y30LB22*/ 00900003