home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug104.arc / RECP15.LQR / RECDEX.CMD < prev    next >
OS/2 REXX Batch file  |  1979-12-31  |  3KB  |  74 lines
  1. * FILE:- RECDEX.CMD
  2. * Reindex Program for Record Library
  3. * DATE:- 14/03/86
  4. * UPDATE:-
  5. SET INTEN OFF
  6. STORE T TO LEVEL3
  7. DO WHILE LEVEL3
  8. ERASE
  9. @ 0,0 SAY"Reindex"
  10. @ 1,38 SAY"-=-"
  11. @ 2,28 SAY"--+--  dBASE II  --+--"
  12. @ 3,38 SAY"-=-"
  13. @ 5,37 SAY"-===-"
  14. SET INTEN ON
  15. @ 6,24 SAY" --+--  REINDEXING MENU  --+-- "
  16. SET INTEN OFF
  17. @ 7,37 SAY"-===-"
  18. @ 9,14 SAY"=================================================="
  19. @ 10,17 SAY"2  --->     TO REINDEX THE 33 RPM  .DBF FILE"
  20. @ 12,17 SAY"4  --->     TO REINDEX THE 45 RPM  .DBF FILE"
  21. @ 14,17 SAY"6  --->     TO RETURN TO RECORD LIBRARY MENU"
  22. @ 16,17 SAY"8  --->     TO dBASE II - FOR   MANUAL   USE"
  23. @ 17,14 SAY"=================================================="
  24. SET TALK OFF
  25. @ 19,37 SAY"-===-"
  26. SET INTEN ON
  27. @ 20,24 SAY"< SELECT  REQUIRED NUMBER >"
  28. SET INTEN OFF
  29. @ 21,37 SAY"-===-"
  30. STORE 0 TO NOW
  31. @ 20,52 GET NOW PICTURE "9"
  32. READ
  33. DO CASE
  34. CASE NOW = 2
  35.   ERASE
  36.   @ 0,0 SAY"Reindexing 33"
  37.   SET INTEN ON
  38.   @ 3,21 SAY" --+--  REINDEXING 33RPM FILE  --+-- "
  39.   SET INTEN OFF
  40.   @ 4,37 SAY"-===- "
  41.   SET TALK ON
  42.   USE B:RECLIB
  43.   INDEX ON ARTIST TO ARTIND
  44.   USE
  45.  
  46. CASE NOW = 4
  47.   ERASE
  48.   @ 0,0 SAY"Reindexing 45"
  49.   SET INTEN ON
  50.   @ 3,21 SAY" --+--  REINDEXING 45RPM FILE  --+-- "
  51.   SET INTEN OFF
  52.   @ 4,37 SAY"-===- "
  53.   SET TALK ON
  54.   USE EXTPLY
  55.   INDEX ON ARTIST TO EXTIND
  56.   USE
  57.  
  58. CASE NOW = 6
  59.   RELEASE LEVEL3,NOW
  60.   RETURN
  61. CASE NOW = 8
  62.   ERASE
  63.   RELEASE LEVEL3,NOW
  64.   CANCEL
  65. ENDCASE
  66. ENDDO
  67. RETURN
  68.  
  69.  
  70.  
  71.  
  72. INDEX THE 33 RPM  .DBF FILE"
  73. @ 12,17 SAY"4  --->     TO REINDEX THE           FILE"
  74. @ 12,17 SAY"4  --->     TO REINDEX THE