home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / delta3.zip / index.cmd < prev    next >
OS/2 REXX Batch file  |  1995-03-26  |  1KB  |  62 lines
  1. /* rexx */
  2. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. call SysLoadFuncs
  4.  
  5. say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
  6. say rexxbase_init()
  7. call SysCLS
  8. Call sysfiledelete (telefoon.ndx)
  9. Call sysfiledelete (dagboek.ndx)
  10. Call sysfiledelete (remedie.ndx)
  11. Call sysfiledelete (alarm.ndx)
  12. Call sysfiledelete (alarmod.ndx)
  13. say 'All indexes deleted!'
  14. say 'Making new ones now, please wait...'
  15. mbini.dir='c:\data\delta'
  16.  
  17.  
  18. dbf ='Alarm.dbf'
  19. rc = rexxbase_opendbf("dbf")
  20. say 'Indexing Alarm'
  21. IndexKey='datum+tijd'
  22. rc=REXXBASE_CREateIndex("dbf",'alarm.ndx',IndexKey)
  23. rc=rexxBase_CloseDbf('dbf')
  24.  
  25. dbf ='Alarmod.dbf'
  26. rc = rexxbase_opendbf("dbf")
  27. say 'Indexing AlarmOD'
  28. IndexKey='datum+tijd'
  29. rc=RexxBase_CreateIndex("dbf",'alarmod.ndx',IndexKey)
  30. rc=rexxBase_CloseDbf('dbf')
  31.  
  32. dbf ='dagboek.dbf'
  33. rc = rexxbase_opendbf("dbf")
  34. say 'Indexing Dagboek'
  35. IndexKey='titel'
  36. rc=RexxBase_CreateIndex("dbf",'dagboek.ndx',IndexKey)
  37. rc=rexxBase_CloseDbf('dbf')
  38.  
  39. dbf ='telefoon.dbf'
  40. rc = rexxbase_opendbf("dbf")
  41. say 'Indexing Telefoon'
  42. IndexKey='achternaam'
  43. rc=RexxBase_CreateIndex("dbf",'telefoon.ndx',IndexKey)
  44. rc=rexxBase_CloseDbf('dbf')
  45.  
  46.  
  47. dbf='remedie.dbf'
  48. Rc=RexxBase_OpenDBF('dbf')
  49. say 'Indexing Remedie'
  50. IndexKey='Klacht'
  51. rc=rexxbase_CreateIndex('dbf','remedie.ndx',IndexKey)
  52. rc=rexxbase_closeDBF('dbf')
  53.  
  54. call beep 1600,150
  55. call beep 2600,150
  56. call beep 1600,150
  57. call beep 2600,150
  58. call beep 2000,150
  59. rc=rexxbase_shutdown()
  60.  
  61. 
  62.