/************************************************************/ 00050000
         /*                                                          */ 00100000
         /*  'COMPARET' FUNCTION DATA TABLE DECLARATIONS             */ 00150000
         /*                                                          */ 00200000
         /************************************************************/ 00250000
 %IF BASEFDT = 'YES'                                                    00300000
   %THEN                                                                00350000
     %GO TO BASEFDT1;                                                   00400000
                                                                        00450000
         DCL 1 FDTTBL      BDY(WORD),                                   00500000
 %GO TO BASEFDT2;                                                       00550000
 %BASEFDT1:;                                                            00600000
                                                                        00650000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           00700000
 %BASEFDT2:;                                                            00750000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 00800000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 00850000
                                                                        00900000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 00950000
                                                                        01000000
         /* 'WORKFILE' DDNAMES                                       */ 01050000
         DCL WFILE    BASED(FDTPTR(  1));                               01100000
                                                                        01150000
         /* FIRST 'WORKFILE' DDNAME                                  */ 01200000
         DCL 1 FILE1 BASED(FDTPTR(  3)) BDY(HWORD),                     01250000
               2 FILE1LEN FIXED(8),    /* DATA ITEM LENGTH           */ 01300000
               2 FILE1VAL CHAR(  8);   /* DATA ITEM VALUE            */ 01350000
                                                                        01400000
         /* SECOND 'WORKFILE' DDNAME                                 */ 01450000
         DCL 1 FILE2 BASED(FDTPTR(  4)) BDY(HWORD),                     01500000
               2 FILE2LEN FIXED(8),    /* DATA ITEM LENGTH           */ 01550000
               2 FILE2VAL CHAR(  8);   /* DATA ITEM VALUE            */ 01600000
                                                                        01650000
         /* 'WORKDATASET' DATA SET NAMES                             */ 01700000
         DCL   WDS    BASED(FDTPTR(  2));                               01750000
                                                                        01800000
         /* FIRST 'WORKDATASET' DATA SET NAME                        */ 01850000
         DCL 1  WDS1 BASED(FDTPTR(  5)) BDY(HWORD),                     01900000
               2  WDS1PLN FIXED(8),    /* PASSWORD LENGTH            */ 01950000
               2  WDS1PAS CHAR(8),     /* PASSWORD VALUE             */ 02000000
               2  WDS1POS FIXED(8),    /* ASTERISK POSITION          */ 02050000
               2  WDS1FLG BIT(8),      /* DATA SET FLAGS             */ 02100000
                 3  WDS1FUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 02150000
               2  WDS1MLN FIXED(8),    /* MEMBER NAME LENGTH         */ 02200000
               2  WDS1MEM CHAR(8),     /* MEMBER NAME                */ 02250000
               2  WDS1LEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 02300000
               2  WDS1VAL CHAR(44);    /* CATALOGUED NAME            */ 02350000
                                                                        02400000
         /* SECOND 'WORKDATASET' DATA SET NAME                       */ 02450000
         DCL 1  WDS2 BASED(FDTPTR(  6)) BDY(HWORD),                     02500000
               2  WDS2PLN FIXED(8),    /* PASSWORD LENGTH            */ 02550000
               2  WDS2PAS CHAR(8),     /* PASSWORD VALUE             */ 02600000
               2  WDS2POS FIXED(8),    /* ASTERISK POSITION          */ 02650000
               2  WDS2FLG BIT(8),      /* DATA SET FLAGS             */ 02700000
                 3  WDS2FUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 02750000
               2  WDS2MLN FIXED(8),    /* MEMBER NAME LENGTH         */ 02800000
               2  WDS2MEM CHAR(8),     /* MEMBER NAME                */ 02850000
               2  WDS2LEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 02900000
               2  WDS2VAL CHAR(44);    /* CATALOGUED NAME            */ 02950000