Re: getting system date and system time

[Booth Martin <booth@xxxxxxxxxxxx>]

I am curious.  Why wouldn't this work?

   c                   eval      sysdate = %dec( %date() : *ymd )
   c                   eval      systime = %dec( %time() : *hms



Brian Johnson wrote:
>      d systs           s               z
>     d sysdate         s              6p 0
>     d systime         s              6p 0
>     c                   eval      systs = %timestamp()
>     c                   eval      sysdate = %dec( %date( systs ) : *ymd )
>     c                   eval      systime = %dec( %time( systs ) : *hms )
>
> On Dec 13, 2007 5:06 PM, <JDHorn@xxxxxxxxxxxxxx> wrote:
>   
> >   Is there a better way to retrieve the system date and time than this, or
> >   is this as good as any?
> >   System date, not the job date.
> >   D SYSYMD          S              6  0
> >   D SYSTIME         S              6  0
> >    /FREE
> >     SYSYMD  = %DEC(%SUBST(%CHAR(%TIMESTAMP:*ISO0):3:6):6:0);
> >     SYSTIME = %DEC(%SUBST(%CHAR(%TIMESTAMP:*ISO0):9:6):6:0);
> >    /END-FREE
> >   C                   SETON                                        LR
> >
> >
> >
> >   Jim Horn
> > --
> > 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.
> >
> >
> >     
>
>
>
>