RE: dates as parms

[bmorris@xxxxxxxxxx]

>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