/************************************************************/ 02000000
         /*                                                          */ 04000000
         /*  'CHECKMSS' FUNCTION DATA TABLE DECLARATIONS             */ 06000000
         /*                                                          */ 08000000
         /************************************************************/ 10000000
 %IF BASEFDT = 'YES'                                                    12000000
   %THEN                                                                14000000
     %GO TO BASEFDT1;                                                   16000000
                                                                        18000000
         DCL 1 FDTTBL      BDY(WORD),                                   20000000
 %GO TO BASEFDT2;                                                       22000000
 %BASEFDT1:;                                                            24000000
                                                                        26000000
         DCL 1 FDTTBL      BASED   BDY(WORD),                           28000000
 %BASEFDT2:;                                                            30000000
               2 FDTVERB   CHAR(8),    /* FUNCTION VERBNAME          */ 32000000
               2 FDTPTR(*) PTR(31);    /* SCALAR DATA POINTERS       */ 34000000
                                                                        36000000
         /* DATA DECLARATIONS OF SCALAR DATA ITEMS                   */ 38000000
                                                                        40000000
         /* 'WORKFILE' FILE NAME                                     */ 42000000
         DCL 1 WFILE BASED(FDTPTR(  1)) BDY(HWORD),                     44000000
               2 WFILELEN FIXED(8),    /* DATA ITEM LENGTH           */ 46000000
               2 WFILEVAL CHAR(  8);   /* DATA ITEM VALUE            */ 48000000
                                                                        50000000
         /* WORK DATA SET NAME                                       */ 52000000
         DCL 1   WDS BASED(FDTPTR(  2)) BDY(HWORD),                     54000000
               2   WDSPLN FIXED(8),    /* PASSWORD LENGTH            */ 56000000
               2   WDSPAS CHAR(8),     /* PASSWORD VALUE             */ 58000000
               2   WDSPOS FIXED(8),    /* ASTERISK POSITION          */ 60000000
               2   WDSFLG BIT(8),      /* DATA SET FLAGS             */ 62000000
                 3   WDSFUQ BIT(1),    /* FLAG-ON IF UNQUALIFIED     */ 64000000
               2   WDSMLN FIXED(8),    /* MEMBER NAME LENGTH         */ 66000000
               2   WDSMEM CHAR(8),     /* MEMBER NAME                */ 68000000
               2   WDSLEN FIXED(8),    /* CATALOGUED NAME LENGTH     */ 70000000
               2   WDSVAL CHAR(44);    /* CATALOGUED NAME            */ 72000000
                                                                        74000000
         /* 'MASSSTORAGECONTROL' PARAMETER                           */ 76000000
         DCL   MSC    BASED(FDTPTR(  3));                               78000000
                                                                        80000000
         /* 'STAGINGADAPTERS' PARAMETER                              */ 82000000
         DCL STGAD    BASED(FDTPTR(  4));                               84000000
                                                                        86000000
         /* 'MSVINVENTORY' PARAMETER                                 */ 88000000
         DCL  MSVI    BASED(FDTPTR(  5));                               90000000
                                                                        92000000
         /* 'ALL' PARAMETER                                          */ 94000000
         DCL CHALL    BASED(FDTPTR(  6));                               96000000