***********************************************************       
       *        PROGRAM TO VALIDATE DATE USING SUBPROGRAM        *       
       *                                                         *       
       ***********************************************************       
      H            D                                                     
      FDATERPG CF  E                    WORKSTN                          
      C******************* CALCULATIONS ******************************** 
      C                     EXFMTDATE1                                   
      C           *IN03     DOWEQ'0'                                     
      C*  IF NOT END OF JOB AND VALID CUSTOMER NUMBER                    
      C*                                                                 
      C*          *IN03     IFEQ '0'                                     
      C                     Z-ADD0         FLAG                          
      C                     CALL 'SPDATE'                                
      C                     PARM           DAY                           
      C                     PARM           MONTH                         
      C                     PARM           YEAR                          
      C                     PARM           FLAG    10                    
      C           FLAG      IFEQ 1                                       
      C                     EXFMTDATE3                                   
      C                     ELSE                                         
      C                     EXFMTDATE2                                   
      C                     ENDIF                                        
      C                     EXFMTDATE1                                   
      C*                    ENDIF                                        
      C                     ENDDO                                        
      C                     SETON                     LR                 




   back to RPG page