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

tmp=SUBSTR(SYS(2015), 3, 10) *将SUBSTR结果赋给变量tmp
sele cfyr *选择cfyr表文件

copy structure to temp\&tmp　　　 *复制数据结构生成新库名为前面变量
use *关闭工作区打开的表文件
sele 0 *选择工作区
use temp\&tmp alia cfyr *打开表文件别名 cfyr
sele xf_sl *打开xf_sl表文件
scan *开始扫描，但语法有问题，后面没有条件
sele cfyr *选择 cfyr别名
append blank　　　　　　　　　*添加空记录
repl tbh with xf_sl.bh　　　 *将字段tbh值更新为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 　　　　　　　　　　　　　*扫描结束

TO 三楼
符合条件的记录