RE: Problem with date zone in SQL fetch

Thanks Rob,

The data in my file was typed by me with DFU for testing. I wasn't aware that the data could have been badly entered. However, I've tried your test which works fine.
Any other ideas ?

PS, just trying to put corrupted data into the file. By flat file, I think you mean without DDS. Well, I've created a file that I'm copying to CLTFSC with *NOCHK. I can see that I can put what I want into the numeric zones. But, I can't put corrupted data into the date zone, FMAJDL : I get CPF5035 : incorrect date format.



-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de rob@xxxxxxxxx
Envoyé : vendredi 23 mai 2008 16:11
À : RPG programming on the AS400 / iSeries
Objet : Re: Problem with date zone in SQL fetch

Another test for corrupted data is to use STRSQL, iNav's Run SQL Scripts or whatever and try SELECT FMAJDL, days(fmajdl) as testdatetodays, FUSRID FROM CLTFSC WHERE FCLTNO = 125; If it can't calculate the days from the date field, it's your data, if it can, then suspect your RPG.

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





David FOXWELL <David.FOXWELL@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/23/2008 09:53 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> cc

Subject
Problem with date zone in SQL fetch






Hi

I'm getting a SQL0180 from when I execute SELECT FMAJDL, FUSRID FROM CLTFSC WHERE FCLTNO = 125


CLTFSC is a DDS PF and FMAJDL is described as a date with format *EUR.

My DS to receive the select is


D gHst DS QUALIFIED

D MajDt LIKE ( DFN_MAJDL )

D UsrId LIKE ( DFN_USRID )

DFN_MAJDL is also a date zone with format *EUR

When I look at the compiler list, I can see that gHst.MajDt is also the same format.

As a temporary fix I've changed to
SELECT CHAR(FMAJDL), FUSRID
FROM CLTFSC WHERE FCLTNO = 125

What's happenin'?
--
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.