AW: Date in RPGLE

["Birgitta Hauser" <Hauser@xxxxxxxxxxxxxxx>]

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
>