/************************************************************/ 02000003
         /*                                                          */ 04000003
         /*  'REMOVEVR' FUNCTION DATA TABLE DECLARATIONS             */ 06000003
         /*                                                          */ 08000003
         /************************************************************/ 10000003
 %IF BASEFDT = 'YES'                                                    12000003
   %THEN                                                                14000003
     %GO TO BASEFDT1;                                                   16000003
                                                                        18000003
         DCL 1 FDTTBL      BDY(WORD),                                   20000003
 %GO TO BASEFDT2;                                                       22000003
 %BASEFDT1:;                                                            24000003
                                                                        26000003
         DCL 1 FDTTBL      BASED   BDY(WORD),                           28000003
 %BASEFDT2:;                                                            30000003
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 32000003
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 34000003
                                                                        36000003
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 38000003
                                                                        40000003
         /* VOLUME SERIAL NUMBERS                                    */ 42000003
         DCL 1   VOL BASED(FDTPTR(  1)) BDY(HWORD),                     44000003
               2   VOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 46000003
               2   VOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 48000003
                                                                        50000003
         /* 'ALL' PARAMETER                                          */ 52000003
         DCL  ALLC    BASED(FDTPTR(  2));                               54000003
                                                                        56000003
         /* 'COPYDATE' PARAMETER                                     */ 58000003
         DCL CDATE    BASED(FDTPTR(  3));                               60000003
                                                                        62000003
         /* DATE COPY CREATED                                        */ 64000003
         DCL 1  DATE BASED(FDTPTR(  4)) BDY(WORD),                      66000003
               2  DATEVAL FIXED(31);   /* NUMERIC VALUE              */ 68000003
                                                                        70000003
         /* 'COPYDATE' SEQUENCE NUMBER                               */ 72000003
         DCL 1   SEQ BASED(FDTPTR(  5)) BDY(WORD),                      74000003
               2   SEQVAL FIXED(31);   /* NUMERIC VALUE              */ 76000003
                                                                        78000003
         /* 'BASEPLACEHOLDER' PARAMETER                              */ 80000003
         DCL  BHLD    BASED(FDTPTR(  6));                               82000003
                                                                        84000003
         /* 'COPYPLACEHOLDER' PARAMETER                              */ 86000003
         DCL  CHLD    BASED(FDTPTR(  7));                               88000003