home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / btrvrx.zip / TEST.CMD < prev   
OS/2 REXX Batch file  |  1993-08-21  |  456b  |  13 lines
  1. /* Btrieve */
  2. call RxFuncAdd 'BTRV', 'BTRVREXX', 'BTRV'
  3. datalen = 5
  4. posblock = left("", 128)
  5. databuffer = left("", 256)
  6. keybuffer = left("", 255)
  7. rc = BTRV(26, 'posblock', 'databuffer', 'datalen', 'keybuffer', 0)
  8. say 'RC 'length(rc) rc
  9. say 'DATALEN 'datalen length(databuffer)
  10. say 'DATA 'c2d(substr(databuffer, 1, 2)) c2d(substr(databuffer, 3, 2)) substr(databuffer, 5, 1)
  11. say 'KEY 'left(keybuffer, 5) length(keybuffer)
  12. call RxFuncDrop 'BTRV'
  13.