home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBSDELE.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  1.1 KB  |  81 lines
  1. ****** ╔╛│²╩²╛▌┐Γ╜ß╣╣ DBSDELE.PRG ******
  2. ****** DBSDELE.PRG ╔╛│²╩²╛▌┐Γ╬─╝■╝░╧α╣╪╬─╝■ ******
  3. CLEAR
  4. FN=''
  5. CFN=''
  6. FNO=''
  7. DO SELEF
  8. IF LEN(FN)=0
  9. RETU
  10. ENDIF
  11. USE &FN
  12. CLEAR
  13. LIST STRU
  14. YN='N'
  15. WAIT '            &FN..DBF &CFN. ╔╛│²╕├╬─╝■┬≡? [Y/N]:' TO YN
  16. IF UPPE(YN)<>'Y'
  17. USE
  18. RETU
  19. ENDIF
  20. USE
  21. ERASE &FN..DBF
  22. ERAS &FN..FMT
  23. SELE 1
  24. USE FILE INDE FILE
  25. SEEK FN
  26. FNO=F_NO
  27. DELE
  28. PACK
  29. USE DBD INDE DBD
  30. DELE ALL FOR F_NO=FNO
  31. PACK
  32. USE IDX INDE IDX
  33. SET FILT TO F_NO=FNO
  34. GO TOP
  35. DO WHILE .NOT.EOF()
  36. IN=TRIM(IDX_NAME)+'.IDX'
  37. ERAS &IN
  38. DELE
  39. SKIP
  40. ENDDO
  41. PACK
  42. USE BBTK
  43. SELE 4
  44. USE BMZK
  45. SELE 5
  46. USE BWZK
  47. SELE 2
  48. USE FFBT
  49. SELE 3
  50. USE BTK
  51. SET FILT TO F_NAME8=FN.OR.F_NAME1=FN.OR.F_NAME2=FN.OR.F_NAME3=FN.OR.F_NAME4=FN.OR.F_NAME5=FN.OR.F_NAME6=FN.OR.F_NAME7=FN
  52. COUNT TO BNUM
  53. GO  TOP
  54. DO WHILE .NOT.EOF()
  55. DELE
  56. SELE 1
  57. DELE ALL FOR B_NO=BTK->B_NO
  58. SELE 2
  59. DELE ALL FOR B_NO=BTK->B_NO
  60. SELE 4
  61. DELE ALL FOR B_NO=BTK->B_NO
  62. SELE 5
  63. DELE ALL FOR B_NO=BTK->B_NO
  64. SELE 3
  65. SKIP
  66. ENDDO
  67. IF BNUM#0
  68. PACK
  69. SELE 1
  70. PACK
  71. SELE 2
  72. PACK
  73. SELE 4
  74. PACK
  75. SELE 5
  76. PACK
  77. ENDIF
  78. CLOS DATA
  79. RETU
  80. ** END OF DBSDELE.PRG **
  81.