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;