 TYPE
    fdt$error_message = string ( * <= fdc$maximum_error_length);

*copyc fdc$maximum_error_length
