Re: Date conversion question

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