function test()
{
  long old.txta
 
  db.retry.point()
  select tdsls040.*
  from tdsls040
  as set with 1 rows
  selectdo
    | SAVE ORIGINAL TEXT NUMBER!
    old.txta = tdsls040.txta
 
    tdsls040.txta = 0
    tdsls040.txtb = 0
    tdsls040._compnr = 999
    db.insert(ttdsls040, db.retry+db.skip.dupl)
  endselect
  commit.transaction()
　
  long rc
  string tgroup(8)
  string edit_opt(15)
 
  rc = text.defaults("tdsls040.txta", tgroup, edit_opt)
 
  db.retry.point()
  select tdsls040.*
  from tdsls040 for update
  where tdsls040._index1 = {:tdsls040.orno}
  and tdsls040._compnr = 999
  selectdo
    | set tdsls40.txt to the original text number
    tdsls040.txta = old.txta
 
    rc = text.copy.between.companies("tdsls040.txta", "tdsls040.txta",
       get.compnr(), 999, "kw1", "kw2", "kw3", "kw4", tgroup, edit_opt)
 
    | now the text is copied, and tdsls040.txt has the new value
    db.update(ttdsls040, db.retry)
  endselect
  commit.transaction()
}