ViewManager.Next (Clarion ABC) refactoring for clarity This helps explain return values from .ValidateRecord() ViewManager.Next is One Method from ABBrowse.clw

gistfile1.cs

ViewManager.Next                                  PROCEDURE
  CODE
  LOOP
      NEXT(SELF.View)
      CASE ERRORCODE()
        OF NoError  ; CASE SELF.ValidateRecord()
                        OF Record:OK        ;  RETURN Level:Benign
                        OF Record:OutOfRange;  RETURN Level:Notify
                      ! OF Record:Filtered  ;  do nothing loop around for the NEXT()
                      END
        OF BadRecErr;                          RETURN Level:Notify
        ELSE        ; SELF.Primary.Me.Throw(Msg:AbortReading)
                                               RETURN Level:Fatal
      END
  END

!!Below is the shipping version
! ViewManager.Next                                  PROCEDURE
!   CODE
!     LOOP
!       NEXT(SELF.View)
!       IF ERRORCODE()
!         IF ERRORCODE() = BadRecErr
!           RETURN Level:Notify
!         ELSE
!           SELF.Primary.Me.Throw(Msg:AbortReading)
!           RETURN Level:Fatal
!         END
!       ELSE
!         CASE SELF.ValidateRecord()
!         OF Record:OK
!           RETURN Level:Benign
!         OF Record:OutOfRange
!           RETURN Level:Notify
!         END
!       END
!     END