home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progc / c_all592.arj / TI428.ASC < prev    next >
Text File  |  1991-08-27  |  4KB  |  199 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT : TURBO BASIC                                NUMBER : 428
  9.   VERSION : ALL
  10.        OS : PC
  11.      DATE : MAY 10, 1988                                 PAGE : 1/3
  12.  
  13.     TITLE : TURBO BASIC DATABASE TOOLBOX FIXES
  14.  
  15.  
  16.  
  17.  
  18.   This handout documents the existing Turbo Basic  Database Toolbox
  19.   fixes for known problems
  20.  
  21.   Correction One
  22.  
  23.   Import R.BAS
  24.   Problem:  All occurrences of dfLen need to be changed to dfLen&
  25.             in
  26.  
  27.             Import R.BAS.  There are four occurrences at lines 11,
  28.             177, 192, 266.
  29.  
  30.   Solution: 'line #11:
  31.              DIM dfType(100), dfAddr&(100), dfLen&(100)
  32.  
  33.             'line #177:
  34.              dfLen&(I) = CVL(MID$(InBuf$, 63 + TenI, 4))
  35.  
  36.             'line #192:
  37.              GET$ #InpFile, dfLen&(FDIdx), InBuf$
  38.  
  39.             'line 266:
  40.              GET$ #InpFile, dfLen&(DMRIdx), InBuf$
  41.  
  42.  
  43.   Correction Two
  44.  
  45.   DSD - GETKEY.BOX
  46.   Problem:  If DSD is compiled to an .EXE file with Bounds checking
  47.             turned on, the program will  exit to DOS with an error.
  48.   If
  49.             Bounds checking is turned off no error occurs.
  50.  
  51.   Solution: Line 72 of GETKEY.BOX
  52.             should be changed from
  53.             KeyVal$ = SPACE$(KeyLength)
  54.             to
  55.  
  56.           KeyVal$ = LEFT$(KeyVal$ + SPACE$(KeyLength),
  57.             KetLength)
  58.  
  59.             Line 91 of GETKEY.BOX which reads:
  60.             IF dbCurPgRef&(DataSet) < 2 THEN CALL ClearKey(DataSet)
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT : TURBO BASIC                                NUMBER : 428
  75.   VERSION : ALL
  76.        OS : PC
  77.      DATE : MAY 10, 1988                                 PAGE : 2/3
  78.  
  79.     TITLE : TURBO BASIC DATABASE TOOLBOX FIXES
  80.  
  81.  
  82.  
  83.  
  84.             should be deleted
  85.  
  86.   Correction Three
  87.  
  88.   CLIENT - DELETING A RECORD
  89.   Problem:   Entering an initial customer  record  in  client  then
  90.   deleting
  91.             it causes a file handling error #52
  92.  
  93.   Solution: Line 124 of of DELKEY.BOX
  94.  
  95.             should be changed from
  96.  
  97.             IF Level = 1 AND ItemCount =1 THEN 'delete top page
  98.             NewRoot& = CVL(MID$(dbPool$(dbCurBf), %TagSize+1 + _
  99.             KeyLength, %RNOSize)
  100.  
  101.             to
  102.  
  103.             IF Level = 1 AND ItemCount = 1 _
  104.             AND (dbLevelCount(DataSet) > 1) THEN 'delete top page
  105.             NewRoot& = CVL(MID$(dbPool$(dbCurBf), %TagSize+1 + _
  106.             KeyLength, %RNoSize))
  107.  
  108.   Explanation:  The IF statement is modified  to  account  for  the
  109.   current level-count of the Dataset whose  key page is about to be
  110.   deleted and to prevent  deletion if the level-count is already at
  111.   1.
  112.  
  113.  
  114.   Correction Four
  115.  
  116.   STATE.BAS
  117.   Problem:  Fatal Error 63 occurs in STATE.BAS
  118.  
  119.   Solution: Workaround is obtained via correction three
  120.  
  121.  
  122.   Correction Five
  123.  
  124.   FEXISTS.BOX
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.   PRODUCT : TURBO BASIC                                NUMBER : 428
  141.   VERSION : ALL
  142.        OS : PC
  143.      DATE : MAY 10, 1988                                 PAGE : 3/3
  144.  
  145.     TITLE : TURBO BASIC DATABASE TOOLBOX FIXES
  146.  
  147.  
  148.  
  149.  
  150.   Problem: the FNFileExists function in FEXISTS.BOX doesn't  set up
  151.   its own data transfer  area  thereby  trashing the parameter line
  152.   buffer in the UI.
  153.  
  154.   Replace the code in FEXISTS.BOX with the following.
  155.  
  156.   DEF fnFileExists (FileSpec$)
  157.       ON ERROR GOTO ErrorHandler
  158.       OPEN FileSpec$ FOR INPUT AS #32760
  159.       FNFileExists = -1
  160.       CLOSE 32760
  161.  
  162.   Finish:
  163.       ON ERROR GOTO 0
  164.       EXIT DEF
  165.  
  166.   ErrorHandler:
  167.       FNFileExists = 0
  168.       RESUME Finish
  169.       END DEF 'FileExists
  170.  
  171.   Correction Six
  172.  
  173.  
  174.   ACCESS.BOX line 144 change MaxRecLen to MinRecLen
  175.  
  176.  
  177.  
  178.  
  179.  
  180.  
  181.  
  182.  
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.