Retrieving current date in free form to numeric 8,0 field

[EMSS]

Really stuck on how to retrieve the current date into an 8,0 numeric format in free form RPG/LE.

(this was so easy with C specs...)

Result must be YYYYMMDD.

Code snippet as follows:

...
D ThisDate S D
D Num80 S 8 0

//free

ThisDate = %Date(); // retrieve current date.
Num80 = ???; // (need help with this piece)

//End-Free

[jamief]

This should work for you.

Try this

d CCYYMMDD        s              8  0                
d ISODate         s               D                  
                                                     
 /free                                               
  eval  Isodate = %Date();                           
  CCYYMMDD = %Int( %Char( Isodate : *ISO0 ) );       
  DSPLY   %char(CCYYMMDD);                           
  eval *INlr = *On;                                  
 /end-free

or just this

CCYYMMDD = %Int( %Char( %date())) ;

Please check here also

http://www.code400.com/funwithdates.php

take care
Jamie

[EMSS]

Thanks so much! This is the one that works - from the suggested web page:

// Todays Date in Ccyymmdd format

Today = %uns(%char(%Date():*Iso0));

[Aashish]

Jamie's second option needs modification

CCYYMMDD = %Int( %Char( %date():*ISO0));

That's it!!

Take care,
Aashish