 TYPE
    fdt$comment_index = 1 .. fdc$maximum_comments;

*copyc fdc$maximum_comments
