Re: Date conversion question

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

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