pears.GenerateKeyname

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