 TYPE
    fdt$program_data_type = (fdc$program_character_type,
      fdc$program_integer_type, fdc$program_real_type,
      fdc$program_upper_case_type, fdc$program_cobol_type);
