RE: *YMD0 TEST (DE) CharacterDate not working in 6.1 as of beginning ofyear

Funny... This is a current production job and has work for years with a bad date code...

I agree the *ISO should have been used.

I did change code to use *ISO0 and all is fine...

Thanks to all

Jon Marasco

OfficeMax

Sr. Software Engineer
630-864-5101


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Mildenberger
Sent: Wednesday, January 09, 2013 9:22 AM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: *YMD0 TEST (DE) CharacterDate not working in 6.1 as of beginning ofyear

Format *YMD is YYMMDD, only 2 position year. So the '13' is being
picked up as month which is invalid. Use *ISO instead as it is
YYYYMMDD.

Scott Mildenberger

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Marasco, Jon
Sent: Wednesday, January 09, 2013 8:15 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: *YMD0 TEST (DE) CharacterDate not working in 6.1 as of
beginning ofyear

I have a RPG program using the TEST (DE) op code with a date code of
*YMD0. Any date (i.e. 20130101, 20130201) the %Error is executed:

OS = 6.1
LSTRUNDAT is a character 8 field.

Any date after 20121231, the code within the %Error is excluded and
should not.

IF LSTRUNDAT is before 20130101 (i.e. 20121231), the program will
execute the code following the else

I did step through DEBUG to verify my findings...


C *YMD0 Test (DE) LstRunDat
C If %Error
C Eval LogMsg = 'Invalid Date '
C ExSr S980_LogErr
C ExSr S999_ProcEOJ
C Else
C *YMD0 Move LstRunDat TempDate
C AddDur 1:*Days TempDate

Any thoughts?

Thanks

Jon Marasco
OfficeMax
Sr. Software Engineer
630-864-5101
--
This is the RPG programming on the IBM i (AS/400 and 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.