I am trying to delete first record from a table, but nothing deletes. What am I doing wrong here?


USE payment_tbl EXCLUSIVE
set safety off
zap
currpath=sys(5)+sys(2003)+'\'
adir(a__gen2,currpath+'cnty*.*')
if type('a__gen2') # 'U' and type('a__gen2') # 'L'
sour=a__gen2(1,1)
*conv=stuff(sour,1,9,'')
conv='Payment.txt'
dest=currpath+conv
sour = currpath+sour
rename (sour) to (dest)
release a__gen2
ENDIF
SELECT payment_tbl

appe from 'payment.txt' sdf

DELETE FROM payment_tbl WHERE RECNO = 1

messagebox('payment file done')

thanks
Nick