RE: Free form date conversion

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Are you on V5R2?
I'd have to double check my notes, but I think that feature was added in
V5R2.

Bob Cozzi

> -----Original Message-----
> From: rpg400-l-admin@midrange.com
> [mailto:rpg400-l-admin@midrange.com] On Behalf Of Paul Jackson
> Sent: Sunday, September 29, 2002 11:39 PM
> To: rpg400-l@midrange.com
> Subject: Re: Free form date conversion
>
>
> Hello Birgitta,
>
> thanks for the info.
> The reason I need the date to be in *JOB format is
> that it will be passed within a command string that
> uses *DATE parameters which require the date to be in
> *JOB format.
>
> Actually I think I found the solution by searching the
> ILE manual for *JOBRUN.  Apparantly the
> %CHARACTER/%CHAR BIF will accept a date field AND a
> value of *JOBRUN as in the following example:
>
> chardate = %char( datefield : *JOBRUN ) ;
>
> thanks!
> --- BrgttHsr@aol.com wrote:
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Hello,
> >
> > if you use %date, the result field must be a date
> > field.
> > Using a datastructure you could overlay the date
> > field through an
> > alphanumeric field.
> >
> > Parameter 2 in %Date describes the date format of
> > parameter 1. It only can be
> > used, if you want to convert an alphanumeric or
> > numeric field to a date
> > field, otherwise the system knows the date format.
> >
> > I don't know how to use *JOBRUN without MOVE. In
> > DatFmt() in D-Specs it can
> > not be specified.
> > Why do you need Job's Date Format? Wouldn't it be
> > better to use *ISO which is
> > the default value for date fields?
> >
> > Birgitta Hauser _______________________________________________
> > This is the RPG programming on the AS400 / iSeries
> > (RPG400-L) mailing list
> > To post a message email: RPG400-L@midrange.com
> > To subscribe, unsubscribe, or change list options,
> > visit:
> > http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> > or email: RPG400-L-request@midrange.com
> > Before posting, please take a moment to review the
> > archives
> > at http://archive.midrange.com/rpg400-l.
> >
>
>
> =====
> Help prevent pet overpopulation. Please spay & neuter your
> pets. http://www.doghause.com/neuter.html
> http://www.fixcats.com
>
> __________________________________________________
> Do you Yahoo!?
> New DSL Internet Access from SBC & Yahoo!
> http://sbc.yahoo.com _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>