RE: *MDY date issue

Been there and done that lotsa times!  We are primarily a Cobol shop.  One
day I spent an hour trying to figure out why my "If" statement wasn't
compiling in an RPG program.  Should have - I coded an "End-If" at the end
and everything...  Duuuh "EndIf"!!!!!

Rick Weber  |  TOYS 'Я' US International 

-----Original Message-----
From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxx] 
Sent: Wednesday, March 15, 2006 11:24 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: *MDY date issue

LOL...thanks I needed that.  Sometimes the answer is staring me right in the

face and I cannot see it for whatever reason.

Kind of like can't see the forest through the trees thing.


On Wed, 15 Mar 2006 08:34:39 -0500, Weber, Richard wrote
> "Come over here and turn around so I can hit you in the back of the head!"
> Paul Teutel Sr.
> 
> Rick Weber  |  TOYS 'ñ' US International
> 
> -----Original Message-----
> From: Douglas W. Palme [mailto:dpalme@xxxxxxxxxxx] 
> Sent: Tuesday, March 14, 2006 4:37 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: *MDY date issue
> 
> Someone slap the snot out of me please....figured it out....I need 
> to pass a
> 
> value to the DDS first since I am prompting the user for a date entry.
> 
> Although I would prefer to have blank dates, it'll work.
> 
> On Tue, 14 Mar 2006 13:03:38 -0800, Douglas W. Palme wrote
> > We have several fields that are defined in both the PF and the DDS 
> > as *MDY with a type L designation.  When atempeting to update the 
> > record in DFU we are getting a date time stamp error message.
> > 
> > I believe that for a two digit year the limitation is 1940 through 
> > 28xx correct?
> > 
> > So how in the world do I represent 2006? it will not take 06 for 
> > whatever reason.
> > 
> > Suggestions, hints, or tell me I am too much trouble and need to
> leave.....
> > 
> > Douglas
> > 
> > If you bought it, it was hauled by a truck - somewhere, sometime.
> > 
> > -- 
> > 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.
> 
> If you bought it, it was hauled by a truck - somewhere, sometime.
> 
> -- 
> 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 email message is for the sole use of the intended recipient (s) 
> and may contain confidential and privileged information. Any 
> unauthorized review, use, disclosure or distribution is prohibited. 
> If you are not the intended recipient, please contact the sender by 
> reply email and destroy all copies of the original message. To reply 
> to our email administrator directly, send an email to 
> EmailAdmin@xxxxxxxxxxxx Toys "R" Us, Inc.
> 
> -- 
> 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.


If you bought it, it was hauled by a truck - somewhere, sometime.