Hi Toad, Today I tried to debug a stored procedure on MariaDB. There comes up a database error whch shows me that the internal code (automatically created by toad before debugging starts) fails. I copied the code into a text editor and found out what happened. The corresponding lines are marked red and boled. --> begin of my code CREATE PROCEDURE questdebug.6c476170dc7e0dcd5b6c762c6a92138ab54df03fimpl(IN p_id BIGINT, IN p_level INT(4), IN p_url VARCHAR(512), IN p_process_flag INT(2), IN p_home_id BIGINT, OUT p_return BIGINT) BEGIN DECLARE v_error TINYINT DEFAULT 0; DECLARE v_error_message VARCHAR(512); BEGIN DECLARE EXIT HANDLER FOR SQLEXCEPTION BEGIN GET DIAGNOSTICS CONDITION 1 @sqlstate = RETURNED_SQLSTATE, @errno = MYSQL_ERRNO, @text = MESSAGE_TEXT; IF @errno = 1062 THEN # duplicate key -> go ahead SET v_error_message = CONCAT('WARNING ', @errno, ' (', @sqlstate, '): ', @text); CALL crawler.p_create_url_log(p_id, 'PROCEDURE', 'p_create_url_pages', v_error_message, CURRENT_TIMESTAMP(6), @out_return); SET p_return = 0; ELSE -- -------------- -- logging error -- -------------- SET v_error_message = CONCAT('ERROR ', @errno, ' (', @sqlstate, '): ', @text); CALL crawler.p_create_url_log(p_id, 'PROCEDURE', 'p_create_url_pages', v_error_message, CURRENT_TIMESTAMP(6), @out_return); SET p_return = p_id; CALL questsoftware.DEBUGSET('p_id','P',p_id); CALL questsoftware.DEBUGSET('p_level','P',p_level); CALL questsoftware.DEBUGSET('p_url','P',p_url); CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag); CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id); CALL questsoftware.DEBUGSET('p_return','P',p_return); CALL questsoftware.DEBUGSET('v_error','L',v_error); CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message); CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',30); END IF; CALL questsoftware.DEBUGSET('p_id','P',p_id); CALL questsoftware.DEBUGSET('p_level','P',p_level); CALL questsoftware.DEBUGSET('p_url','P',p_url); CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag); CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id); CALL questsoftware.DEBUGSET('p_return','P',p_return); CALL questsoftware.DEBUGSET('v_error','L',v_error); CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message); CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',31); END CALL questsoftware.DEBUGSET('p_id','P',p_id); CALL questsoftware.DEBUGSET('p_level','P',p_level); CALL questsoftware.DEBUGSET('p_url','P',p_url); CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag); CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id); CALL questsoftware.DEBUGSET('p_return','P',p_return); CALL questsoftware.DEBUGSET('v_error','L',v_error); CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message); CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',31) ;; # initialize return code SET p_return = 0; --> end of my code The END statement is the END of my DECLARE EXIT HANDLER ..... normally it ends with a ';' -> but here the apostrophe is missing. But in my source it is available. I have seent that the debug code was moved directly behind the END, so the last line of the Debug code ends with an double apostrophe ';;'. This causes the error and I found no solution to handle this error. By the way: Without debugging the procedure runs without error. Hopefully you can solve the error into the next release. Your software is great. Thanks. Kind regards Michael Here is the original code from error message: CREATE PROCEDURE questdebug.6c476170dc7e0dcd5b6c762c6a92138ab54df03fimpl(IN p_id BIGINT, IN p_level INT(4), IN p_url VARCHAR(512), IN p_process_flag INT(2), IN p_home_id BIGINT, OUT p_return BIGINT) BEGIN DECLARE v_error TINYINT DEFAULT 0; DECLARE v_error_message VARCHAR(512); BEGIN DECLARE EXIT HANDLER FOR SQLEXCEPTION BEGIN GET DIAGNOSTICS CONDITION 1 @sqlstate = RETURNED_SQLSTATE, @errno = MYSQL_ERRNO, @text = MESSAGE_TEXT; IF @errno = 1062 THEN # duplicate key -> go ahead SET v_error_message = CONCAT('WARNING ', @errno, ' (', @sqlstate, '): ', @text); CALL crawler.p_create_url_log(p_id, 'PROCEDURE', 'p_create_url_pages', v_error_message, CURRENT_TIMESTAMP(6), @out_return); SET p_return = 0; ELSE -- -------------- -- logging error -- -------------- SET v_error_message = CONCAT('ERROR ', @errno, ' (', @sqlstate, '): ', @text); CALL crawler.p_create_url_log(p_id, 'PROCEDURE', 'p_create_url_pages', v_error_message, CURRENT_TIMESTAMP(6), @out_return); SET p_return = p_id; CALL questsoftware.DEBUGSET('p_id','P',p_id);CALL questsoftware.DEBUGSET('p_level','P',p_level);CALL questsoftware.DEBUGSET('p_url','P',p_url);CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag);CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id);CALL questsoftware.DEBUGSET('p_return','P',p_return);CALL questsoftware.DEBUGSET('v_error','L',v_error);CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message);CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',30);END IF; CALL questsoftware.DEBUGSET('p_id','P',p_id);CALL questsoftware.DEBUGSET('p_level','P',p_level);CALL questsoftware.DEBUGSET('p_url','P',p_url);CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag);CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id);CALL questsoftware.DEBUGSET('p_return','P',p_return);CALL questsoftware.DEBUGSET('v_error','L',v_error);CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message);CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',31);ENDCALL questsoftware.DEBUGSET('p_id','P',p_id);CALL questsoftware.DEBUGSET('p_level','P',p_level);CALL questsoftware.DEBUGSET('p_url','P',p_url);CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag);CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id);CALL questsoftware.DEBUGSET('p_return','P',p_return);CALL questsoftware.DEBUGSET('v_error','L',v_error);CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message);CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',31);; # initialize return code SET p_return = 0; -- ------------- -- insert record -- ------------- CALL questsoftware.DEBUGSET('p_return','P',p_return);CALL questsoftware.DEBUGSET('p_id','P',p_id);CALL questsoftware.DEBUGSET('p_level','P',p_level);CALL questsoftware.DEBUGSET('p_url','P',p_url);CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag);CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id);CALL questsoftware.DEBUGSET('v_error','L',v_error);CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message);CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',39);INSERT INTO crawler.t_url_pages(id, url_level, url, process_flag, id_home_url) VALUES (p_id, p_level, p_url, p_process_flag, p_home_id); CALL questsoftware.DEBUGSET('p_id','P',p_id);CALL questsoftware.DEBUGSET('p_level','P',p_level);CALL questsoftware.DEBUGSET('p_url','P',p_url);CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag);CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id);CALL questsoftware.DEBUGSET('p_return','P',p_return);CALL questsoftware.DEBUGSET('v_error','L',v_error);CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message);CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',40);END; CALL questsoftware.DEBUGSET('p_id','P',p_id);CALL questsoftware.DEBUGSET('p_level','P',p_level);CALL questsoftware.DEBUGSET('p_url','P',p_url);CALL questsoftware.DEBUGSET('p_process_flag','P',p_process_flag);CALL questsoftware.DEBUGSET('p_home_id','P',p_home_id);CALL questsoftware.DEBUGSET('p_return','P',p_return);CALL questsoftware.DEBUGSET('v_error','L',v_error);CALL questsoftware.DEBUGSET('v_error_message','L',v_error_message);CALL questsoftware.DEBUGTRACE('PROCEDURE','crawler','p_create_url_pages',42);END;
↧