home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a011 / 2.ddi / CBTESTVA.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-01-07  |  5.4 KB  |  130 lines
  1. REM --------------------------------------------------------\
  2. This program demonstrates the use of Btrieve from a CB86 program
  3. REM --------------------------------------------------------\
  4.     Define the Btrieve calling sequence:
  5. DEF BTRV(OP%,POSBLK$,DATABUF$,DATALEN$,KEYBUF$,KEYNUM%) EXTERNAL
  6. INTEGER BTRV
  7. FEND
  8. REM --------------------------------------------------------\
  9.     Define the routine to set an integer into a string:
  10. DEF ISET(A$,POS%,I%) EXTERNAL
  11. INTEGER ISET
  12. REM --------------------------------------------------------\
  13.     calling sequence: \
  14.     STATUS%=ISET(A$,POS%,I%) \
  15.     where \
  16.     STATUS% - return status, \
  17.           0 = normal completion \
  18.          -1 = invalid parmeters, string not modified \
  19.      A$ - string, must be initialized \
  20.        POS% - starting position in string, (first byte=1) \
  21.      I% - integer to be inserted \
  22.     --------------------------------------------------------
  23. FEND
  24. REM --------------------------------------------------------\
  25.     Define the routine to get an integer from a string:
  26. DEF IGET(A$,POS%) EXTERNAL
  27. INTEGER IGET
  28. REM --------------------------------------------------------\
  29.     calling sequence: \
  30.     I%=IGET(A$,POS%) \
  31.     where \
  32.        A$ - string from which to extract 2 bytes \
  33.      POS% - starting position in string, (first byte=1) \
  34.        I% - integer to receive data, set to zero when \
  35.         parameters are invalid \
  36.     --------------------------------------------------------
  37. FEND
  38. OP%=14
  39. POS.BLK$=STRING$(4097," ")
  40. DATA.BUF$=STRING$(4097," ")
  41. Z$="??"
  42. DATA.LEN$="??"
  43. CALL ISET(Z$,1,0)
  44. FILE.DEF$=STRING$(50,Z$)
  45. CALL ISET(FILE.DEF$,1,64)     :\ record length = 64
  46. CALL ISET(FILE.DEF$,3,512)    :\ page size = 512
  47. CALL ISET(FILE.DEF$,5,1)      :\ 1 key
  48. CALL ISET(FILE.DEF$,17,1)     :\ key starts in first byte
  49. CALL ISET(FILE.DEF$,19,2)     :\ key is 2 bytes long
  50. CALL ISET(FILE.DEF$,21,0004H) :\ key is binary
  51. CALL ISET(DATA.LEN$,1,50)
  52. KEY.BUF$="TEST.BTR"
  53. KEY.NUM%=0
  54. REM --------------------------------------------------------\
  55.     create a btrieve file \
  56.     --------------------------------------------------------
  57. STATUS%=BTRV(OP%,POS.BLK$,FILE.DEF$,DATA.LEN$,KEY.BUF$,KEY.NUM%)
  58. PRINT "Data Buffer Length = "; IGET(DATA.LEN$,1)
  59. PRINT "Create status = "; STATUS%
  60. REM --------------------------------------------------------\
  61.     open the btrieve file \
  62.     --------------------------------------------------------
  63. CALL ISET(DATA.LEN$,1,0)
  64. STATUS%=BTRV(0,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,0)
  65. PRINT "Data Buffer Length = "; IGET(DATA.LEN$,1)
  66. PRINT "Open status = "; STATUS%
  67. REM --------------------------------------------------------\
  68.     insert 1 record \
  69.     --------------------------------------------------------
  70. DATA.BUF$="??This is record number one." + STRING$(64-28,".")
  71. CALL ISET(DATA.LEN$,1,64)
  72. CALL ISET(DATA.BUF$,1,101)
  73. STATUS%=BTRV(2,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,KEY.NUM%)
  74. PRINT "Data Buffer Length = "; IGET(DATA.LEN$,1)
  75. PRINT "Insert status = "; STATUS%
  76. REM --------------------------------------------------------\
  77.     read that record \
  78.     --------------------------------------------------------
  79. DATA.BUF2$=STRING$(64," ")
  80. CALL ISET(DATA.LEN$,1,65)
  81. STATUS%=BTRV(12,POS.BLK$,DATA.BUF2$,DATA.LEN$,KEY.BUF$,0)
  82. PRINT "Data Buffer Length = ";IGET(DATA.LEN$,1)
  83. PRINT "Read status = "; STATUS%
  84. IF (IGET(KEY.BUF$,1) = 101) AND (DATA.BUF$ = DATA.BUF2$) \
  85.   THEN PRINT "Get Lowest OK. Key.Buf = "; IGET(KEY.BUF$,1) \
  86.   ELSE PRINT "Get Lowest Failed. Key.Buf = "; IGET(KEY.BUF$,1)
  87. REM --------------------------------------------------------\
  88.     get a btrieve error \
  89.     --------------------------------------------------------
  90. DATA.BUF$=" "
  91. CALL ISET(DATA.LEN$,1,1)
  92. STATUS%=BTRV(12,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,0)
  93. PRINT "Data Buffer Length = ";IGET(DATA.LEN$,1)
  94. IF STATUS% = 22 \
  95.   THEN PRINT "Error return OK. Status = "; STATUS% \
  96.   ELSE PRINT "Error return failed. Status = "; STATUS%
  97. REM --------------------------------------------------------\
  98.     get the file status \
  99.     --------------------------------------------------------
  100. DATA.BUF$=STRING$(50,Z$)
  101. CALL ISET(DATA.LEN$,1,65)
  102. STATUS%=BTRV(15,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,0)
  103. PRINT "Data Buffer Length = ";IGET(DATA.LEN$,1)
  104. CALL ISET(FILE.DEF$,7,1)      :\ #recs = 1
  105. CALL ISET(FILE.DEF$,23,1)     :\ #keys = 1
  106. IF DATA.BUF$ = FILE.DEF$ \
  107.   THEN PRINT "File stat's OK. Status = "; STATUS% \
  108.   ELSE PRINT "File stat's failed. Status = "; STATUS%
  109. NRECS=(IGET(DATA.BUF$,9)*65536) + IGET(DATA.BUF$,7)
  110. NKEYS=(IGET(DATA.BUF$,25)*65536) + IGET(DATA.BUF$,23)
  111. PRINT "Number of records = "; NRECS
  112. PRINT "Number of unique keys for key 0 = "; NKEYS
  113. REM --------------------------------------------------------\
  114.     close the btrieve file \
  115.     --------------------------------------------------------
  116. STATUS%=BTRV(1,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,0)
  117. PRINT "Data Buffer Length = ";IGET(DATA.LEN$,1)
  118. PRINT "Close status = "; STATUS%
  119. REM --------------------------------------------------------\
  120.     stop btrieve & check to be sure \
  121.     --------------------------------------------------------
  122. STATUS%=BTRV(25,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,0)
  123. STATUS2%=BTRV(25,POS.BLK$,DATA.BUF$,DATA.LEN$,KEY.BUF$,0)
  124. PRINT "Data Buffer Length = ";IGET(DATA.LEN$,1)
  125. IF (STATUS% = 0) AND (STATUS2% = 20) \
  126.   THEN PRINT "File manager unloaded."; STATUS%; "/"; STATUS2% \
  127.   ELSE PRINT "File manager unload failed."; STATUS%; "/"; STATUS2%
  128. STOP
  129. END
  130.