    class
    	DATE

    Ancestors
    	ABSOLUTE*
    	DATE_VALIDITY_CHECKER
    	DATE_VALUE

    Clients
    	DATABASE_DATA [G -> DATABASE create default_create end]
    	DATE
    	DATE_DURATION
    	DATE_SET
    	DATE_TIME
    	DATE_TIME_CODE_STRING
    	DV_TABLEROW_FIELD

    Suppliers
    	ARRAY [G]
    	BOOLEAN
    	C_DATE
    	DATE
    	DATE_DURATION
    	DATE_TIME
    	DATE_TIME_CODE_STRING
    	DURATION*
    	INTEGER_32
    	INTERVAL [G -> ABSOLUTE]