home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / DBA1.PRG < prev    next >
Encoding:
Text File  |  1990-04-29  |  872 b   |  63 lines
  1. *** BEGIN OF DBA.PRG /╩²╛▌╫╖╝╙ **
  2. CLEAR
  3. IF TYPE('FN')='U'
  4. FN=''
  5. FNO=''
  6. DO SELEF
  7. IF LEN(FN)=0
  8. RETU
  9. ENDIF
  10. ENDIF
  11. SELE 1
  12. USE IDX
  13. SET FILT TO F_NO=FNO
  14. GO TOP
  15. NDX=''
  16. DO WHILE .NOT.EOF()
  17. NDX=NDX+IDX_NAME+','
  18. SKIP
  19. ENDDO
  20. IF LEN(NDX)#0
  21. NDX=SUBS(NDX,1,LEN(NDX)-1)
  22. ENDIF
  23. USE &FN
  24. SET INDE TO &NDX
  25. COPY STRU TO A_B_C
  26. SELE 2
  27. USE A_B_C
  28. SET FORM TO &FN
  29. SET CARR ON
  30. DO WHILE .T.
  31. APPE
  32. SET FORM TO
  33. YN=' '
  34. DO WHILE .NOT.M->YN$'YN'
  35. @ 0,0 SAY '╝╠╨°╫╖╝╙╝╟┬╝┬≡?[Y/N]:' GET M->YN PICT '!'
  36. READ
  37. ENDDO
  38. IF M->YN='N'
  39. EXIT
  40. ENDIF
  41. SET FORM TO &FN
  42. ENDDO
  43. REC=STR(RECC(),3)
  44. SET CARR OFF
  45. SET FORM TO
  46. USE
  47. SELE 1
  48. YN=' '
  49. DO WHILE .NOT.M->YN$'YN'
  50. @ 0,0 SAY '▒╛┤╬╫╖╝╙ &REC ╠⌡╝╟┬╝, ╨Φ╥¬▒ú┤µ┬≡[Y/N]?' GET M->YN PICT '!'
  51. READ
  52. ENDDO
  53. IF M->YN='Y'
  54. APPE FROM A_B_C
  55. ENDIF
  56. USE
  57. ERAS A_B_C.DBF
  58. IF FILE('A_B_C.DBT')
  59. ERAS A_B_C.DBT
  60. ENDIF
  61. RETU
  62. ** END OF DBA.PRG **
  63.