
  PROCEDURE [XREF] clp$process_when_cond_in_block
    (    condition_definition: clt$when_condition_definition;
         input_block: ^clt$block;
         exit_on_continue_condition: boolean;
     VAR condition_processed: boolean;
     VAR status: ost$status);

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