The idate_ subroutine returns the current date in a numerical format containing the day, month and year.
Subroutine
TYPE IDATE_TYPE SEQUENCE INTEGER(4) IDAY INTEGER(4) IMONTH INTEGER(4) IYEAR END TYPE TYPE (IDATE_TYPE) IDATE_STRUCT