Re: getting system date and system time

[Booth Martin <booth@xxxxxxxxxxxx>]

Me bad.  Never dawned on me to look at the 6 0 description. 


Robert Rogerson wrote:
> <snip>
> What about:
>
>    D SYSYMD          S              6  0    inz(*SYS)
>
>    D SYSTIME         S              6  0    inz(*SYS)
> </snip>
>
> You can't initialize this way.
> RNF3430: Initial value *SYS does not match data type of field SYSTIME.
> Initial value is ignored
>
> Rob
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Booth Martin
> Sent: December 14, 2007 11:32 AM
> To: RPG programming on the AS400 / iSeries
> Subject: Re: getting system date and system time
>
> What about:
>
>    D SYSYMD          S              6  0    inz(*SYS)
>
>    D SYSTIME         S              6  0    inz(*SYS)
>
> ?
>
> Another choice would be to not use the two fields at all, nut instead use
> %date() & %time() where you are using SYSMYD & SYSTIME; e.g.  eval DateField
> = %date()
>
>
>
>
>
>
> 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
> >   
> >     
>
>