System Data Format

Hi Jaime,

what do you need a numeric date, a character date or a date date?
If you need a date, define a date field and use %Date() Built-in-Function to
get the system date.
If you need numeric or character date, define a date field too and covert it
after using Built-in-Functions %Char(), %Dec()/%Int().

D DateIso         S               D   
D DateNum         S              8P  0
D DateChar        S             10A
 /Free
   DateIso  = %Date();
   DateChar = %Char(DateIso: *Eur);
   DateChar = %Char(%Date(): *Eur);
   DateNum  = %Int(DateChar);
   DateNum  = %Int(%Char(DateIso: *Eur);
 /End-Free

Date fields can be intitalized with system date. But be aware, the
initialization only takes place the first call.
D DateIso         S               D     inz(*Sys)

Birgitta