/************************************************************/ 00100000
         /*                                                          */ 00150000
         /*  'SWAPT   ' FUNCTION DATA TABLE DECLARATIONS             */ 00200000
         /*                                                          */ 00250000
         /************************************************************/ 00300000
 %IF BASEFDT = 'YES'                                                    00350000
   %THEN                                                                00400000
     %GO TO BASEFDT1;                                                   00450000
                                                                        00500000
         DCL 1 FDTTBL      BDY(WORD),                                   00550000
 %GO TO BASEFDT2;                                                       00600000
 %BASEFDT1:;                                                            00650000
                                                                        00700000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           00750000
 %BASEFDT2:;                                                            00800000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 00850000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 00900000