 TYPE
    fdt$comment = string ( * <= fdc$maximum_comment_length);

*copyc fdc$maximum_comment_length
