?? PUSH (LISTEXT := ON) ??
*copyc bat$private_read_information
?? POP ??

{
{ The purpose of this request is to reset fields in the private
{ read information to reflect a rewind.
{
*copy bah$inline_proc_documentation

  PROCEDURE [INLINE] bai$rewind_pri;

    pri^.positioning_info.record_info.file_position := amc$boi;
    pri^.positioning_info.record_info.record_header_fba := 0;
    pri^.positioning_info.record_info.record_length := 0;
    pri^.positioning_info.record_info.residual_record_length := 0;
    pri^.positioning_info.record_info.residual_skip_count := 0;
    pri^.positioning_info.record_info.transfer_count := 0;
    pri^.positioning_info.block_info.block_number := 1;
    pri^.positioning_info.block_info.block_position := bac$beginning_of_block;
    pri^.positioning_info.block_info.current_block_byte_address := 0;
    pri^.positioning_info.block_info.current_block_length := 0;
    pri^.positioning_info.block_info.residual_block_length := 0;

  PROCEND bai$rewind_ftd;
