
  PROCEDURE [INLINE] pfp$convert_archive_ident
    (    archive_identification: pft$archive_identification;
     VAR converted_archive_ident: pft$archive_identification;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    status.normal := TRUE;
    converted_archive_ident := archive_identification;

    IF archive_identification.application_identifier <> osc$null_name THEN
      clp$validate_name (archive_identification.application_identifier,
            converted_archive_ident.application_identifier, status.normal);
      IF NOT status.normal THEN
        osp$set_status_abnormal (pfc$permanent_file_manager_id, pfe$bad_archive_identification,
              archive_identification.application_identifier, status);
        RETURN; {----->
      IFEND;
    IFEND;

    IF archive_identification.media_identifier.media_device_class <> osc$null_name THEN
      clp$validate_name (archive_identification.media_identifier.media_device_class,
            converted_archive_ident.media_identifier.media_device_class, status.normal);
      IF NOT status.normal THEN
        osp$set_status_abnormal (pfc$permanent_file_manager_id, pfe$bad_archive_identification,
              archive_identification.media_identifier.media_device_class, status);
      IFEND;
    IFEND;

  PROCEND pfp$convert_archive_ident;

*copyc pfe$error_condition_codes
*copyc ost$status
*copyc pft$archive_identification
*copyc clp$validate_name
*copyc osp$set_status_abnormal
?? POP ??

