pears.tempdepttran

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."tempdepttran" IS 
{CREATE FUNCTION pears.tempdepttran(IN deptu CHAR(1))
RETURNS CHAR(20)
BEGIN
  DECLARE rv CHAR(20);
  CASE deptu WHEN 'D' THEN
    SET rv='TCT' WHEN 'G' THEN
    SET rv='TDR' WHEN 'I' THEN
    SET rv='TNP' WHEN 'Z' THEN
    SET rv='TLS'
  ELSE
    SET rv='TIZ'
  END CASE
  ;
  RETURN(rv)
END
}