P CvtDate         B                                            
     D CvtDate         PI             8  0                          
     D  FromDate                      8  0 VALUE                    
     D  FromFmt                       5    VALUE                    
     D  ToFmt                         5    VALUE                    
     D DateFld         S               D                            
     C                   If        FromDate<>0                      
     C                   Select                                     
     C                   When      FromFmt='*YYMD'                  
     C     *ISO          Move      FromDate      DateFld            
     C                   When      FromFmt='*YMD'                   
     C     *YMD          Move      FromDate      DateFld            
     C                   When      FromFmt='*MDY'                       
     C     *MDY          Move      FromDate      DateFld                
     C                   When      FromFmt='*CYMD'                      
     C     *CYMD         Move      FromDate      DateFld                
     C                   When      FromFmt='*MDYY'                      
     C     *USA          Move      FromDate      DateFld                
     C                   EndSl                                          
     C                   Select                                         
     C                   When      ToFmt  ='*YYMD'                      
     C     *ISO          Move      DateFld       ToDate            8 0  
     C                   When      ToFmt  ='*YMD'                       
     C     *YMD          Move      DateFld       ToDate                 
     C                   When      ToFmt  ='*MDY'                       
     C     *MDY          Move      DateFld       ToDate                 
     C                   When      ToFmt  ='*CYMD'                      
     C     *CYMD         Move      DateFld       ToDate                 
     C                   When      ToFmt  ='*MDYY'                      
     C     *USA          Move      DateFld       ToDate                 
     C                   EndSl                                          
     C                   Else                                           
     C                   Eval      ToDate=0                             
     C                   EndIf                                          
     C                   Return    ToDate                               
     P CvtDate         E