RE: multi-row SQL fetch receiving -804 error

Gene,

I'm not absolutely sure, but I seem to recall that ONLY multi-occurance Data-structures can be used for multi-row fetch. Change your D spec for fm to:

d fmds ds 30a occurs(300)

Then, I think you could:

d fm s 30a dim(300) based(fmds)

and would not need to change your programming to deal with MODS.... (You would need to change the fetch to load up fmds instead of fm.)

Just a thought...
Eric

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Gene Burns
Sent: Wednesday, November 21, 2007 4:45 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: multi-row SQL fetch receiving -804 error


I'm trying to use the following multi-row fetch in an embedded SQL
program on V5R2:


d fm s 30a dim(300)
d sql_num c const(300)




c/exec sql
c+ include sqlda
c/end-exec

c/exec sql
c+ declare c1 cursor for
c+ select formidcf
c+ from formtabl01
c/end-exec

c/exec sql
c+ open c1
c/end-exec

c/exec sql
c+ fetch c1 for 300 rows
c+ using descriptor :sqlda into :fm
c/end-exec

c/exec sql
c+ close c1
c/end-exec




The program compiles just fine, but when it runs I receive sqlcod =
-804, sqlstt = 07002 on the fetch statement.

Message Text: SQLDA not valid.
Cause Text: If the error type is 2, 3 or 9, the entry in error is &2,
the value of SQLTYPE is &3, and the value of SQLLEN or SQLLONGLEN is
&4. The specified SQLDA is not valid because of error type &1. Error
types and their meanings are:

* 1 -- The value of SQLN is less than zero, the value of SQLD is
not between 0 and 8000, the value of SQLD is greater than the value of
SQLN, or that the value of SQLD has not been initialized in REXX.
* 2 -- The value of SQLTYPE is not valid or that the value of
SQLTYPE is not supported or has not been initialized in REXX. The
types that are not supported in REXX are NUL-terminated graphic
string, NUL-terminated character string, PASCAL L-string, sign leading
separate, and binary with precision and scale.
* 3 -- The value of SQLLEN or SQLLONGLEN is not valid or that the
value of SQLLEN, SQLPRECISION, or SQLSCALE has not been initialized in
REXX. If REXX and SQLTYPE is decimal or numeric, then either
SQLPRECISION or SQLSCALE has not been initialized. Otherwise, SQLLEN
has not been initialized. If SQLTYPE is a LOB variable, then
SQLLONGLEN is not valid.
* 4 -- Size of the SQLDA area was not large enough for the number
of entries specified in SQLN statement.
* 5 -- The SQLDA area was not on a 16-byte boundary.
* 6 -- The value specified for SQLDABC is not valid. The value is
either not large enough for the number of entries specified in SQLN or
the value is greater than the maximum allowed.
* 7 -- The value of SQLN was not at least twice the size of SQLD
and LOB host variables were found in the SQLDA.
* 8 -- The seventh byte of SQLDAID was not a '2', '3' or '4' and
LOB host variables were found in the SQLDA.
* 9 -- The SQLDATAL pointer was not null for a DBCLOB host
variable, but the length value referenced by the SQLDATAL pointer had
an odd value.
* 10 -- The SQLTYPE for a LOB locator did not match the type
associated with LOB locator.
* 11 -- The row length is greater than the maximum allowed row length.


The information from the info center is not exactly helpful. Where is
the error type that it talks about? The SQLTYPE = 6448 and SQLLEN =
6448 after the open. SQLLONGLEN does not exist according to debug.

Gene