RE: dates as parms

Isn't *JOBRUN the job date format for the job that compiles the RPG
program, not the job running the RPG program... at least it used to work
like that (we never liked it working that way so if it's changed, it's a
good thing).

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of bmorris@ca.ibm.com
> Sent: Wednesday, August 15, 2001 3:50 PM
> To: rpg400-l@midrange.com
> Subject: RE: dates as parms
> 
> >From: "Smith, Mike" <Mike_Smith@RGCResources.com>
> >Sent: Wednesday, August 15, 2001 12:39 PM
> >
> >D                 ds
> >D TimeDate                      14  0
> >D  Time60                        6  0 overlay(TimeDate:  1)
> >D  Date80                        8  0 overlay(TimeDate:  7)
> >C                   Time                    TimeDate
> >C                   Select
> >C                   When      Dt_Fmt   = '*MDY'
> >C     *usa          Move      Date80        DateMDY
> >C                   Movel     DateMDY       DateAlpha
> >
> > *
> >C                   When      Dt_Fmt   = '*DMY'
> >C     *usa          Move      Date80        DateDMY
> >C                   Movel     DateDMY       DateAlpha
> 
> Are you sure the job date format is *MDY?  If not, you'll
> get an error using the TIME result with *USA.  You'd be
> better off using the 12-digit TIME result, and using *JOBRUN
> for the Move to the date.  Or just do TIME directly to the
> date value (available in V3R7) as others have suggested.
> 
> Since the result is independent of the input parameter, I
> don't think you need the Select, or even the input parameter.
> 
> Barbara Morris
> 
> _______________________________________________
> 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