
  PROCEDURE [XREF] ocp$generate_object_correction
    (    old_file_name: fst$file_reference;
         new_file_name: fst$file_reference;
         calculate_checksums: boolean;
         old_file_checksum: rat$checksum;
         new_file_checksum: rat$checksum;
     VAR metapatch: ^SEQ ( * );
     VAR size: oct$corrector_size;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fst$file_reference
*copyc oct$corrector
*copyc ost$status
*copyc rat$subproduct_info_types
?? POP ??
