pears.contresptran

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."contresptran" IS 
{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
}