
  PROCEDURE [XREF] clp$collect_statement
    (    save_statement: boolean;
         begin_name: ost$name;
         end_name: ost$name;
         first_line_to_write: clt$command_line;
         substitution_mark: clt$substitution_mark;
     VAR work_area {input, output} : ^clt$work_area;
     VAR statement_area: ^clt$collect_statement_area;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$collect_statement_area
*copyc clt$command_line
*copyc clt$substitution_mark
*copyc clt$work_area
*copyc ost$name
*copyc ost$status
?? POP ??
