I had problems with ddins in odbc.j and made the following changes:
...
SQL_CONCUR_LOCK=: 2
NB. MAXARRAYSIZE=: 2147483647
MAXARRAYSIZE=: 32767 NB. DM 2006 08 12
...
if. 2>#x do. errret ISI08 return. end.
NB. if. -. *./ 2=> [EMAIL PROTECTED]&.>}.x do. errret ISI08 return. end. NB. DM
2006 07 27
if. 1<#rows=. ~. > [EMAIL PROTECTED]&.>}.x do. errret ISI08 return. end.
...
(bname)=: <. brow&{ >(of+i){x
(blname)=: (nrows,1)$4 NB. DM 2006 08 12
q=. sh;(>:i);SQL_C_SLONG;(vad bname);4;(<vad blname)
...
(bname)=: (_&<.) brow&{ >(of+i){x
(blname)=: (nrows,1)$8 NB. DM 2006 08 12
q=. sh;(>:i);SQL_C_DOUBLE;(vad bname);8;(<vad blname)
...
case. SQL_CHAR;SQL_VARCHAR do.
if. 32=3!:0 ]0{(of+i){x do. NB. DM 2006 07 27
bx=.,brow&{ >(of+i){x NB. DM 2006 07 27
(bname)=: ,a=. ln&{."1 >brow&{ >(of+i){x
(blname)=: ,.;#&.>bx NB. DM 2006 07 27
q=. sh;(>:i);SQL_C_CHAR;(vad bname);(#{.a);(<vad blname)
else. NB. DM 2006 07 27
(bname)=: ,a=. ln&{."1 brow&{ >(of+i){x
(blname)=: (nrows,1)$#{.a NB. DM 2006 08 12
q=. sh;(>:i);SQL_C_CHAR;(vad bname);(#{.a);(<vad blname)
end. NB. DM 2006 07 27
case. <SQL_LONGVARCHAR do.
...
(bname)=: ,a=. ln&{."1 brow&{ >(of+i){x
(blname)=: ,.nrows#SQL_NULL_DATA NB. DM 2006 08 12
q=. sh;(>:i);SQL_C_CHAR;(vad bname);(#{.a);(<vad blname)
...
(bname)=: ,a=. ln&{."1 brow&{ >(of+i){x
(blname)=: ,.nrows#SQL_NULL_DATA NB. DM 2006 08 12
q=. sh;(>:i);SQL_C_CHAR;(vad bname);(#{.a);(<vad blname)
case. SQL_TYPE_DATE;SQL_TYPE_TIME;SQL_TYPE_TIMESTAMP do.
data=.>(of+i){x NB. DM 2006 07 24
if. 2 e.~ 3!:0 data do.
...
(bname)=: ,brow{a NB. DM 2006 08 12
(blname)=: (nrows,1)$#{.a NB. DM 2006 08 12
q=. sh;(>:i);SQL_C_CHAR;(vad bname);(#{.a);(<vad blname)
...
--
David Mitchell
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
