home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxbtrv.zip / TEST.CMD < prev   
OS/2 REXX Batch file  |  1995-09-14  |  1KB  |  51 lines
  1. /* Btrieve */
  2. call RxFuncAdd 'BTRV', 'REXXBTRV', 'BTRV'
  3. call RxFuncAdd 'BQUIT', 'REXXBTRV', 'BQUIT'
  4.  
  5. datalen = 5
  6. posblock = left("", 128)
  7. databuffer = left("", 256)
  8. keybuffer = left("", 255)
  9.  
  10. rc = BTRV(26, 'posblock', 'databuffer', 'datalen', 'keybuffer', 0)
  11. if rc >< 0 then
  12.    signal outtahere;
  13.  
  14. version = c2d(substr(databuffer, 1, 1))
  15. revision = c2d(substr(databuffer, 3, 1))
  16.  
  17. say "OS2MKDE version " version"."revision
  18.  
  19. keybuffer = "books.dat"
  20. rc = BTRV(0, 'posblock', 'databuffer', 'datalen', 'keybuffer', 0)
  21. if rc >< 0 then
  22.    signal outtahere;
  23. else
  24.    say "BOOKS.DAT opened successfully"
  25.  
  26. datalen = 256
  27. rc = BTRV(12, 'posblock', 'databuffer', 'datalen', 'keybuffer', 0)
  28. if rc >< 0 then
  29.    signal outtahere;
  30.  
  31. do forever
  32.    id = c2d(substr(databuffer, 1, 1))
  33.    text = substr(databuffer, 3, datalen)
  34.    say id text
  35.    rc = BTRV(6, 'posblock', 'databuffer', 'datalen', 'keybuffer', 0)
  36.    if rc >< 0 then
  37.       signal alldone;
  38.    else
  39.       nop
  40.    end /* do */
  41.  
  42. outtahere:
  43. say "rc = " rc
  44.  
  45. alldone:
  46. rc = BTRV(28, 'posblock', 'databuffer', 'datalen', 'keybuffer', 0)
  47. rc = BQUIT()
  48. call RxFuncDrop 'BTRV'
  49. call RxFuncDrop 'BQUIT'
  50. EXIT
  51.