>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 > >ENDPROC > >