pears.contresptran [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

====== 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>
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>