
  PROCEDURE [INLINE] dmp$generate_gfn_hash ALIAS 'dmxfhsh'
    (    global_file_name: dmt$global_file_name;
     VAR file_hash: dmt$file_hash);

?? PUSH (LISTEXT := ON) ??
    file_hash := global_file_name.sequence_number MOD
          dmv$hash_modifiers [dmv$hash_modifier_index];

  PROCEND dmp$generate_gfn_hash;

*copyc dmt$file_hash
*copyc dmt$global_file_name
*copyc dmv$hash_modifier_index
*copyc dmv$hash_modifiers
?? POP ??
