Rob,
I swear it used to work in early versions of the os but then they came out
with a release that busted that.
Before release V5R1 the SQLCOD in this situation was *Zeros, but beginning
with V5R1 a warning (SQLCOD 30) is sent.
If you check for SQLCOD = *Zeros (which is not recommended, but widely
used), your program run before V5R1 without problems but fails with V5R1.
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von rob@xxxxxxxxx
Gesendet: Tuesday, August 19, 2008 20:01
An: RPG programming on the AS400 / iSeries
Betreff: RE: Returning Record Sets from SQLRPGLE Web Services
Walden,
Assume that the program is not recompiled. And, a field is added at the
end.
Starting with this:
CREATE TABLE ROB.WALDEN (
MYKEY INT NOT NULL AS IDENTITY,
MYDATA CHAR ( 5) NOT NULL,
PRIMARY KEY (MYKEY))
Then a little SQLRPGLE program with this:
D walden e ds extname(walden)
...
C/EXEC SQL
C+ Declare C1 cursor for
C+ Select *
C+ from walden
C/END-EXEC
...
C/EXEC SQL
C+ Fetch C1 into :walden
C/END-EXEC
...
works fine. But, if you do this
ALTER TABLE ROB.WALDEN ADD COLUMN MYDATE DATE
and run the program again, (without recompiling)
Wait! The darn thing worked! I swear it used to work in early versions
of the os but then they came out with a release that busted that.
Rob Berendt
midrange.com
