SQL 내부에서 Unicode로 변환하는 프로시저

/*
실행 예제
DECLARE @R_VAL VARCHAR(MAX) 
EXEC J_CON_STR_TO_UNICODE N'안녕하세요.유니코드로 변환하는 거에요.', @R_VAL OUTPUT

SELECT @R_VAL 
*/


CREATE PROC [dbo].[J_CON_STR_TO_UNICODE] (
@INPUT_STR NVARCHAR(MAX), -- 변환될 스트링값
@RTN_STR VARCHAR(MAX) OUTPUT -- 반환될 값
) AS
BEGIN

SET NOCOUNT ON


DECLARE @MAX_SEQ INT
DECLARE @III INT
DECLARE @SINGLE_STR NVARCHAR(1)

DECLARE @TMP_STR VARCHAR(MAX) -- VARCHAR(MAX)



SELECT @MAX_SEQ = LEN(@INPUT_STR)
SET @III = 1

SET @RTN_STR = ''

WHILE @MAX_SEQ >= @III
BEGIN
SET @SINGLE_STR = SUBSTRING(@INPUT_STR, @III, @III+1)

SELECT
@TMP_STR = CAST(N'' AS XML).value(
'xs:hexBinary(sql:column("STR_UNICODE"))'
, 'VARCHAR(MAX)'
) 
FROM (
SELECT CAST(UNICODE(@SINGLE_STR) AS VARBINARY(MAX)) AS STR_UNICODE
) AS ENCODING_DATA

SET @RTN_STR = @RTN_STR + RIGHT(@TMP_STR, 4)

SET @III = @III + 1
END

--SELECT @RTN_STR RTN_STR

END