RE: dates in /free

[Don <dr2@xxxxxxxxxxxx>]

if it ain't broke......



On Wed, 27 Aug 2003, Hatzenbeler, Tim wrote:

> I remember seeing this math formula about 10 years ago (my 1st programming
> job)  in a piece of code, and thinking ... what on earth?   So I pulled out
> a calculator, and I was totally amazed by this, so I tried it on about 15
> different dates, and decided to leave the code alone...
>
> Tim
>
> > -----Original Message-----
> > From:       Bob cozzi [SMTP:cozzi@xxxxxxxxx]
> > Sent:       Wednesday, August 27, 2003 11:14 AM
> > To: 'RPG programming on the AS400 / iSeries'
> > Subject:    RE: dates in /free
> >
> > That's right Jon, because we all know the "best" way to convert numeric
> > fields that contain dates is by multiplying them by 10000.01 or 100.0001
> > <TIC>
> >
> >
> > Bob Cozzi
> > Cozzi Consulting
> > www.rpgiv.com
> >
> >
> > -----Original Message-----
> > From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> > On Behalf Of Jon Paris
> > Sent: Wednesday, August 27, 2003 1:05 PM
> > To: rpg400-l@xxxxxxxxxxxx
> > Subject: RE: dates in /free
> >
> >  >> What is the best  way in rpgle/free to convert a date in a 6 digit
> > numeric field from ymd to mdy?
> >
> > I'm not sure the word "best" applies but at V5R2 you can do this:
> >
> >        mdy = %Int(%Char (%Date (ymd: *YMD): *MDY0) );
> >
> >
> >  >> Also, how can I use the TEST opcode in rpgle/free to test a date in a
> > 6
> > digit numeric field?
> >
> > You can't.  Your best bet is to use MONITOR like so:
> >
> >      D mdy             s              6  0
> >      D ymd             s              6  0
> >
> >       /Free
> >
> >        monitor;
> >
> >        mdy = %Int(%Char (%Date (ymd: *YMD): *MDY0) );
> >
> >        on-error;   // catch bad date
> >
> >           // do whatever you do with a bad date
> >        endmon;
> >
> >
> > Jon Paris
> > Partner400
> > www.Partner400.com
> >
> >
> > _______________________________________________
> > 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 e-mail message, including any attachments, is for the sole use of the
> intended recipient(s) and may contain confidential or privileged
> information.  Any unauthorized review, use, disclosure or distribution is
> prohibited.  If you are not the intended recipient, please contact the
> sender by reply e-mail and destroy the message.
> _______________________________________________
> 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.
>