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

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to set the failure_isolation.
{ failed_at_current_position to FALSE.  The intent is for this routine to
{ set the field upon entry to the fap.
{
{ This field will only be set TRUE when an error is detected during an
{ operation on the current block.  Currently, this is only possible for
{ undefined records on user specified blocked tape files.

*copy bah$inline_proc_documentation

    IF operation >= amc$last_access_start THEN
      tape_descriptor^.failure_isolation.failed_at_current_position := TRUE;
      tape_descriptor^.failure_isolation.failure_modes :=
            $amt$tape_failure_modes [];
    IFEND;

  PROCEND bai$clear_fail_at_current_pos;

*copyc amt$fap_operation
*copyc bat$tape_descriptor
*copyc bat$task_file_table
*copyc ost$status
?? POP ??

