
  PROCEDURE [XREF] clp$process_command_fault
    (    condition_status: ost$status;
         input_block: ^clt$block;
     VAR retry_command: ^clt$command_line;
     VAR condition_processed_state: clt$condition_processed_state;
     VAR status: ost$status);

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