Re: SQL Date Type SQLRPGLE Program Error

What manual and what page is this on? I want to take a more detailed look at it.


On Wed, 23 Mar 2005 14:35:25 -0500, Wilt, Charles <CWilt@xxxxxxxxxxxx> wrote:
> Here's an example from the manual:
> 
> DDEPARTMENT DS OCCURS(10)
> D DEPTNO 01 03A
> D DEPTNM 04 32A
> D MGRNO 33 38A
> D ADMRD 39 41A
> DIND_ARRAY DS OCCURS(10)
> D INDS 4B 0 DIM(4)
> ...
> C/EXEC SQL
> C+ DECLARE C1 CURSOR FOR
> C+ SELECT *
> C+ FROM CORPDATA.DEPARTMENT
> C/END-EXEC
> ...
> C/EXEC SQL
> C+ FETCH C1 FOR 10 ROWS
> C+ INTO :DEPARTMENT:IND_ARRAY
> C/END-EXEC
> 
> Charles Wilt
> iSeries Systems Administrator / Developer
> Mitsubishi Electric Automotive America
> ph: 513-573-4343
> fax: 513-398-1121
> 
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mike Wills
> > Sent: Wednesday, March 23, 2005 1:53 PM
> > To: Midrange_RPG400_L
> > Subject: SQL Date Type SQLRPGLE Program Error
> >
> >
> > I am hoping someone can help me understand why my code isn't working.
> > On my file, there is some SQL date data types defined. For example:
> >
> > D gResultDs     E DS                  EXTNAME(DBAPAPI)
> > 75=D DAPICMPNY                      4B 0
> > 76=D DAPIVENDOR                     9A
> > 77=D DAPIINVC                      22A
> > 78=D DAPISUFFIX                     4B 0
> > 79=D DAPICNCLSQ                     4B 0
> > 80=D DAPICNCLDT                    10D   DATFMT (*ISO-)
> > 81=D DAPIBTCHNM                     9B 0
> > 82=D DAPIBTCHDT                    10D   DATFMT (*ISO-)
> > 83=D DAPIVCHNBR                    10A
> > 84=D DAPIATHCD                      3A
> > 85=D DAPIPRCLVL                     5A
> > 86=D DAPIACCRCD                     4A
> > 87=D DAPIINVOTY                     1A
> > 88=D DAPIINVCRR                     5A
> > 89=D DAPIPYCRRN                     5A
> > 90=D DAPIINSTIN                    10D   DATFMT (*ISO-)
> > 91=D DAPIPRFRLC                     4A
> > 92=D DAPIPNMBR                     14A
> >
> > I am doing a "select *" and putting the results in gResultDs. I am
> > getting a SQLSTT of 22008 and SQLCOD of -183. The text for the error
> > is: Datetime field overflow occured; for example an arithmetic
> > operation on a date or timestamp has a result that is not within the
> > valid range of dates.
> >
> > Using UPDDTA, I don't see any invalid dates. There are a couple that
> > are "0" (0001-01-01), all of the rest are within this last year or so.
> > Any ideas for me?
> >
> > --
> > Mike Wills
> > Midrange Programmer/Lawson Administrator
> > koldark@xxxxxxxxx
> > http://www.mikewills.name
> > Want Gmail? Email koldark+gmail@xxxxxxxxx to get on my waiting list.
> > --
> > 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.
> >
> >
> 
> --
> 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.
> 
> 


-- 
Mike Wills
Midrange Programmer/Lawson Administrator
koldark@xxxxxxxxx
http://www.mikewills.name
Want Gmail? Email koldark+gmail@xxxxxxxxx to get on my waiting list.