home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / rexx / rexxbase / creatndx.cmd next >
Encoding:
Text File  |  1993-10-10  |  412 b   |  22 lines
  1. /* rexx */
  2. signal on syntax
  3.  
  4. say rxfuncadd(rexxbase_init,"rexxbase",Rexxbase_Init)
  5. say rexxbase_init()
  6. parse arg noname indexname key therest
  7. say rexxbase_opendbf("noname")
  8. r = rexxbase_createindex("noname",indexname,key)
  9. say r
  10.  
  11. say rexxbase_closedbf("noname")
  12.  
  13. return
  14.  
  15.  
  16. syntax:
  17.   errormsg = 'rexx error ' rc ' in line  ' sigl ':' errortext(rc)
  18.   say errormsg
  19.   say  sourceline(sigl)
  20. exit
  21.  
  22.