Lines Matching refs:MONTH_TYPE

47      TYPE MONTH_TYPE IS (JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG,  type
52           MONTH : MONTH_TYPE;
83      THIS_MONTH    : MONTH_TYPE := AUG;
87      STORED_INDEX  : MONTH_TYPE := AUG;
95      TYPE DUE_DATES IS ARRAY (MONTH_TYPE RANGE JAN .. DEC) OF DATE;
110           TYPE ARRAY_TYPE IS ARRAY (MONTH_TYPE) OF DATE;
114           INDEX_ELEMENT        : IN OUT MONTH_TYPE;
250                                    MONTH_TYPE'SUCC(INDEX_ELEMENT);
258                               MONTH_TYPE'PRED (INDEX_ELEMENT);
320           M1 : MONTH_TYPE := MAY;
321           M2 : MONTH_TYPE := JUN;