RE: Invalid date on Write to Control Rec

Correct!

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Ashwani Singh
Sent: Friday, November 01, 2013 12:05 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: RE: Invalid date on Write to Control Rec

Gary,

This is the problem because you are using MDY date format in date conversion which supports only from year 1940 to 2039.

The date you are storing or converting is in ISO format whose LOVAL is 01-01-0001 , you need to either change the logic of the program to use *ISO conversion or store dates in MDY format only.



Thanks,
Ashwani Singh
P Please consider the environment before printing this e-mail

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Gary Thompson
Sent: Friday, November 01, 2013 10:02 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Invalid date on Write to Control Rec

I get RNX0114 on: WRITE C1CTL (the subfile control record)

"The year portion of a Date or Timestamp value is not in the correct range (C G D F)."

This confuses me because a dump shows the control record date field as:

C1DDATFR DATE(10) '0001-01-01'

DDS has C1DDATFR defined as "Data type L"

We're seriously past that born-on date, but I thought "*LOVAL" would be ok ?


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

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