Re: Need help formatting a timestamp to long character

http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/books/c092508602.htm

or

http://tinyurl.com/yeku2fb

the EXTRCT opcode may be what you want?


"
D LOGONDATE S D
D DATE_STR S 15
D MONTHS S 8 DIM(12) CTDATA

C*0N01Factor1+++++++Opcode(E)+Factor2+++++++Result++++++++Len++D+HiLoEq....
* Move the job date to LOGONDATE. By default, LOGONDATE has an *ISO
* date format, which contains a 4-digit year. *DATE also contains a
* 4-digit year, but in a different format, *USA.
C *USA MOVE *DATE LOGONDATE
*
* Extract the month from a date field to a 2-digit field
* that is used as an index into a character array containing
* the names of the months. Then extract the day from the
* timestamp to a 2-byte character field which can be used in
* an EVAL concatenation expression to form a string.
* For example, if LOGONDATE is March 17, 1996, LOGMONTH will
* contain 03, LOGDAY will contain 17, and DATE_STR will contain
* 'March 17'.
C EXTRCT LOGONDATE:*M LOGMONTH 2 0
C EXTRCT LOGONDATE:*D LOGDAY 2
C EVAL DATE_STR = %TRIMR(MONTHS(LOGMONTH))
C + ' ' + LOGDAY
C SETON LR
** CTDATA MONTHS
January
February
March
April
May
June
July
August
September
October
November
December
"



On 4/8/2010 10:23 PM, Paul Jackson wrote:

Hello,

I need to convert a 26 character system timestamp (Z type) to a string
that goes something like: "nn:nn AM/PM, Day name, Month name DD,
YYYY".

At first I saw the CEEDATE API and got excited as it seemed to be able
to output that format precisely and then noticed that it cannot take a
time as input, only Lilian days (which makes me wonder why it allows
you to specify the time symbols on the input picture string).

Anyway it looks like I can use CEEDATE to get the date part formatted
and then manually do the time section.

Just wondering if anyone has a better solution or suggestion, don't
want to reinvent the wheel as I'm sure this has been done elsewhere.

Thanks in advance.
-Paul