
  PROCEDURE [INLINE] bai$rewind_gfi;

?? PUSH (LISTEXT := ON) ??
{ The purpose of this request is to reset fields in the global
{ file information table to reflect a rewind.
*copyc bah$inline_proc_documentation

    gfi^.positioning_info := fmv$global_file_information.positioning_info;

  PROCEND bai$rewind_gfi;

*copyc bat$global_file_information
*copyc fmv$global_file_information
?? POP ??
