 CONST
    fdc$system_program_data_type = fdc$program_character_type;

*copyc fdt$program_data_type
