/************************************************************/ 02000003
         /*                                                          */ 04000003
         /*  'NULLIFYC' 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
         /* 'ACTIVE' VOLUME OPTION                                   */ 42000003
         DCL   ACT    BASED(FDTPTR(  1));                               44000003
                                                                        46000003
         /* 'INACTIVE' VOLUME OPTION                                 */ 48000003
         DCL INACT    BASED(FDTPTR(  2));                               50000003
                                                                        52000003
         /* 'SCRATCHCARTRIDGE' OPTION                                */ 54000003
         DCL  SCRC    BASED(FDTPTR(  3));                               56000003
                                                                        58000003
         /* CARTRIDGE SERIAL NUMBER                                  */ 60000003
         DCL 1  CART BASED(FDTPTR(  4)) BDY(HWORD),                     62000003
               2  CARTLEN FIXED(8),    /* DATA ITEM LENGTH           */ 64000003
               2  CARTVAL CHAR( 12);   /* DATA ITEM VALUE            */ 66000003
                                                                        68000003
         /* VOLUME SERIAL NUMBER                                     */ 70000003
         DCL 1   VOL BASED(FDTPTR(  5)) BDY(HWORD),                     72000003
               2   VOLLEN FIXED(8),    /* DATA ITEM LENGTH           */ 74000003
               2   VOLVAL CHAR(  6);   /* DATA ITEM VALUE            */ 76000003
                                                                        78000003
         /* 'SEQUENCE1' CARTRIDGE OPTION                             */ 80000003
         DCL  SEQ1    BASED(FDTPTR(  7));                               82000003
                                                                        84000003
         /* 'SEQUENCE2' CARTRIDGE OPTION                             */ 86000003
         DCL  SEQ2    BASED(FDTPTR(  8));                               88000003
                                                                        90000003
         /* 'NULLIFY VOLUME' OPTION                                  */ 92000003
         DCL  NVOL    BASED(FDTPTR(  9));                               94000003