home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / DBMS9105.ZIP / NEBEL2.MAY < prev    next >
Encoding:
Text File  |  1991-03-22  |  1.4 KB  |  44 lines
  1.  
  2. 1    PROCEDURE bookedit
  3. 2    * ----- open authors database -----
  4. 3    SELECT 1
  5. 4    USE authlist ORDER authname
  6. 5    * ----- open books database -----
  7. 6    SELECT 2
  8. 7    USE booklist ORDER authcode
  9. 8    * -----
  10. 9    SELECT authlist
  11. 10   * ----- call routine to set start colors -----
  12. 11   DO setcolor WITH "original"
  13. 12   * ----- call routine to allow selection of start point ---
  14. 13   DO spot_ptr
  15. 14   * ----- initialize boundary condition variable as open ---
  16. 15   mv_auxcond = ".T."            *****NOTE: STEPHEN, Correct use?
  17. 16   * -- call record list routine with authors as target --
  18. 17   DO selslist WITH mv_auxcond,"listauth",22,6,5
  19. 18   * ----- check exit flag -----
  20. 19   IF mv_exit = "Y"
  21. 20      RETURN
  22. 21   ENDIF
  23. 22   * ----
  24. 23   CLEAR
  25. 24   * ----
  26. 25   SELECT booklist
  27. 26   * ----- spot pointer to first matching record -----
  28. 27   SEEK STR(authlist->authcode,3,0)
  29. 28   * ----- initialize boundary to selected author -----
  30. 29   mv_auxcond = "authlist->authcode = booklist->authcode" 
  31. 30   * --- call record list routine with books as target --
  32. 31   DO selslist WITH mv_auxcond,"listbook",13,6,5
  33. 32   * ----- check exit flag -----
  34. 33   IF mv_exit = "N"
  35. 34      * ---- view full screen or whatever else you prefer ---
  36. 35      EDIT
  37. 36      * --
  38. 37   ENDIF
  39. 38   * --
  40. 39   CLOSE ALL
  41. 40   * ----
  42. 41   RETURN
  43. 41   * =================== End of Listing 2 ====================
  44.