RE: SQL Date Type SQLRPGLE Program Error

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

Mike,

Sorry for the delay.  It's in the:
iSeries DB2 Universal Database for iSeries SQL Programming
with Host Languages v5 

or (new name)
iSeries Embedded SQL programming Version 5 Release 3


HTH,

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 4:10 PM
> To: RPG programming on the AS400 / iSeries
> Subject: 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.
> -- 
> 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.
> 
>