home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / viper092.zip / SEARCHRD.CMD < prev    next >
OS/2 REXX Batch file  |  1995-09-20  |  2KB  |  61 lines

  1. /*      VIPER Database Engine
  2.         Search using RxViperSearchRecord example.
  3.         Copyright (c) - 1995 by Douglas A. Bebber
  4. */
  5.  
  6.  
  7. /* Register the VIPER Database Engine functions... */
  8. rc = RxFuncAdd("SysLoadViperFuncs","Viper", "SysLoadViperFuncs")
  9. call SysLoadViperFuncs
  10.  
  11. /* OPEN THE DATABASE */
  12. status = RxViperOpenDatabase('CUSTOMER', 'LNAME')
  13. if status = 0 then
  14. Do
  15.         say 'Failed to open CUSTOMER database using the LNAME index!'
  16.         exit
  17. End
  18. else
  19.         say 'Successfully opened CUSTOMER database using the LNAME index!'
  20.  
  21. /* Set up record to search for... */
  22. SearchField.0 = 9
  23. SearchField.1 = '123-45-6789'
  24. SearchField.2 = 'Doe'     
  25. SearchField.3 = 'John'    
  26. SearchField.4 = 'D'
  27. SearchField.5 = '1212 West Lake Drive'
  28. SearchField.6 = 'Cedar Rapids'
  29. SearchField.7 = 'IA'
  30. SearchField.8 = '52804'
  31. SearchField.9 = '(319) 322-8876'
  32. status = RxViperSearchRecord('CUSTOMER', 'LNAME', SearchField.)
  33. if status = 0 then
  34.         say 'SearchRecord function failed!'
  35. if status = 1 then
  36.         say 'Found the record!'
  37. if status = 2 then
  38.         say 'Record not found!'
  39.  
  40. /* GET THE RECORD AND DISPLAY IT */
  41. if status = 1 then
  42. Do
  43. status = RxViperGetRecord('CUSTOMER', 'LNAME', Fields.)
  44. if status = 1 then
  45. do
  46.         do index = 1 to Fields.0
  47.                 say Fields.index
  48.         end
  49. end
  50.  
  51. End
  52. status = RxViperCloseDatabase('CUSTOMER')
  53. if status = 0 then
  54. Do
  55.         say 'Failed to close CUSTOMER database!'
  56.         exit
  57. End
  58. else
  59.         say 'Successfully closed CUSTOMER database!'
  60.  
  61.