AW: Date in RPGLE

Hi,

... just for Information:
If WDate is defined in the global D-Specs and the program ends with RETURN,
WDate will be only initialized with the first call.

I'd prefer the following solution:
/Free
Char10 = %Char(%Date(): *ISO0);
Dsply Char10;
/End-Free

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Booth Martin
Gesendet: Tuesday, 23. December 2008 04:02
An: RPG programming on the IBM i / System i
Betreff: Re: Date in RPGLE

This code:

D wDate d inz(*sys)
D wChar10 10
C eval wChar10 = %char(wDate: *cymd0)
C wChar10 dsply

gave me this result.
DSPLY 1081222

(I wasn't sure if you wanted *CYMD0 or *YMD0. )


anupam.sinha@xxxxxxxxxxxxxxxxxxxxxxx wrote:

Hi All,

Sorry if this was covered previously, but i could not find in relevant
google/archive search.

Is there any opcode/function in RPGLE through which we can get the system
date in YYYMMDD format without any separators? I know how to do it with
data structures, but dont want to use it everytime.

TIA

Anupam Sinha