Article ID: 200025
Article Last Modified on 10/15/2003
CLEAR
ON ERROR DO Errorhandler WITH ERROR(), MESSAGE()
KEY=0
OPENED=0
errored=0
DO WHILE KEY=0
OPEN DATA k:\robert SHARED
OPENED=OPENED+1
@1,1 SAY "Opened:" + STR(OPENED)
@2,1 SAY "Errored:" + STR(errored)
CLOSE DATA
KEY=INKEY(1)
ENDDO
QUIT
PROCEDURE Errorhandler (nError, messx)
errored=errored+1
@3,1 SAY nError
@4,1 SAY messx
RETRY
ENDPROC
Additional query words: kbDSupport KBDSE
Keywords: kbdatabase kbprb kbpending KB200025