  PROCEDURE fdp$locate_variable_comments
    (    p_form_status: ^fdt$form_status;
         p_form_variable_definition: ^fdt$form_variable_definition;
     VAR comment_definitions: fdt$comment_definitions);

    VAR
      p_added_variable_definition: ^fdt$added_variable_definition,
      p_sequence: ^SEQ ( * );

    IF p_form_status^.p_form_definition^.screen_formatting_version < fdc$im_smart_capability THEN
      i#move (^p_form_variable_definition^.additional_variable_facts, ^comment_definitions,
            #SIZE (comment_definitions));
    ELSE
      p_sequence := #PTR (p_form_variable_definition^.additional_variable_facts.additional_definitions,
           p_form_status^.p_form_module^);
      RESET p_sequence;
      NEXT p_added_variable_definition IN p_sequence;
      comment_definitions := p_added_variable_definition^.comment_definitions;
    IFEND;
  PROCEND fdp$locate_variable_comments;
?? PUSH (LISTEXT := ON) ??
*copyc fdt$added_variable_definition
*copyc fdt$comment_definitions
*copyc fdt$form_status
*copyc fdt$form_variable_definition
?? POP ??
