
{ The correction process record is used by the CREATE_SUBPRODUCT_CORRECTION utility
{ to communicate information among the various procedures.


  TYPE
    rat$correction_process_sif_info = record
      fid: amt$file_identifier,
      file_opened: boolean,
      subproduct_info_pointers: rat$subproduct_info_pointers,
    recend;

  TYPE
    rat$correction_process_record = record
      base_level_sif: rat$correction_process_sif_info,
      current_level_sif: rat$correction_process_sif_info,
      correction_in_progress: boolean,
      new_subproduct_info_pointers: rat$subproduct_info_pointers,
      previous_correction_sif: rat$correction_process_sif_info,
    recend;

*copyc amt$file_identifier
*copyc ost$name
*copyc rat$subproduct_info_pointers
