 CONST
    fdc$system_output_format = fdc$character_output_format;

*copyc fdt$output_format
