def var d as date format "99/99/9999".

session:date-format = "ymd".

repeat:
    update d.
    display day (d) month (d) year (d).
end.