tmp=SUBSTR(SYS(2015), 3, 10)
sele cfyr

copy structure to temp\&tmp
use
sele 0
use temp\&tmp alia cfyr
sele xf_sl
scan
sele cfyr
append blank
repl tbh with xf_sl.bh
repl txm with xf_sl.dsrxm
repl tdw with xf_sl.dsrdw
repl tzw with xf_sl.zw
repl tslsj with xf_sl.jasj
repl tdncf with xf_sl.dncf
repl txzcf with xf_sl.xzcf
repl tqtcf with xf_sl.qtcf
repl twtxz with xf_sl.wtxz
endscan