 TYPE
    fdt$comment_definitions = record
      total_number: fdt$number_comments,
      active_number: fdt$number_comments,
      p_comment_definitions: REL (fdt$form_module) ^array [1 .. * ] of
        fdt$comment_definition,
    recend;

*copyc fdt$number_comments
*copyc fdt$form_module
*copyc fdt$comment_definition
