CREATE OR REPLACE FUNCTION STRING_TO_HALF(
    IN_STR IN VARCHAR2
)
-- ===========================================
--  慡妏僇僫暥帤傪敿妏偵曄姺偟傑偡丅
-- https://www.projectgroup.info/tips/Oracle/function/F000010.html
-- ===========================================
RETURN VARCHAR2
AS
  result     VARCHAR2(32767);
BEGIN
  --曄姺懳徠偺暥帤楍傪庢摼
  result := IN_STR;


  --戺揰傗敿戺揰偺暥帤偼屄暿偵曄姺偡傞
  result := REPLACE(result,'僈','掇');
  result := REPLACE(result,'僊','忿');
  result := REPLACE(result,'僌','皋');
  result := REPLACE(result,'僎','罐');
  result := REPLACE(result,'僑','恨');

  result := REPLACE(result,'僓','晦');
  result := REPLACE(result,'僕','嫁');
  result := REPLACE(result,'僘','睫');
  result := REPLACE(result,'僛','巨');
  result := REPLACE(result,'僝','哭');

  result := REPLACE(result,'僟','擂');
  result := REPLACE(result,'僡','赁');
  result := REPLACE(result,'僤','罗');
  result := REPLACE(result,'僨','棉');
  result := REPLACE(result,'僪','霓');

  result := REPLACE(result,'僶','兽');
  result := REPLACE(result,'價','宿');
  result := REPLACE(result,'僽','剔');
  result := REPLACE(result,'儀','娃');
  result := REPLACE(result,'儃','无');

  result := REPLACE(result,'僷','蔬');
  result := REPLACE(result,'僺','诉');
  result := REPLACE(result,'僾','踢');
  result := REPLACE(result,'儁','瓦');
  result := REPLACE(result,'億','芜') ;

  --戺揰丄敿戺揰偺側偄暥帤傪抲姺
  RETURN TRANSLATE(result,'傾僀僂僄僆僇僉僋働僐僒僔僗僙僜僞僠僣僥僩僫僯僰僱僲僴僸僼僿儂儅儈儉儊儌儎儐儓儔儕儖儗儘儚儝儞傽傿僁僃僅儍儏儑僢乕'
                         ,'辈炒刀犯购患骄坷谅媚牌侨墒颂臀闲岩釉罩棕仝圮Ж┆');

END;
/

show error;
/
