Re: Getting the Date & Time from a Timestamp

["Muna Hats" <hattys@xxxxxxxxxxx>]

>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.

***********************************

Hi joe

This RPG sample program will be help you for extracting date and time-

     C                     TIME           DATTIM 140   
     C           DATTIM    DSPLY                       
     C                     MOVE DATTIM    DTTIM  14    
     C           6         SUBSTDTTIM:1   TIME    6    
     C           8         SUBSTDTTIM:7   DATE    8    
     C           TIME      DSPLY                       
     C           DATE      DSPLY                       
     C                     SETON                     LR

************************

The TIME opcode stores the date and time in  DATTIM variable which 
should be numeric of lenght 14. To extract date and time separately you 
have to use SUBST opcode. SUBSTR works for character variable only. So 
you need DATTIM to be moved to a character variable i.e DTTIM and then 
do the operation. Similarly you can extract minutes, seconds, day, month 
and year.

Sanjiv Kumar Hati
BFL Software Ltd.
Bangalore
India.

______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *