?? NEWTITLE := 'pfp$record_catalog_error', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc fst$path
*copyc pfe$error_condition_codes
*copyc fsp$build_file_ref_from_elems
*copyc osp$append_status_file
*copyc osp$generate_error_message
*copyc osp$set_status_abnormal
?? POP ??

    PROCEDURE pfp$record_catalog_error
      (    catalog_path: ^pft$path;
           command_name: string ( * <= osc$max_string_size );
       VAR number_of_errors: integer;
       VAR status: ost$status);

      VAR
        catalog_reference: fst$path,
        ignore_status: ost$status,
        recorded_status: ost$status;

      number_of_errors := number_of_errors + 1;
      fsp$build_file_ref_from_elems (catalog_path, catalog_reference, ignore_status);
      osp$set_status_abnormal (pfc$permanent_file_manager_id, pfe$skipped_catalog, command_name,
            recorded_status);
      osp$append_status_file (osc$status_parameter_delimiter, catalog_reference, recorded_status);
      osp$generate_error_message (recorded_status, ignore_status);
      osp$generate_error_message (status, ignore_status);

    PROCEND pfp$record_catalog_error;

?? OLDTITLE ??
