01  TABLES-FOR-CALC.                                      
            03 MONTH-DAY-VALUES.                                  
               05 FILLER             PIC X(24)                    
               VALUE "312831303130313130313031".                  
            03 FILLER REDEFINES MONTH-DAY-VALUES.                 
               05 DAYS-IN-MONTH      PIC 9(2) OCCURS 12 TIMES.    


   Link back to cobol page