RE: Date range

I just added a hi and lo range and test the date, if it passes I move on, if
not I display an error message and then move on 


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Holden Tommy
Sent: Thursday, December 07, 2006 9:03 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Date range

An ugly way (IMO) to do this would be to write a utility program (or
service program) to handle all the date logic & modify the base code to
call the routines as needed.  But I have to say that with date calcs in
RPG IV I'd have to ask why add all that extra complexity when a few line
changes can fix the code properly.


Thanks,
Tommy Holden


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Phil Kestenbaum
Sent: Thursday, December 07, 2006 8:56 AM
To: RPG programming on the AS400 / iSeries
Subject: **SPAM** RE: Date range

I don't know if this is an appropriate follow-up, but has anyone
modernized/re-written an old RPG based system w/ such a task list as in
the this email, given serious consideration to moving to date types,
etc. what other moves could be made w/in a context of keeping the basic
code but improving on it on a systems wide level.

Thank you,

Phil

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Doug Palme
Sent: Thursday, December 07, 2006 9:51 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Date range

I won't argue that point one bit.  I have said several times that we (my
company) needs to give serious consideration to moving to date types and
start using at the very least, ISO date types in everything.  You can
always
display a six digit date on a display file if there is a space issue,
and so
far its not happened.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Johnny Johnson
Sent: Thursday, December 07, 2006 8:45 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Date range

What's odd though, is that if you look at a true *MDY date type the low
value is 01/01/40 and the hi value is 12/31/39.  We know this means 1940
through 2039, but it could really be confusing, and possibly disastrous,
if
using *MDY dates as ranges.

Johnny Johnson
Hub Group, Inc.



 

             "Michael Ryan"

             <michaelrtr@gmail

             .com>
To 
             Sent by:                  "RPG programming on the AS400 /

             rpg400-l-bounces@         iSeries" <rpg400-l@xxxxxxxxxxxx>

             midrange.com
cc 
 

 
Subject 
             12/07/2006 08:38          Re: Date range

             AM

 

 

             Please respond to

              RPG programming

              on the AS400 /

                  iSeries

             <rpg400-l@midrang

                  e.com>

 

 





Our friend Mr. Manual can!

Number of Digits in Year                                         Range
of
Years
2 (*YMD, *DMY, *MDY, *JUL)                            1940 to 2039
3 (*CYMD, *CDMY, *CMDY)                               1900 to 2899
4 (*ISO, *USA, *EUR, *JIS, *LONGJUL)             0001 to 9999


On 12/7/06, Douglas Palme <dpalme@xxxxxxxxxxx> wrote:

Can someone tell me what the max range is for a MDY date? IE: 1900 -

2020

Some of our programs still use six digit dates (Yes, I know we should

be

converting them but that's not my decision and considering the number

of

programs involved it would take a huge amount of time and resources)

and
I

need to trap for max dates that are allowable in a *USA format but are
invalid for a *MDY

************************************************************************
****

This transmission may contain information that is privileged,
Confidential and/or exempt from disclosure under applicable law.
If you are not the intended recipient, you are hereby notified that
any disclosure, copying, distribution, or use of the information
contained herein (including any reliance thereon) is STRICTLY
PROHIBITED. If you received this transmission in error, please
immediately contact the sender and destroy the material in its
entirety, whether in electronic or hard copy format. Thank you.

************************************************************************
****

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