Re: Getting the Date & Time from a Timestamp

This should do what yo are asking:

(Use fixed font:)

   |   Dtimestamp        S               Z                                      
                      | 
   |   Danswer           S               T                                      
                      | 
   |   
CL0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....     
               | 
   |    * Add 12 HRS and 16 minutes to midnight                                 
                      | 
   |    *                                                                       
                      | 
   |   C     T'00:00 am'   ADDDUR    12:*Hours     answer                       
                      | 
   |   C                   ADDDUR    16:*Minutes   answer                       
                      | 
   |                                                                            
                

(see: the RPG400 Refeerence manual; where this example came from, for more 
explanation if needed.)   



In <01BE2D34.1363A7C0@ppp-02.ts-3.min.idt.net>, on 12/21/98 
   at 10:32 PM, Joe Teff <jteff19@idt.net> said:

>I have a case where I need to add a variable number of minutes to a time
>and return the new time. Because this could go past midnight, a Timestamp
>is a perfect solution. I can add a number of minutes to it and it will
>handle the date and time for me. The challenge is to get the date and
>time from it. It would be nice to do it either of the following ways:

>       C               *MDY            Move    timestamp                       
>date            6 0
>       C               *HMS            Move    timestamp                       
>time            6 0

>- or -

>       C                                       Extrct  timestamp:*date date    
>        6 0
>       C                                       Extrct  timestamp:*time time    
>        6 0

>Neither of these methods work. Is there an easy way to extract the date
>and time from a timestamp? I can't seem to find one.

>Joe Teff

>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* This is the RPG/400 Discussion Mailing List!  To submit a new         *
>* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
>* from this list send email to MAJORDOMO@midrange.com and specify       *
>* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
>* be directed to the list owner / operator: david@midrange.com          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *