When ocurre a disaster, some ony of us doesn´t now to do, in this moment we wish to much has a code where we can create everythnig again; sinde the dbc until the tables, index, tables validations, etc.
How can I do it.
I have made something like that, however this isn´t exactly what I want.
The code is......
parameter bf
use &bf
*- Save index expretions
a=sys(14,1)
b=sys(14,2)
c=sys(14,3)
d=sys(14,4)
e=sys(14,5)
f= sys(14,6)
g=sys(14,7)
h=sys(14,8)
i=sys(14,9)
j=sys(14,10)
*- Save tag names
aa=tag(1)
bb=tag(2)
cc=tag(3)
dd=tag(4)
ee=tag(5)
ff=tag(6)
gg=tag(7)
hh=tag(8)
ii=tag(9)
jj=tag(10)
*- delete all index
delete tag all
*- Pack after delete the indexs
pack memo
pack dbf
*- Index Reconstruction
if !empty(a)
index on &a tag &aa
endif
if !empty(b)
index on &b tag &bb
endif
if !empty(c)
index on &c tag &cc
endif
if !empty(d)
index on &d tag &dd
endif
if !empty(e)
index on &e tag &ee
endif
if !empty(f)
index on &f tag &ff
endif
if !empty(g)
index on &g tag &gg
endif
if !empty(h)
index on &h tag &hh
endif
if !empty(i)
index on &i tag &ii
endif
if !empty(j)
index on &j tag &jj
endif
*- Close table
use

This code delete index, but the validation fields, does aren´t made again.
How I do it.???
Thanks