sele 1
use cj01
index on kh to 1
sele 2
use cj02 alia c2
index on kh to 2
sele 1
upda on kh from c2 repl xm with c2->xm
brow
close all
delete file 1.idx
delete file 2.idx
SELE 1
USE NJCJK
INDE ON KH TO K11
SELE 2
USE &YSK ALIAS S
INDE ON KH TO K12
SELE 1
UPDA ON KH FROM S REPL &K WITH S->ZCJ
DELE FILE KH1.IDX
DELE FILE KH2.IDX