SQLAllocHandle(SQL_HANDLE_STMT, DB.hDbc, &DB.hStmt);
SQLPrepare(DB.hStmt, (SQLCHAR *)"{CALL rs.ResourceCol_get(?,?)}\0", SQL_NTS);
int SQLProcReturn;
SQLBindParameter(DB.hStmt,  1 , SQL_PARAM_OUTPUT, SQL_C_SLONG, SQL_INTEGER,  0 ,  0 , &SQLProcReturn,  0 ,  0 );
char ResourceName[ 30 ] = "ResourceName\0";
SQLBindParameter(DB.hStmt,  2 , SQL_PARAM_INPUT, SQL_C_TCHAR, SQL_VARCHAR, sizeof(ResourceName),  0 , ResourceName,  0 ,  0 );
if (!SQL_SUCCEEDED(SQLExecute(DB.hStmt)))
{
unsigned char szData[MAX_DATA];
unsigned char szSQLSTATE[ 10 ];
SDWORD nErr;
unsigned char msg[SQL_MAX_MESSAGE_LENGTH+ 1 ];
SWORD MsgLen;
if(SQLError( 0 ,  0 , DB.hStmt, szSQLSTATE, &nErr, msg, sizeof(msg), &MsgLen) != SQL_NO_DATA)
{
wsprintf((char *)szData,"Native error: %ld,\nSQLSTATE: %s,\nText error: '%s'",nErr,szSQLSTATE,msg);
MessageBox(NULL,(const char *)szData,"ODBC Error",MB_OK);
}
}
SQLINTEGER strlen;
SQLBindCol(DB.hStmt,  1 , SQL_C_CHAR, &ColName, sizeof(ColName), &strlen);
SQLBindCol(DB.hStmt,  2 , SQL_C_SLONG, &ColSize, sizeof(ColSize), &strlen);
char buffer[ 5 ];
if (SQLFetch(DB.hStmt) == SQL_NO_DATA) MessageBox(NULL, "SQL_NO_DATA", NULL, MB_OK);

SQLINTEGER strlen;
SQLBindCol(DB.hStmt,  1 , SQL_C_CHAR, &ColName, sizeof(ColName), &strlen);
SQLBindCol(DB.hStmt,  2 , SQL_C_SLONG, &ColSize, sizeof(ColSize), &strlen);

ALTER PROCEDURE rs."ResourceCol_get" (
 INOUT workresult integer                   //результат работы процедуры [0]-неуспешно,[1]-успешно,[-1]-ошибка
,IN v_ColResourceName char( 30 ) DEFAULT NULL //наименование обьекта к которому принадлежит колонка
//,IN v_ColName char(30) DEFAULT NULL         //название колонки не указано -> все колонки у обьекта
)
//      РАБОТАЕТ 2005.11.14_09.50
// Create variable qq1 integer; set qq1 = 40; CALL "rs"."ResourceCol_get"( qq1,'qq1' );
// 
//
RESULT (
 ColName char( 30 )	//название колонки
,ColSize integer)	//размер
BEGIN
	DECLARE v_IDColResourceName integer;
//ид названия ресурса
SET v_IDColResourceName = (SELECT "rs"."ResourceCol_1ResourceName"."IDResourceName"
                           FROM "rs"."ResourceCol_1ResourceName" 
                           WHERE "ResourceName" = v_ColResourceName);
// связанные с ним колонки и значения
IF v_IDColResourceName IS NOT NULL THEN 
 SELECT "ColName","ColSize"
 FROM "rs"."ResourceCol_3ColSize" JOIN "rs"."ResourceCol_2ColName"
   ON "rs"."ResourceCol_3ColSize"."FK_IDColName" = "rs"."ResourceCol_2ColName"."IDColName"
 WHERE "rs"."ResourceCol_2ColName"."FK_IDResourceName" = v_IDColResourceName
   AND "rs"."ResourceCol_3ColSize"."SK_Userid" = (SELECT SYS.SYSUSERPERMS."user_id" 
                                                    FROM SYS.SYSUSERPERMS 
                                                   WHERE SYS.SYSUSERPERMS."user_name" = CURRENT USER);
 SET workresult =  1 ;
ELSE //ошибка, запрашиваемый обьект не найден
 SET workresult =  0 ;
END IF;
END

SQLINTEGER SqlNts = SQL_NTS;
SQLBindParameter(DB.hStmt,  2 , SQL_PARAM_INPUT, SQL_C_TCHAR, SQL_VARCHAR, sizeof(ResourceName),  0 , ResourceName,  0 , &SqlNts);

ALTER PROCEDURE rs."ResourceCol_get" (INOUT workresult integer                  , IN v_ColResourceName char( 30 ) DEFAULT NULL)
BEGIN
   print now() || ' workresult=' || workresult || ' v_ColResourceName=' || v_ColResourceName;
END

char ResourceName[ 30 ] = "ResourceName\0";

char ResourceName[ 30 ] = "CustomerListView\0";