
  PROCEDURE [XREF] clp$establish_condition_handler
    (    any_condition: boolean;
         any_fault: boolean;
         specific_conditions: ^clt$when_conditions;
         statement_area: ^clt$collect_statement_area;
         can_be_echoed: boolean;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$block
*copyc clt$collect_statement_area
*copyc clt$when_conditions
*copyc ost$status
?? POP ??
