home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / UT / UT130.ZIP / ALLEYCAT.ZIP / JSBOUT.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1990-10-04  |  6KB  |  66 lines
  1. JSBOUT
  2. XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  3. ?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  4. ?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  5. ?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  6. ?'     XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
  7. SET PRIN OFF
  8. SET CONS ON
  9. ENDC 
  10. ENDD 
  11. CLEA 
  12. RETU 
  13. PROC JEXT
  14. SELE B
  15. DO BOX3
  16. @15,15 SAY '
  17. DISK2
  18. FILE2
  19. INDEX BEING CREATED........  
  20. @17,15 SAY '
  21.                                                        
  22. @18,15 SAY '
  23.  PLEASE WAIT A FEW MOMENTS                             
  24. @19,15 SAY '
  25. INDE ON SUBS(FILE,AT(".", FILE)+1,3)+FILE+DISK TAG JEXT OF JCAT
  26. STOR 'FILE EXT + FILE + DISK' TO MCORDER
  27. SET INDE TO JCAT
  28. SET ORDE TO JEXT
  29. PROC JLOC
  30. SELE B
  31. DO BOX3
  32. @15,15 SAY '
  33. @16,15 SAY '
  34.  FILE LOCATION TEMPORARY INDEX BEING CREATED........   
  35. @17,15 SAY '
  36.                                                        
  37. @18,15 SAY '
  38.  PLEASE WAIT A FEW MOMENTS                             
  39. @19,15 SAY '
  40. INDE ON LOCATION+DISK+FILE TAG JLOC OF JCAT
  41. STOR 'LOCATION + DISK + FILE' TO MCORDER
  42. SET INDE TO JCAT
  43. SET ORDE TO JLOC
  44. PROC JBYTES
  45. SELE B
  46. DO BOX3
  47. @15,15 SAY '
  48. @16,15 SAY '
  49.  FILE BYTES SIZE TEMPORARY INDEX IS BEING CREATED....  
  50. @17,15 SAY '
  51.                                                        
  52. @18,15 SAY '
  53.  PLEASE WAIT A FEW MOMENTS                             
  54. @19,15 SAY '
  55. INDE ON BYTES TAG JBYTES OF JCAT
  56. STOR 'FILE BYTE SIZE' TO MCORDER
  57. SET INDE TO JCAT
  58. SET ORDE TO JBYTES
  59. PROC JDATE
  60. SELE B
  61. DO BOX3
  62. DISK+FILE+EXT
  63. AFILE
  64. FILE+EXT+DISK
  65. ADISK
  66.