RE: getting system date and system time

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

Rick

It's about TIME!

for us all to repair to the reading room!

Vern

At 10:13 AM 12/14/2007, you wrote:

> Noooooooooo... here comes that "midnight" thread again!  (Rick runs
> screaming and flailing his hands to seek refuge in his favorite bathroom
> stall!)
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Adam Glauser
> Sent: Friday, December 14, 2007 10:28 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Re: getting system date and system time
>
> 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
>
>
> Others have show less complicated syntax to get the date and time in
> individual operations.
>
> If there's any chance the job in question can run near midnight, it
> might be wise to do this instead:
>
> sysDateTime = %timestamp();
> sysDate     = %date(sysDateTime);
> sysTime     = %time(sysDateTime);
>
> Suppose that your given code runs at 12:59:59.999999, lets say on
> 2007-12-14.  You have the chance that SYSYMD = d'2007-12-14' and SYSTIME
>
> = '00:00:01'.  Of course, this is so unlikely that you may decide to
> ignore this possibility, but in some situations it is critical to
> consider this.
>
> HTH,
> Adam
> --
> 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.
>
>
> This message and any attached documents contain information which 
> may be confidential, subject to privilege or exempt from disclosure 
> under applicable law. These materials are intended only for the use 
> of the intended recipient. If you are not the intended recipient of 
> this transmission you are hereby notified that any distribution, 
> disclosure, printing, copying, storage, modification or the taking 
> of any action in reliance upon this transmission is strictly 
> prohibited. Delivery of this message to any person other than the 
> intended recipient shall not compromise or waive such 
> confidentiality, privilege or exemption from disclosure as to this 
> communication. If you have received this communication in error, 
> please immediately notify the sender and delete the message from your system.
>
>
>
> --
> 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.