Re: Date conversion question

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

Steve,

I had timestamps on the brain - this is more than you asked for!! The 
%date() part will do what you asked.

Vern

On 8/4/2010 5:02 PM, Vern Hamberg wrote:
> Steve
>
> If you on at least V5R3 you can do something like this -
>
> d date13          s             13a   inz('1100802144806')
> d realdate        s               d
> d realtime        s               t
> d realts          s               z
>
>  /free
>   realdate = %date(%subst(date13 : 1 : 7) : *CYMD0);
>   realtime = %time(%subst(date13 : 8 : 6) : *HMS0);
>   realts = %date(%subst(date13 : 1 : 7) : *CYMD0) + 
> %time(%subst(date13 : 8 : 6) : *HMS0);
>   *inlr = *on;
>  /end-free
>
> You can also do the %date() and %time() stuff inlinr in the realts 
> assignment -
>
>   realts = realdate + realtime;
>
> This actually works - I just tried it!
>
> Vern
>
> On 8/4/2010 4:24 PM, sjl wrote:
> > All -
> >
> > I'm using the QUSRMBRD API to retrieve member description information.
> >
> > The member creation date is a 13-byte alpha value returned in the form
> > CYYMMDDHHMMSS.
> >
> > Example:  '1100802144806'  (August 8, 2010, 14:48:06)
> >
> > What is the correct way to convert this value into a date field for
> > performing a date comparison in an RPG program?
> >
> > Regards,
> > sjl