use cj1
use fg in 0
sele cj1
do while !eof()
  if bk_wj<>0 
    sele fg
    loca for cj1.bk_wj=fg_dm
    if !eof()
      sele cj1
       repl fg_dm with fg.fg_dm,fg_bz  with fg.fg_bz
    endi
  endi
  sele cj1
  skip
endd
clos all