 TYPE
    fdt$message_text = string (fdc$message_variable_length);

*copyc fdc$message_variable_length
