i_base  VARCHAR2 := NULL

CREATE or replace FUNCTION  PM_TO_MULTI_BYTE(

    i_base  VARCHAR2 := NULL

)

RETURN VARCHAR2

IS

    ret VARCHAR2(4000) ;

BEGIN

    ret := REPLACE( i_base, '  ', ' ' ) ;

    ret :=

        TO_MULTI_BYTE( TRANSLATE(

            ret,

            'Ž¡Ž¢Ž£Ž¤Ž¥Ž¦Ž§Ž¨Ž©ŽªŽ«Ž¬Ž­Ž®Ž¯Ž°Ž±Ž²Ž³Ž´ŽµŽ¶Ž·Ž¸Ž¹ŽºŽ»Ž¼Ž½Ž¾Ž¿ŽÀŽÁŽÂŽÃŽÄŽÅŽÆŽÇŽÈŽÉŽÊŽËŽÌŽÍŽÎŽÏŽÐŽÑŽÒŽÓŽÔŽÕŽÖŽ×ŽØŽÙŽÚŽÛŽÜŽÝ',

            '¡£¡Ö¡×¡¢¡¦¥ò¥¡¥£¥¥¥§¥©¥ã¥å¥ç¥Ã¡¼¥¢¥¤¥¦¥¨¥ª¥«¥­¥¯¥±¥³¥µ¥·¥¹¥»¥½¥¿¥Á¥Ä¥Æ¥È¥Ê¥Ë¥Ì¥Í¥Î¥Ï¥Ò¥Õ¥Ø¥Û¥Þ¥ß¥à¥á¥â¥ä¥æ¥è¥é¥ê¥ë¥ì¥í¥ï¥ó'

        ) )

    ;

    ret := REPLACE( ret, '¥«ŽÞ', '¥¬') ;

    ret := REPLACE( ret, '¥­ŽÞ', '¥®') ;

    ret := REPLACE( ret, '¥¯ŽÞ', '¥°') ;

    ret := REPLACE( ret, '¥±ŽÞ', '¥²') ;

    ret := REPLACE( ret, '¥³ŽÞ', '¥´') ;

    ret := REPLACE( ret, '¥µŽÞ', '¥¶') ;

    ret := REPLACE( ret, '¥·ŽÞ', '¥¸') ;

    ret := REPLACE( ret, '¥¹ŽÞ', '¥º') ;

    ret := REPLACE( ret, '¥»ŽÞ', '¥¼') ;

    ret := REPLACE( ret, '¥½ŽÞ', '¥¾') ;

    ret := REPLACE( ret, '¥¿ŽÞ', '¥À') ;

    ret := REPLACE( ret, '¥ÁŽÞ', '¥Â') ;

    ret := REPLACE( ret, '¥ÄŽÞ', '¥Å') ;

    ret := REPLACE( ret, '¥ÆŽÞ', '¥Ç') ;

    ret := REPLACE( ret, '¥ÈŽÞ', '¥É') ;

    ret := REPLACE( ret, '¥ÏŽÞ', '¥Ð') ;

    ret := REPLACE( ret, '¥ÒŽÞ', '¥Ó') ;

    ret := REPLACE( ret, '¥ÕŽÞ', '¥Ö') ;

    ret := REPLACE( ret, '¥ØŽÞ', '¥Ù') ;

    ret := REPLACE( ret, '¥ÛŽÞ', '¥Ü') ;

    ret := REPLACE( ret, '¥ÏŽß', '¥Ñ') ;

    ret := REPLACE( ret, '¥ÒŽß', '¥Ô') ;

    ret := REPLACE( ret, '¥ÕŽß', '¥×') ;

    ret := REPLACE( ret, '¥ØŽß', '¥Ú') ;

    ret := REPLACE( ret, '¥ÛŽß', '¥Ý') ;

    ret := REPLACE( ret, '¥¦ŽÞ', '¥ô') ;

    RETURN ret;

END ;

/