====== pears.contresptran ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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
}
</code>