  PROCEDURE [INLINE] rmp$validate_specified_rmg
    (    evaluated_file_reference: fst$evaluated_file_reference;
         removable_media_group: string (* <= 13);
     VAR authorized_access: fst$file_access_options;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
    VAR
      family: ost$family_name,
      removable_media_group_name: ost$name,
      user: ost$user_name,
      user_id: ost$user_identification;

    IF fsp$path_element (^evaluated_file_reference, 1)^ = fsc$local THEN
      pmp$get_user_identification (user_id, status);
      IF NOT status.normal THEN
        RETURN;
      IFEND;
      family := user_id.family;
      user := user_id.user;
    ELSE
      family := fsp$path_element (^evaluated_file_reference, 1)^;
      user := fsp$path_element (^evaluated_file_reference, 2)^;
    IFEND;

    removable_media_group_name := removable_media_group;
    avp$get_removable_media_access (user, family, removable_media_group_name, authorized_access, status);
    IF status.normal AND (authorized_access = $fst$file_access_options []) THEN
      bap$set_evaluated_file_abnormal (evaluated_file_reference, ame$no_removable_media_access, '', '',
            status);
    IFEND;

  PROCEND rmp$validate_specified_rmg;

*copyc ame$label_validation_errors
*copyc fsc$local
*copyc avp$get_removable_media_access
*copyc bap$set_evaluated_file_abnormal
*copyc fsp$path_element
*copyc pmp$get_user_identification
?? POP ??
