IBM i Db2 Check for digits

IsNumeric.SQL

--  Will return 0 if the string contains only digits 
--  or the number of characters found.     
--  OS: IBM i Db2 
       Create or replace Function isNumeric (                
         V_INPUT VarChar(1000))                                  
         Returns INT                                       
         Language SQL                                            
         Deterministic                                           
         Reads SQL Data                                          
         Called on NULL Input                                    
         Disallow Parallel                                       
         Return                                                  
         length(replace(trim(translate(V_INPUT,  '          ',   
         '1234567890' )), ' ', ''));                             
          End;