
  PROCEDURE [XREF] clp$push_when_input_block
    (    condition: clt$when_condition_definition;
         exit_on_continue_condition: boolean;
         default_handler: ^procedure (VAR status: ost$status);
         command: ^clt$command_line;
         command_name: clt$command_name;
         handler_statements: ^clt$established_handler_stmnts;
         static_link_handle: clt$block_handle;
     VAR when_block: ^clt$block);

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