
  PROCEDURE [XREF] rap$generate_object_correction
    (    base_file: fst$file_reference;
         current_file: fst$file_reference;
         new_file: fst$file_reference;
         calculate_checksums: boolean;
         base_checksum: rat$checksum;
         current_checksum: rat$checksum;
         element_p {output} : ^rat$element;
     VAR status: ost$status);

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