pears.contresptran

CREATE FUNCTION "pears"."contresptran"( IN "oldresp" CHAR(1) ) 
RETURNS CHAR(2)
BEGIN
  DECLARE "rv" CHAR(2);
  CASE "oldresp"
  WHEN 'n' THEN SET "rv" = '1'
  WHEN 'i' THEN SET "rv" = '3'
  WHEN 'a' THEN SET "rv" = 'D'
  WHEN 'm' THEN SET "rv" = 'B'
  WHEN 'e' THEN SET "rv" = '2'
  WHEN '1' THEN SET "rv" = 'C'
  WHEN '4' THEN SET "rv" = '6'
  WHEN '6' THEN SET "rv" = 'C6'
  WHEN '5' THEN SET "rv" = '7'
  WHEN '8' THEN SET "rv" = 'LS'
  WHEN 'r' THEN SET "rv" = 'LS'
  WHEN 'g' THEN SET "rv" = 'LS'
  WHEN 'l' THEN SET "rv" = 'LS'
  WHEN '9' THEN SET "rv" = 'LS'
  WHEN 'v' THEN SET "rv" = 'LS'
  WHEN '2' THEN SET "rv" = '4'
  WHEN 'u' THEN SET "rv" = 'N'
  WHEN '3' THEN SET "rv" = '5'
  WHEN '7' THEN SET "rv" = '5'
  WHEN 'x' THEN SET "rv" = 'CU'
  WHEN 't' THEN SET "rv" = 'IG'
  ELSE
    SET "rv" = "oldresp"
  END CASE;
  RETURN("rv")
END