RE: SQL Date Type SQLRPGLE Program Error

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

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.
> 
>