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]

Reply via email to