SQL Function to convert a numeric date into a real date

CvtNum2Date.SQL

-- 1. CvtNumYYYYMMDD2Date User Defined Function
--    Convert a numeric date in the format YYYYMMDD into a real date
Create or Replace Function YourSchema.CvtNumYYYYMMDD2Date (                        
       ParDateNum Dec(8, 0) )                     
       Returns DATE                              
       Language SQL                              
       Specific YourSchema.CvtNumYYYYMMDD2Date               
       Not Deterministic                         
       Reads SQL Data                            
       Called on NULL Input                      
       Disallow Parallel                         
       Set Option  COMMIT    = *NONE ,           
                   DBGVIEW   = *SOURCE
                                           
BEGIN                                                
   Declare Continue Handler For SQLEXCEPTION         
   Return Date('8888-12-31') ;   
   If ParDateNum = 0 Then Return Date('0001-01-01');
   End If;                    
   Return Date(Digits(ParDateNum) Concat '000000');   
END  ;      

  
-- 2. CvtCYYMMDD2Date User Defined Function
--    Convert a numeric date in the format CYYMMDD into a real date

Create or Replace Function YourSchema.CvtNumCYYMMDD2Date (                        
       ParDateNum Dec(7, 0) )                     
       Returns DATE                              
       Language SQL                              
       Specific YourSchema.CvtNumCYYMMDD2Date               
       Not Deterministic                         
       Reads SQL Data                            
       Called on NULL Input                      
       Disallow Parallel                         
       Set Option  COMMIT    = *NONE ,           
                   DBGVIEW   = *SOURCE
                                           
BEGIN                                                
   Declare Continue Handler For SQLEXCEPTION         
   Return Date('8888-12-31') ;   
   If ParDateNum = 0 Then Return Date('0001-01-01');
   End If;                    
   Return Date(Right(Digits(ParDateNum + 19000000) Concat '000000', 14));   
END  ;