
  TYPE
    clt$when_condition_descriptor = record
      name: clt$when_condition,
      status: ost$status,
      limit_name: ost$name,
      exit_on_continue_condition: boolean,
      default_handler: ^procedure (VAR status: ost$status),
      condition_processed_state: clt$condition_processed_state,
      command_name: clt$command_name,
      command: clt$command_line,
    recend;

*copyc clt$command_line
*copyc clt$command_name
*copyc clt$condition_processed_state
*copyc clt$when_condition
*copyc ost$name
*copyc ost$status
