idate_ サブルーチンは、日、月、年が入った数値形式で現在の日付を IDATE_STRUCT に戻します。
例
TYPE IDATE_TYPE SEQUENCE INTEGER(4) IDAY INTEGER(4) IMONTH INTEGER(4) IYEAR END TYPE TYPE (IDATE_TYPE) IDATE_STRUCT CALL idate_(IDATE_STRUCT)