Re: decimal data error

Did you take the D option to get a RPG dump and find anything there that 
made sense?

By the way, for a single row fetch you didn't need to use a cursor.  A 
simple
C/EXEC SQL 
C+ select min(k00001)
C+ into :PDateC
C+  from "Y.MAPS" 
C+ where k00001 > (' %' || '20041126') 
C+ and substr(f00001,1,1) = 'M' 
C/END-EXEC 
would have worked.


Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Muralidhar Narayana" <Muralidhar_Narayana@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/16/2005 06:59 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

Subject
decimal data error






I have an SQLRPGLE  program which compiled perfectly and ran well.
I have intrdouced following code , I started getting decimal data error.
Iam going out of clues to correct this and make it run, anyone have ideas?
appreciate early response.
 
PDATEC has been defined as below :
 

D  PDateC                 1      8 
 
 
C/EXEC SQL 
C+ DECLARE Q1 CURSOR FOR 
C+ select min(k00001)  from "Y.MAPS" 
C+ where k00001 > (' %' || '20041126') 
C+ and substr(f00001,1,1) = 'M' 
C/END-EXEC 
 
C/EXEC SQL 
C+ OPEN Q1 
C/END-EXEC 
 
C/EXEC SQL 
C+ FETCH Q1 
C+ INTO :PDATEC 
C/END-EXEC 
 
C/EXEC SQL 
C+ CLOSE Q1 
C/END-EXEC 

-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.