begin_end_run_phases = ( collect_data, 
                           open_file, 
                           write_file, 
                           close_file, 
                           done ) ;

  write_host_transaction_data =
  RECORD
    file_name         : VARYING_STRING(80) ;
    file_type         : VARYING_STRING(12) ;
    processing_phase  : begin_end_run_phases ;
    status            : INTEGER ;
    decoded_status    : VARYING_STRING(255) ;
  END ;


  begin_end_run_entry_type = ( ber_dbsc, ber_sbsc ) ;

  begin_end_run_entry =
  PACKED RECORD
    entry_type : begin_end_run_entry_type ;
    RCP_name   : VARYING_STRING(32) ;
    data_index : INTEGER ;
    CASE INTEGER OF
    0 : ( dbsc_card :^dbsc_foreign_card ;
          channel   : INTEGER ) ;
    1 : ( sbsc_card :^sbsc_card ;
          from_chan : byte ;
          to_chan   : byte ) ;
  END ;