/********************************************************************/ 00200003
 /*          MACCOMP  Y30LB22          SC1DR/BL0019          @Y30LB22*/ 00250003
 /*          MACSTAT  Y30LB22          74/192/341040         @Y30LB22*/ 00300003
 /*                                                                   */00350003
 /*          NAME: IEZDUPV                                   @Y30LB22*/ 00400003
 /*                                                                   */00450003
 /*          FUNCTION: MAPPING MACRO                         @Y30LB22*/ 00500003
 /*          A DUPLICATE VOLUME RECORD EXISTS FOR EACH       @Y30LB22*/ 00502003
 /*          VOLUME ENTERED INTO THE MASS STORAGE FACILITY   @Y30LB22*/ 00504003
 /*          AT THE CARTRIDGE ACCESS STATION, PROVIDED       @Y30LB22*/ 00506003
 /*          THE VOLUME SERIAL NUMBER OF THE VOLUME          @Y30LB22*/ 00508003
 /*          BEING ENTERED IS DUPLICATED BY AN EXISTING      @Y30LB22*/ 00508403
 /*          VOLUME ALREADY REPRESENTED IN THE MSVI DATA SET @Y30LB22*/ 00508803
 /*                                                                   */00550003
 /*          STATUS:  CHANGE LEVEL = 0                       @Y30LB22*/ 00600003
 /*                                                                   */00650003
 /********************************************************************/ 00700003
     DCL                                                                00750003
       1        DUPV BASED(DUPVPTR) BDY(WORD),             /*@Y30LB22*/ 01000003
         2      DUPNAME   CHAR(13),  /* KEY OF VOLUME        @Y30LB22*/ 01050003
           3    DUPD      CHAR(5),   /* 'D' AND 4 BLANKS     @Y30LB22*/ 01100003
           3    DUPSERNO  CHAR(6),   /* VOLUME SER. NO.      @Y30LB22*/ 01150003
           3    DUPID     CHAR(2),   /* RECORD ID FOR VOLUME @Y30LB22*/ 01200003
             4  DUPBLANK  CHAR(1),   /* BLANK                @Y30LB22*/ 01250003
             4  DUPNO     FIXED(8),  /* BIN NO OF DUPLICATE  @Y30LB22*/ 01300003
         2      DUPRES5   CHAR(1),   /* RESERVED             @Y30LB22*/ 01310003
         2      DUPFLAGA  BIT(32),   /* INDICATOR FLAGS      @Y30LB22*/ 01350003
           3    DUPTYPE   BIT(16),   /* RECORD TYPE FLAGS    @Y30LB22*/ 01400003
             4  DUPRES1   BIT(5),    /* RESERVED             @Y30LB22*/ 01450003
             4  DUPDUPLR  BIT(1),    /* DUPL. VOL SER NO REC @Y30LB22*/ 01500003
             4  DUPRES2   BIT(10),   /* RESERVED             @Y30LB22*/ 01550003
           3    *         BIT(16),   /* RESERVED             @Y30LB22*/ 01600003
         2      *         BIT(16),   /* UNASSIGNED           @Y30LB22*/ 01650003
         2      DUPRCVYF  BIT(32),   /* RECOVERY FIELDS      @Y30LB22*/ 01660003
           3    DUPSATIA  BIT(16),   /* STATUS INDICATOR     @Y30LB22*/ 01700003
           3    DUPMISCF  BIT(16),   /* MISCL. FLAGS         @Y30LB22*/ 01710003
         2      DUPCSN1   CHAR(12),  /* SER NO. OF 1ST CART. @Y30LB22*/ 01750003
         2      DUPLIB1   FIXED(8),  /* ID OF LIB FOR CSN1   @Y30LB22*/ 01800003
           3    DUPRES3   BIT(6),    /* RESERVED             @Y30LB22*/ 01810003
           3    DUPLID1   BIT(2),    /* LIBRARY ID 1         @Y30LB22*/ 01820003
             4  DUP1BIT1  BIT(1),    /* LIBRARY NO.          @Y30LB22*/ 01830003
             4  DUP1BIT2  BIT(1),    /* LIBRARY NO.          @Y30LB22*/ 01840003
         2      DUPCSN2   CHAR(12),  /* SER NO. OF 2ND CART. @Y30LB22*/ 01850003
         2      DUPLIB2   FIXED(8),  /* ID OF LIB FOR CSN2   @Y30LB22*/ 01900003
           3    DUPRES4   BIT(6),    /* RESERVED             @Y30LB22*/ 01910003
           3    DUPLID2   BIT(2),    /* LIBRARY ID 2         @Y30LB22*/ 01920003
             4  DUP2BIT1  BIT(1),    /* LIBRARY NO.          @Y30LB22*/ 01930003
             4  DUP2BIT2  BIT(1),    /* LIBRARY NO.          @Y30LB22*/ 01940003
         2      *         CHAR(15);  /* UNUSED               @Y30LB22*/ 01950003