use tab1
copy stru to rab1 exte
use rab1
do while .not.eof()
if field_name="naim "
repl field_len with  100 
endif
skip
enddo
j= 100 
do while j< 112 
j=j+ 1 
appe blan
repl field_name with 'sum'+substr(str,j, 3 ), 2 )
repl field_len with  12 ,field_dec with  2 
enddo
crea tab1a from rab1
use tab1a
appe from tab1
use

use tab1
copy stru to rab1 exte
use rab1
do cr00 with "naim ","c",  100 , 0 
j= 100 
do while j< 112 
j=j+ 1 
do cr00 with 'sum'+substr(str,j, 3 ), 2 ),"n",  12 ,  2 
enddo
crea tab1a from rab1
use tab1a
appe from tab1
use