home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / lan / sql211.arj / NPATVAP.211 < prev    next >
Text File  |  1991-01-24  |  9KB  |  564 lines
  1. .    patch #15  fixes problems with MIN/MAX on autoinc field
  2. a cs:100
  3. mov ax,cs
  4. add ax,1000
  5. mov ds,ax
  6.  
  7. r sp
  8. 110
  9. g =100,107
  10. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  11. a DS:d86c
  12. PUSH    BX
  13. MOV    BX,[BP+0E]
  14. MOV    DX,[BP+10]
  15. MOV    SI,[BP+12]
  16. MOV    DI,AX
  17. DEC    DI
  18. JZ    D887
  19. CMP    DI,+0E
  20. JZ    D887
  21. CMP    DI,+08
  22. JZ    D8DF
  23. JMP    D8CD
  24.  
  25. a DS:D8CD
  26. DEC    DI
  27. JZ    D8A8
  28.  
  29. .    end patch #15
  30.  
  31. .    patch #16  - fixes GPI from scalar function and subst. var.
  32. .               in a restriction
  33. a cs:100
  34. mov ax,cs
  35. add ax, 1000
  36. mov ds, ax
  37.  
  38. r sp
  39. 110
  40. g =100 107
  41. e cs:100 4d 5a 38 01 1c 03 87 18 24 06 00 00 ff ff 00 00
  42.  
  43. a ds:8406
  44. ;patch 16a - in SetTypeForVar
  45. push cs
  46. mov  bx, [15f]
  47. push bx
  48. mov  bx, 2b1
  49. push bx
  50. es:
  51. mov  bx, [si]
  52. cmp  bx, 0
  53. jge  841a
  54. neg  bx
  55. retf
  56. nop
  57.  
  58. a ds:8449
  59. ; patch 16b - in SetTypeForVar
  60. push cs
  61. mov  cx, [15f]
  62. push cx
  63. mov  cx, 2d3
  64. push cx
  65. retf
  66.  
  67. a cs:100
  68. mov ax,cs
  69. add ax, 4000
  70. mov ds, ax
  71.  
  72. r sp
  73. 110
  74. g =100 107
  75. e cs:100 4d 5a 38 01 1c 03 87 18 24 06 00 00 ff ff 00 00
  76.  
  77. a ds:c74c
  78. ; patch 16c - in Substex
  79. mov    ax,bx
  80. mov    dx,es
  81. nop
  82. nop
  83. nop
  84. nop
  85.  
  86. a cs:65f1
  87. ;patch 16a
  88. cmp  bx, 100
  89. je   6609
  90. cmp  bx, 306
  91. je   6609
  92. cmp  bx, 301
  93. je   6609
  94. cmp  bx, 304
  95. jne  660e
  96. mov  bx, 260c
  97. push bx
  98. retf
  99. mov  bx, 262a
  100. push bx
  101. retf
  102. ;patch 16b
  103. es:
  104. mov  ax,[si+a]
  105. cmp  ax,ffff
  106. je   6628
  107. es:
  108. mov    dx,[si+c]
  109. mov    bx,[bp-6]
  110. mov  cx, 2644
  111. push cx
  112. retf
  113. mov  cx, 264b
  114. push cx
  115. retf
  116.  
  117. .    end of patch #16
  118.  
  119.  
  120. .    patch #18 fixes data truncation in INSERT INTO...SELECT
  121. a cs:100
  122. mov ax,cs
  123. add ax,3000
  124. mov ds,ax
  125.  
  126. r sp
  127. 110
  128. g =100,107
  129. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  130. a ds:AFCD
  131. JMP AFED
  132.  
  133. .    end of patch #18
  134.  
  135. .    patch #20
  136. .      xDescribe (option 3) does not return secondary field count if the
  137. .      join type is cartesion product join.
  138. a cs:100
  139. mov ax,cs
  140. add ax, 1000
  141. mov ds, ax
  142.  
  143. r sp
  144. 110
  145. g =100 107
  146. e cs:100 4d 5a 38 01 1c 03 87 18 24 06 00 00 ff ff 00 00
  147.  
  148. a ds:efda
  149. les    bx, [bp-c]
  150. es:
  151. mov    ax,[bx]
  152. mov    [bp-4],ax
  153. es:
  154. mov    ax,[bx+2]
  155. mov    [bp-2],ax
  156. es:
  157. add    word ptr [bx],2
  158. les    bx, [bp+e]
  159. es:
  160. add    word ptr [bx],2
  161. es:
  162. mov    ax,[bx]
  163. cmp    ax,[bp+12]
  164. jl    f002
  165. mov    word ptr [bp-18],d2
  166. les    bx, [bp-10]
  167. es:
  168. mov    si,[bx+33]
  169. es:
  170. mov    di,[bx+35]
  171. es:
  172. cmp    byte ptr [bx+4],2
  173. je    f03e
  174.  
  175. .    end of patch #20
  176.  
  177.  
  178. .    patch #22 - ddExtend with record sizes 511 and 512 return status 28
  179. a cs:100
  180. mov ax,cs
  181. add ax,3000
  182. mov ds,ax
  183.  
  184. r sp
  185. 110
  186. g =100,107
  187. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  188.  
  189. a ds:1c5b
  190. ; patch 22 - in ddExtend
  191. push cs
  192. mov  ax, [15f]
  193. push ax
  194. mov  ax, 2ed
  195. push ax
  196. retf
  197. nop
  198.  
  199. a cs:662d
  200. ;patch 22
  201. add    si,6
  202. cmp    si,[bp - 1c]
  203. jle    663b
  204. add    byte ptr [bp - 1b],2
  205. jmp    6630
  206. sub    si,6
  207. mov  ax, c3e6
  208. push ax
  209. retf
  210.  
  211. .    end of patch #22
  212. .
  213. .    patch #23  Autoinc field on INSERT  INTO subquery
  214. .
  215. a cs:100
  216. mov ax,cs
  217. add ax, 1000
  218. mov ds, ax
  219.  
  220. r sp
  221. 110
  222. g =100 107
  223. e cs:100 4d 5a 38 01 1c 03 87 18 24 06 00 00 ff ff 00 00
  224.  
  225. a ds:cca0
  226. ;  CnvrtAscii
  227. push cs
  228. mov  bx, [15f]
  229. push bx
  230. mov  bx,32d
  231. push bx
  232. retf
  233.  
  234.  
  235. a cs:666d
  236. cmp   al,2
  237. jne   6676
  238. mov   bx,6f31
  239. jmp   66a0
  240. cmp   al,5
  241. je    6682
  242. cmp   al,6
  243. je    6682
  244. cmp   al,8
  245. jne   6687
  246. mov   bx,6f78
  247. jmp   66a0
  248. cmp   al,9
  249. jne   6690
  250. mov   bx,70ca
  251. jmp   66a0
  252. cmp   al,f
  253. je    6698
  254. cmp   al,1
  255. jne   669d
  256. mov   bx,6ea2
  257. jmp   66a0
  258. mov   bx,70f3
  259. push  bx
  260. retf
  261.  
  262. .    end of patch #23
  263. .
  264. .    patch #24  GPI from xValidate for ZSTRING to be checked
  265. .           which is smaller than size indicated in data buffer size
  266. .           parameter
  267. a cs:100
  268. mov ax,cs
  269. add ax, 4000
  270. mov ds, ax
  271.  
  272. r sp
  273. 110
  274. g =100 107
  275. e cs:100 4d 5a 38 01 1c 03 87 18 24 06 00 00 ff ff 00 00
  276.  
  277. a ds:435f
  278. push cs
  279. mov  bx, [15f]
  280. push bx
  281. mov  bx, 303
  282. push bx
  283. retf
  284. nop
  285. nop
  286.  
  287. a cs:6643
  288. ;patch 24
  289. MOV    BX, ebec  ; offset to L15 - 7
  290. PUSH    BX
  291. mov    es, [bp-48]
  292. mov    bx, [bp-46]
  293. es:
  294. cmp    byte ptr [bx+6], b
  295. jne    666c
  296. push    cx            ; strlen
  297. push    di
  298. push    es
  299. mov    di,[bp-4a]
  300. mov    es,[bp-4c]
  301. mov    cx,ffff
  302. xor    ax,ax
  303. repne    scasb
  304. not    cx
  305. dec    cx
  306. mov    ax,cx
  307. pop    es
  308. pop    di
  309. pop    cx
  310. retf
  311.  
  312. .    end of patch #24
  313.  
  314. .        patch #25 - When searching for all values in a ZSTRING field
  315. .            on a BEGINS WITH restriction all records that
  316. .            begin with all but the last chracter in the
  317. .            specified string are returned.
  318. .            If want records that begin with 'abc' then all
  319. .            records beginning with 'ab' are returned.
  320.  
  321. a cs:100
  322. mov ax,cs
  323. add ax, 1000
  324. mov ds, ax
  325.  
  326. r sp
  327. 110
  328. g =100 107
  329. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  330.  
  331. a ds:fe17
  332. lea    si,[bp-22]
  333. les    ax,[si+6]
  334. add    bx,ax
  335. es:
  336. inc    byte ptr [bx-1]
  337. nop
  338.  
  339. .    end of patch #25
  340. .
  341. .       patch #26  *** OPTIONAL ***
  342. .
  343. .       Allows use of european format of decimal comma instead of decimal
  344. .       point.
  345. .       
  346. .       This patch is NOT applied unless this patch file is modified.
  347. a cs:100
  348. mov ax,cs
  349. add ax, 5000
  350. mov ds, ax
  351.  
  352. r sp
  353. 110
  354. g =100 107
  355. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  356. .
  357. .   DELETE THE SEMI-COLON FROM THE BEGINNING OF THE FOLLOWING LINES TO
  358. .   ENABLE PATCH.
  359. ;e DS:c342 2c
  360. ;a cs:100
  361. ;mov ax,cs
  362. ;add ax,3000
  363. ;mov ds, ax
  364.  
  365. ;r sp
  366. ;110
  367. ;g =100 107
  368. ;e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  369. ;e DS:adf7 2c
  370. ;e DS:ae2f 2c
  371. ;e DS:3d53 2c
  372. ;e DS:3d9d 2c
  373.  
  374. .       end of patch #26
  375. .
  376. .    patch #27  VAP GPI's when workstation is rebooted while a session
  377. .           is still active.
  378. a c0bd
  379. mov  ax, [15f]
  380. push ax
  381. mov  ax, 362
  382. push ax
  383. retf
  384.  
  385. a  66a2
  386. mov  word ptr[4de],-1
  387. xor  ax,ax
  388. db   c9
  389. pop  di
  390. pop  es
  391. pop  si
  392. pop  cx
  393. retf
  394.  
  395. .    end of patch #27
  396.  
  397. .       patch #29 Fixes problems removing supplemental indexes.
  398. a 66b0
  399. LEA    BX,[BP-10]                         
  400. ES:                                       
  401. MOV    AX,[SI]                            
  402. CMP    AX,[BX]                            
  403. JNZ    66C5                               
  404. TEST    BYTE PTR [BX+08],80                
  405. JZ    66CA                               
  406. MOV    AX,CD81
  407. JMP    66CD                               
  408. MOV    AX,CDA9                            
  409. JMP    66CD                               
  410. MOV    AX,CDA4                            
  411. PUSH    AX                                 
  412. RETF
  413.  
  414. a cs:100
  415. mov ax,cs
  416. add ax, 3000
  417. mov ds, ax
  418.  
  419. r sp
  420. 110
  421. g =100 107
  422. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  423. a DS:25f3
  424. PUSH    CS                                 
  425. MOV    BX,[015F]                          
  426. PUSH    BX                                 
  427. MOV    BX,0370                            
  428. PUSH    BX                                 
  429. RETF                                       
  430. NOP                                       
  431. NOP                                       
  432. NOP                                       
  433.  
  434. .       end of patch #29
  435.  
  436. .       patch #30  prevents server GPI for equal comparisons of fields
  437. .                  of different sizes from different files.
  438. a cs:100
  439. mov ax,cs
  440. add ax, 2000
  441. mov ds, ax
  442.  
  443. r sp
  444. 110
  445. g =100 107
  446. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  447. e DS:9c27 08
  448. a DS:9c5b
  449. ES:                                       
  450. CMP    DX,[SI+04]                         
  451. JA    9C70                               
  452. MOV    BX,[BP+14]                         
  453. OR    BX,[BP+16]                         
  454. JNZ    9C70                               
  455. NOP                                       
  456. NOP
  457.  
  458. .       end of patch #30
  459.  
  460. .           patch #32   - *** OPTIONAL ***
  461. .                       - xValidate causing memory to be over written
  462. .                         when an invalid field value is given and a view 
  463. .                         has not yet been created - GPI's server
  464. .                       - if this patch is applied, a view is created
  465. .                         and an invalid field value is given then the
  466. .                         XQLStatus will not provide the field name associated
  467. .                         with the invalid value      
  468. .
  469. .
  470. .       This patch is NOT applied unless this patch file is modified.
  471.  
  472.  
  473. .
  474. .
  475. .  DELETE THE SEMI-COLON FROM THE BEGINNING OF THE FOLLOWING LINES TO
  476. .  ENABLE PATCH.
  477.  
  478. ;a cs:100
  479. ;mov ax,cs
  480. ;add ax, 4000
  481. ;mov ds, ax
  482.  
  483. ;r sp
  484. ;110
  485. ;g =100 107
  486. ;e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  487.  
  488. ;a ds:4469
  489. ;jmp 4488
  490.  
  491. .    end of patch #32
  492. .
  493. .       patch #34 Status 328 on xRestrict
  494. a cs:100
  495. mov ax,cs
  496. add ax, 2000
  497. mov ds, ax
  498.  
  499. r sp
  500. 110
  501. g =100 107
  502. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  503. a ds:6c0e
  504. push cs
  505. mov bx, [15f]
  506. push bx
  507. mov bx,38f
  508. push bx
  509. retf
  510. test ax,ax
  511. jne 6c7a
  512. nop
  513. nop
  514. nop
  515. nop
  516.  
  517. a 66cf
  518. pop bx
  519. push bx
  520. mov ax,cs
  521. push ax
  522. mov ax,3ab
  523. push ax
  524. push bx
  525. mov ax, 1307
  526. push ax
  527. lea bx,[bp-a]
  528. mov cx,ds
  529. es:
  530. mov ax,[si+a]
  531. es:
  532. mov dx,[si+c]
  533. retf
  534. mov dx,ax
  535. mov ax,1399
  536. push ax
  537. xor ax,ax
  538. cmp word ptr [bp-6],110
  539. je 6701
  540. cmp word ptr [bp-6], 111
  541. jne 6702
  542. inc ax
  543. retf
  544.  
  545. .       end of patch #34
  546.  
  547.  
  548. .       patch #36 Owner name ignored on xRecall
  549. a cs:100
  550. mov ax,cs
  551. add ax,1000
  552. mov ds,ax
  553.  
  554. r sp
  555. 110
  556. g =100,107
  557. e cs:100  4D 5A 38 01 1C 03 87 18 24 06 00 00 FF FF 00 00
  558. e ds:a927 90 90 90
  559. .       end of patch #36
  560. .    END OF PATCH FILE FOR NW$SQL.VP0
  561. .    DO NOT REMOVE THE NEXT TWO LINES!!
  562. w
  563. q
  564.