Article ID: 172086
Article Last Modified on 9/30/2003
APPEND BLANK
REPLACE datadir WITH "First test record"
LOCAL laAlias, lnX
SET EXCLUSIVE OFF
SET MULTILOCKS ON
SET REPROCESS TO 5
DIMENSION laAlias[10]
laAlias[1] = "A"
laAlias[2] = "B"
laAlias[3] = "C"
laAlias[4] = "D"
laAlias[5] = "E"
laAlias[6] = "F"
laAlias[7] = "G"
laAlias[8] = "H"
laAlias[9] = "I"
laAlias[10] = "J"
FOR lnX = 1 TO ALEN(laAlias)
USE ztest again ALIAS &laAlias[lnX] in 0 SHARED
SELECT &laAlias[lnX]
=CURSORSETPROP("BUFFERING",3)
APPEND BLANK
ENDFOR
FOR lnX = 1 TO ALEN(laAlias)
SELECT &laAlias[lnX]
REPLACE DataDir WITH STR(RECNO())+ " UserA" + STR(RECCOUNT())
llError=TABLEUPDATE()
?llERROR
IF !LLERROR
=MESSAGEBOX("Update Error",0,"Test")
ENDIF
USE
ENDFOR
Keywords: kbbug kbfix kbprb kbcode KB172086