IF .DATASESSION=2 THEN lnLoop1 = TXNLEVEL() DO WHILE lnLoop1>0 ROLLBACK lnLoop1 = lnLoop1-1 ENDDO && lnLoop1>0 lnLoop1 = AUSED(laTables) FOR lnLoop2 = 1 TO lnLoop1 IF CURSORGETPROP('BUFFERING',laTables(lnLoop2,1))>1 THEN TABLEREVERT(True,laTables(lnLoop2,1)) ENDIF &&CURSORGETPROP('BUFFERING',laTables(lnLoop2,1))>1 ENDFOR &&lnLoop2 *SF 08.09.2003 Close Tables moved to DESTROY *!* CLOSE TABLES ALL * CLOSE ALL EXTENDED ENDIF &&.DATASESSION=2HTH