RE: Problem with date zone in SQL fetch -- RPG400-L

I hate it when this happens.
Before trying to paste my code, I rubbed out the char from my SELECT CHAR(FMAJDL), FUSRID ,etc .
Ran the program again and it worked.
Sorry about that.

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

Can you repeat this with a small subset of code? For example, can you copy out just enough code to get the error and maybe only fills up a screen or two? If so, paste that, and the DDS, to http://code.midrange.com Paste back the link created to this list.

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/26/2008 03:49 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
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.

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