Rot3 - PL/SQL.sql

rot.sql

-- ---------------------------------------------
-- @Author: bendem
-- @Date:   2013-12-13 10:13:47
-- @Last Modified by:   bendem
-- @Last Modified time: 2013-12-16 19:34:14
-- ---------------------------------------------

CREATE OR REPLACE PROCEDURE rot3(
    parm_str in varchar2,
    parm_ret out varchar2
) is
begin
    parm_ret := translate(parm_str,
        'ABCDEFGHIJKLMNOPQRSTUVWXYZ',
        'DEFGHIJKLMNOPQRSTUVWXYZABC'
    );
    parm_ret := translate(parm_ret,
        'abcdefghijklmnopqrstuvwxyz',
        'defghijklmnopqrstuvwxyzabc'
    );
end rot3;
/