Testcase. Executing it I get
---- Error -------------------------------
Auto Commit: On, SQL Mode: Internal, Isolation Level: Committed
General error;-9111 POS(1)
call pr('2005-08-01',0)
CREATE TABLE "TTT"."DOCTOR_ACCESS"
(
"OS_USER" Varchar (50) UNICODE NOT NULL,
"RESID" Varchar(10) UNICODE NOT NULL,
"LIFETIME" smallint,
UNIQUE("OS_USER", "RESID")
)
//
CREATE DBPROC ttt.pr(
IN d date,
IN nv smallint)
RETURNS CURSOR AS
VAR
sqlText varchar(1000);
BEGIN
TRY
TRY
SET sqlText = 'DECLARE INVEST_ARM CURSOR FOR
select * from
ttt.DOCTOR_ACCESS a where a.os_user=''USER'' FOR REUSE';
EXECUTE sqlText;
CATCH
IF $rc <> 100 THEN
STOP($rc, 'INVEST_ARM '||$errmsg);
TRY
$CURSOR = 'GET_RES_CURSOR';
SET sqlText = 'DECLARE ' || $CURSOR || ' CURSOR FOR
select * from
INVEST_ARM where ';
CASE nv
WHEN 0 THEN
sqlText = sqlText;
WHEN 1 THEN
sqlText = sqlText||'
utils.smuready(V.counter,utils.did_res(V.counter),V.dateres)=2 and ';
WHEN 2 THEN
sqlText = sqlText||' dd.not_ready=true and ';
WHEN 3 THEN
sqlText = sqlText||' dd.zav_control=1 and ';
END CASE;
EXECUTE sqlText;
CATCH
IF $rc <> 100 THEN
STOP($rc, $CURSOR||' '||$errmsg);
CATCH
STOP($rc, $errmsg);
END;
//
call pr('2005-08-01',0)
--
MaxDB Discussion Mailing List
For list archives: http://lists.mysql.com/maxdb
To unsubscribe: http://lists.mysql.com/[EMAIL PROTECTED]