Re: *DTS to Timestamp

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

Thanks, this is close to what I wrote, but I called it DTSToStamp and
it first calls QWCCVTDT to convert it then I do the move and return an 
RPG time stamp.

Just what is CEELOCT doing?  About the same thing as CWCCVTDT?  DTS
is an 8 byte field, but your peGregor is a 17 byte field, the same
format that CWCCVTDT comes out with with *YYMD format.

I was just hoping there was something I was overlooking and that it was
very easy to convert between the two without moves.  Guess not.

Regards,

Jim Langston

Scott Klement wrote:
> 
> 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
+---