home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b015 / 7.ddi / KK.PRG < prev    next >
Encoding:
Text File  |  1980-01-13  |  574 b   |  36 lines
  1. set dele on
  2. clear all
  3. erase qq.dbf
  4. erase zy.dbf
  5. copy file c:\yyx\thkm1.dbf to a:qq.dbf
  6. sele A
  7. use qq
  8. copy stru to a:zz.dbf
  9. copy stru to a:qq2.dbf
  10. sele B 
  11. use zy
  12. sele A
  13. do while !eof()
  14.    vvk=vvkm
  15.    kk=kkm
  16.    c3=jc3
  17.    c10=jc10
  18.    c11=jc11
  19.    dd=zd
  20.    sele B
  21.    locate for vvkm=vvk
  22.    if !found()
  23.      go bottom
  24.      append blank
  25.      replace vvkm with vvk,kkm with kk,jc3 with c3,jc10 with c10
  26.      replAce jc11 with c11,zd with dd
  27.    endif
  28.    sele a
  29.    dele all for vvkm=vvk 
  30.    go top
  31. enddo
  32. set dele off
  33. sele a
  34. recall all
  35. return      
  36.