***********************************************************       
       *     SUB PROGRAM TO VALIDATE DATE                        *       
       *                                                         *       
       ***********************************************************       
      E                    NOD    12  12  2 0             COMPILE ARRAY  
      C******************* CALCULATIONS ******************************** 
      C*  CHECK DAY FOR MONTH                                            
      C           *ENTRY    PLIST                                        
      C                     PARM           SDAY    20                    
      C                     PARM           SM      20                    
      C                     PARM           SYEAR   20                    
      C                     PARM           SFLAG   10                    
      C           SDAY      IFGT NOD,SM                                  
      C                     MOVE 1         SFLAG                         
      C                     ENDIF                                        
      C                     RETRN                                        
 ** NUM OF DAYS EACH MONTH                                               
 312831303130313130313031                                                



   back to RPG page