Procedure Vs_Proc_Test_1(
    pID      IN NUMBER ,
    pMESSAGE IN VARCHAR2 ,
    pSTATUS OUT NUMBER ,
    pRES OUT VARCHAR2 )
AS
BEGIN
  INSERT INTO VS_TEST_1
    (ID, MESSAGE
    ) VALUES
    (pID, pMESSAGE
    );
    Pstatus := 1 ;
    pRes:='!русский!';
END VS_PROC_TEST_1;

-- тестовая процедура для проверки работы с базой данных
CREATE PROCEDURE TESTDATA(
IN pmsg_id INTEGER,
IN perrortext CHARACTER,
OUT status INTEGER,
OUT result CHARACTER
)
LANGUAGE DATABASE EXTERNAL NAME "websphere.Vs_Proc_Test_1";
-- нода Database - вызов тестовой процедуры для инсерта данных и получения ответных данных
CREATE DATABASE MODULE Main_Database
	CREATE FUNCTION Main() RETURNS BOOLEAN
	BEGIN
		DECLARE status INTEGER;
		DECLARE result CHARACTER;
		--CALL TESTDATA(2, 'test message', status, result);
		CALL TESTDATA( 3 , 'русский текст', status, result);
		SET Environment.Variables.Data.Status = status;
		SET Environment.Variables.Data.Result = result;
		RETURN TRUE;
	END;

END MODULE;

 <DATA>
  <PMSG_ID> 5171263 </PMSG_ID> 
  <Status> 1 </Status> 
  <Result>!!</Result> 
  </DATA>

 1  	NLS_NCHAR_CHARACTERSET 	UTF8                        
 2  	NLS_LANGUAGE           	AMERICAN                    
 3  	NLS_TERRITORY          	AMERICA                     
 4  	NLS_CURRENCY           	$                           
 5  	NLS_ISO_CURRENCY       	AMERICA                     
 6  	NLS_NUMERIC_CHARACTERS 	.,                          
 7  	NLS_CHARACTERSET       	CL8MSWIN1251  

IANAAppCodePage=2251

IANAAppCodePage= 8