ALTER PROCEDURE "DBA"."sp_test"(
  inout inChar char(30)
)
RESULT(
  c char(30)
)
BEGIN
  declare vChar char(30);
  set vChar  = inChar;
  set inChar = 'world';
  select vChar
END

  {
    SQLHENV  env;
    SQLHDBC  cnn;
    SQLHSTMT stmt;
    SQLRETURN ret;
    char buf[30] = "hello";
    SQLULEN buf_ind = 5;
    char col[30];
    SQLULEN col_ind = 0;
    
    ret = SQLAllocHandle(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &env);
    ret = SQLSetEnvAttr(env, SQL_ATTR_ODBC_VERSION, (SQLPOINTER)SQL_OV_ODBC3, 0);
    ret = SQLAllocHandle(SQL_HANDLE_DBC, env, &cnn);
    ret = SQLConnect(cnn, "EmptyDB", SQL_NTS, "DBA", SQL_NTS, "sql", SQL_NTS);
    ret = SQLAllocHandle(SQL_HANDLE_STMT, cnn, &stmt);
    ret = SQLPrepare(stmt, "{call sp_test(?)}", SQL_NTS);
    ret = SQLBindParameter(stmt, 1, SQL_PARAM_INPUT_OUTPUT, SQL_C_CHAR, SQL_CHAR, 30, 0, buf, sizeof(buf), &buf_ind);
    ret = SQLBindCol(stmt, 1, SQL_C_CHAR, col, sizeof(col), &col_ind);
    ret = SQLExecute(stmt);
    do{
      while (ret == SQL_SUCCESS){
        ret = SQLFetch(stmt);
      }
      ret = SQLMoreResults(stmt);
    }while(ret == SQL_SUCCESS);
    ret = SQLFreeHandle(SQL_HANDLE_STMT, stmt);
    ret = SQLFreeHandle(SQL_HANDLE_DBC, cnn);
    ret = SQLFreeHandle(SQL_HANDLE_ENV, env);
  }

ALTER FUNCTION "DBA"."fn_test"( IN inChar char(30) )
RETURNS integer
DETERMINISTIC
BEGIN
  DECLARE "vResult" integer;
  if('hello' = inChar) then set vResult=123; end if;
  RETURN "vResult";
END

    ret = SQLPrepare(stmt, "{? = call fn_test(?)}", SQL_NTS);
    ret = SQLBindParameter(stmt, 1, SQL_PARAM_OUTPUT, SQL_C_SLONG, SQL_INTEGER, 0, 0, &i, 0, &i_ind);
    ret = SQLBindParameter(stmt, 2, SQL_PARAM_INPUT_OUTPUT, SQL_C_CHAR, SQL_CHAR, 30, 0, buf, sizeof(buf), &buf_ind);

ALTER PROCEDURE "DBA"."sp_test2"( @inChar char(30) OUTPUT )
 AS
BEGIN
  declare @vChar char(30)  
  select @vChar = @inChar 
  select @inChar = 'world'
//  select @vChar
END

ALTER PROCEDURE "DBA"."sp_test"(
  inout inChar char(30)
)
BEGIN
  set inChar = 'world';
END