Re: *DTS to Timestamp -- RPG400-L


I agree that life would be much nicer if we could populate a timestamp
directly from the API's...  or perhaps something like:

     C     *dts          move      api_stamp     rpg_stamp

I don't know if this helps you, but this is how I generally populate my
timestamps from the system clock... I imagine you could adapt it to your
purposes...

     P*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     P* This gets the current system time...
     P*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
     P GetTime         B
     D GetTime         PI              Z

     D peLilian        S             10I 0
     D peSeconds       s              8A

     D peGregor        ds
     D   dsGYear               1      4A
     D   dsGMonth              5      6A
     D   dsGDay                7      8A
     D   dsGHour               9     10A
     D   dsGMin               11     12A
     D   dsGSec               13     14A
     D   dsGMilli             15     17A

     D dsTimeStmp      ds
     D   dsTS                  1     26Z
     D   dsYear                1      4A
     D   dsMonth               6      7A
     D   dsDay                 9     10A
     D   dsHour               12     13A
     D   dsMin                15     16A
     D   dsSec                18     19A
     D   dsMilli              21     23A

     D wkInitTS        S               Z

     c                   eval      dsTS = wkInitTS

     C                   callb     'CEELOCT'
     c                   parm                    peLilian
     c                   parm                    peSeconds
     c                   parm                    peGregor

     c                   eval      dsYear = dsGYear
     c                   eval      dsMonth = dsGMonth
     c                   eval      dsDay = dsGDay
     c                   eval      dsHour = dsGHour
     c                   eval      dsMin = dsGMin
     c                   eval      dsSec = dsGSec
     c                   eval      dsMilli = dsGMilli

     c                   return     dsTS

     P                 E


On Mon, 22 Jan 2001, Jim Langston wrote:

> I created a function for retrieving the WRKNETF information which works
> fine.  One of the fields I am returning is an 8 byte *DTS (System Time
> Stamp) variable.  I tried loading this into an RPG Timestamp field type
> Z, but got an error.
> 
> So I am using the API QWCCVTDT to convert this to a date, and I am selecting
> an output type of *YYMMDD which comes out in the format:
> CCYYMMDDHHMMSS000
> 
> What I really want is this in an RPG Z type field, since I already have some
> functions in my library to manipulate them (give me CCYYMMDD, give me HHMM,
> etc...).  There does not seem to be a timestamp output type for QWCCVTDT
> so I am thinking I'll have to use some other method to then get this date/time
> into an RPG timestamp field.
> 
> With create data structure construction I think I can get this done without
> having to do any moves.  
> 
> But, my question becomes, is there a better way?  Why isn't the RPG Z type
> Timestamp the same format as the system time stamp?  Or maybe it is and I
> just don't know how to get it there?  Why doesn't the QWCCVTDT API have an
> output type for the 'Z' RPG type?
> 
> Confusion reigns supreme,
> 
> Jim Langston

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---