- use kpace
  
- upd

  use ardat
  appe from aracedat ( the racedate data )
  do updh_oth  ( data in resulta )
  
  copy to cl dist to k1
  use 
  kpace2 
  appe from k1
  do add_sce2
  do h_pace2