?? RIGHT := 110 ??
*copyc osd$default_pragmats
MODULE ram$verify_user_info;
?? PUSH (LISTEXT := ON) ??
*copyc amp$get_file_attributes
*copyc osd$virtual_address
*copyc amt$access_level
*copyc amt$attribute_source
*copyc amt$average_record_length
*copyc amt$block_type
*copyc amt$collate_table
*copyc amt$collation_value
*copyc amt$data_padding
*copyc amt$error_exit_procedure
*copyc amt$error_limit
*copyc amt$estimated_record_count
*copyc amt$file_access_selections
*copyc amt$file_attribute_keys
*copyc amt$file_attributes
*copyc amt$file_byte_address
*copyc amt$file_identifier
*copyc amt$file_length
*copyc amt$file_limit
*copyc amt$file_organization
*copyc amt$file_position
*copyc amt$forced_write
*copyc amt$global_file_position
*copyc amt$index_padding
*copyc amt$internal_code
*copyc amt$key_length
*copyc amt$key_position
*copyc amt$key_type
*copyc amt$label_exit_procedure
*copyc amt$label_options
*copyc amt$label_type
*copyc amt$local_file_name
*copyc amc$mau_length
*copyc amt$max_block_length
*copyc amt$max_record_length
*copyc amt$message_control
*copyc amt$min_block_length
*copyc amt$min_record_length
*copyc amt$padding_character
*copyc amt$record_limit
*copyc amt$record_type
*copyc amt$records_per_block
*copyc amt$return_option
*copyc amt$user_info
*copyc amt$vertical_print_density
*copyc ost$status
?? POP ??

*copyc rah$verify_user_info

  PROCEDURE [XDCL] rap$verify_user_info (old_file_name: amt$local_file_name;
        new_file_name: amt$local_file_name;
    VAR user_info_differs: boolean;
    VAR new_user_info: amt$user_info;
    VAR status: ost$status);

    VAR
      contains_data: boolean,
      get_attribute: ^amt$get_attributes,
      local_file: boolean,
      old_file: boolean,
      old_user_info: amt$user_info;

    PUSH get_attribute: [1 .. 1];
    get_attribute^ [1].key := amc$user_info;

    amp$get_file_attributes (old_file_name, get_attribute^, local_file, old_file, contains_data, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    old_user_info := get_attribute^ [1].user_info;

    amp$get_file_attributes (new_file_name, get_attribute^, local_file, old_file, contains_data, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;
    new_user_info := get_attribute^ [1].user_info;

    user_info_differs := (old_user_info <> new_user_info);
  PROCEND rap$verify_user_info;
MODEND ram$verify_user_info;
