
  PROCEDURE [INLINE] bai$check_record_level_access
    (    file_identifier: amt$file_identifier;
         access_level: amt$access_level;
         operation: amt$fap_operation;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to check that the current access level
{ is of type amc$record.  Any other type is an error.

    CASE access_level OF
    = amc$record =
      status.normal := TRUE;
    = amc$segment =
      amp$set_file_instance_abnormal (file_identifier,
            ame$conflicting_access_level, operation, 'SEGMENT ACCESS', status);
    = amc$physical =
      amp$set_file_instance_abnormal (file_identifier,
            ame$conflicting_access_level, operation, 'PHYSICAL ACCESS',
            status);
    ELSE
    CASEND;

  PROCEND bai$check_record_level_access;

*copyc amp$set_file_instance_abnormal
*copyc ame$conflicting_access_level
*copyc amt$access_level
?? POP ??

