CREATE FUNCTION QGPL.STRIPCHAR(STRINGIN VARCHAR(50),             
CHR VARCHAR(50)) RETURNS VARCHAR(50) LANGUAGE SQL                     
BEGIN                                                                 
      DECLARE X INT;                                                  
      DECLARE RET VARCHAR(50);                                        
      SET X=1;                                                        
      WHILE X <= LENGTH(TRIM(STRINGIN)) DO                            
      IF SUBSTR(STRINGIN,X,1) != CHR THEN                             
      IF X = 1 THEN                                                   
      SET RET=SUBSTR(STRINGIN,X,1);                                   
      ELSE SET RET=TRIM(RET)||TRIM(SUBSTR(STRINGIN,X,1));             
      END IF;                                                         
      END IF;                                                         
      SET X=X+1;                                                      
      END WHILE;                                                      
      RETURN TRIM(RET);                                               
END