pears.GenerateKeyname

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."GenerateKeyname" IS 
{CREATE FUNCTION pears.GenerateKeyname(IN x CHAR(100))
RETURNS CHAR(100)
BEGIN
  DECLARE w1 CHAR(100);
  DECLARE wn CHAR(100);
  DECLARE c CHAR(1);
  DECLARE i INTEGER;
  SET x=TRIM(x);
  SET i=charindex("char"(32),x);
  IF i > 0 THEN
    SET w1="left"(x,i-1);
    IF w1 IN('mr','ms','miss','mrs','mr.','ms.','mrs.') THEN
      SET x="right"(x,LENGTH(x)-i)
    END IF
  END IF;
  SET i=LENGTH(x);
  loop1: loop
    SET c=substr(x,i,1);
    IF c = "char"(32) THEN
      RETURN makekeyname("right"(x,LENGTH(x)-i)+' '+"left"(x,i-1))
    END IF;
    SET i=i-1;
    IF i <= 0 THEN
      leave loop1
    END IF
  END loop loop1;
  RETURN x
END
}