PROCEDURE ReallyCloseAllData LOCAL lc_WasError, ll_GoOn, ln_Tables, ln_i local array la_x[1,2] lc_WasError = on("ERROR") on error ll_GoOn = .F. ll_GoOn = .T. set datasession to for ln_i = 1 to 999 ln_Tables = aused(la_x, ln_i) if ! ll_GoOn exit endif set datasession to (ln_i) close data all close data endfor &&* ln_i = 1 to 10 on error &lc_WasError set datasession to ENDPROCHTH