June 14th, 2006, 09:20 AM
|
|
Registered User
|
|
Join Date: Jun 2006
Posts: 3
Time spent in forums: 29 m 4 sec
Reputation Power: 0
|
|
|
RPG Embedded SQL - SQLSTT 22018
I have a DB2 file that is made up of alpha and numeric (ZONED) fields. If I STRSQL and select, everything is fine. If I embed same select and FETCH INTO an external DS, I get the SQLSTATE 22018. (Invalid Data) 
How do I determine which field is causing the problem? Why doesn't the interactive SQL give me an error? 
Interactive SQL Code:
 Original
- Interactive SQL Code |
|
|
|
SELECT * FROM MYTABLE WHERE MYFIELD = 4
SELECT statement run complete.
RPGLE Program Code:
| Original
- RPGLE Program Code |
|
|
|
D MYEXTDS E DS EXTNAME(MYTABLE)
C*EXEC SQL
C* DECLARE MYCURSOR CURSOR FOR
C* SELECT *
C* FROM MYTABLE
C* WHERE MYFIELD = 0004
C*END-EXEC
C*EXEC SQL
C* OPEN MYCURSOR
C*END-EXEC
C*EXEC SQL
C* FETCH NEXT
C* FROM MYCURSOR
C* INTO :MYEXTDS
C*END-EXEC
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
