LEAP-YEAR-CALCS.                                  
            IF CENTURY-YEAR                               
               PERFORM CENTURY-LEAP-CALCS                 
            ELSE                                          
               PERFORM YEAR-LEAP-CALCS.                   
                                                          
       *                                                  
        CENTURY-LEAP-CALCS.                               
            DIVIDE N-CENTURY BY 4                         
                GIVING QUOTIENT REMAINDER LEAP.           
                                                          
       *                                                  
        YEAR-LEAP-CALCS.                                  
            DIVIDE N-TENS-PART BY 4                       
                GIVING QUOTIENT REMAINDER LEAP.           
                                                          
       * 26                                               
        POSS-LEAP-YEAR.                                   
            IF LEAP-YEAR                                  
               MOVE 29 TO DAYS-IN-MONTH(2).               


   Link back to cobol page