 TYPE
    fdt$record_type = (fdc$character_record, fdc$program_data_type_record);
