如何在所有存储过程中更改表的模式名称

DELIMITER $$
CREATE PROCEDURE rename_table()
BEGIN
  DECLARE old_name VARCHAR(64);
  DECLARE new_name VARCHAR(64);
  DECLARE cur CURSOR FOR SELECT CONCAT('ALTER TABLE ', TABLE_SCHEMA, '.', table_name, ' RENAME TO ', new_name, ';');
  DECLARE CONTINUE HANDLER FOR SQLSTATE '02000' SET @ErrorMsg = ERROR_MESSAGE();
  
  OPEN cur;
  
  my_loop: LOOP
    FETCH cur INTO old_name;
    IF @ErrorMsg IS NULL THEN
      UPDATE INFORMATION_SCHEMA.COLUMNS SET DATA_TYPE = SUBSTRING_INDEX(SUBSTRING_INDEX(DATA_TYPE, '(', 1), ')', -1) WHERE TABLE_NAME = old_name AND DATA_TYPE LIKE '%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%\_%' AND DATA_TYPE NOT IN ('BLOB', 'TEXT', 'VARBINARY');
      SET @ErrorMsg = NULL;
    END IF;
    
    IF LEADING CHARACTER IN TABLE old_name REGEXP '^(A|b|B)$|^(0|1|2|3|4|5|6|7|8|9)$|^(a|A|b|B|c|C|d|D|e|E|f|F|g|G|h|I|j|J|k|K|m|M|n|O|p|P|q|Q|r|S|t|T|u|V|w|X|y|Y|z|Z|_{3})$' AND LEFT(old\_name, 1) NOT IN 'a|A|b|B|c|C|d|D|e|E|f|F|g|G|i|I|j|J|k|K|l|L|m|M|n|O|p|P|q|Q|r|S|t|U|v|W|w|X|y|Y|z'` AND TABLE\_SCHEMA <> 'information\_schema' THEN
      
      SET new_name = CASE WHEN REGEXP_CONTAINS(new_name, '{[a-zA-Z1-9]{1,255}') THEN SUBSTRING_INDEX(SUBSTRING_INDEX(new\_name, '{', 1), '}', -1)
                      WHEN REGEXP_CONTAINS(new\_name, '{[a-zA-Z0-9_]{1,255}') THEN SUBSTRING_INDEX(SUBSTRING_INDEX(new\_name, '{', 1), '}', -1)
                      ELSE SUBSTRING_INDEX(new\_name, '.', 1);
      
      REPLACE(new\_name, '__', '\\_');
      
      SET @ErrorMsg = NULL;
    END IF;
    
    IF old\_name ~ '.[a-zA-Z]{1,255}' THEN
      SET new\_name = CONCAT(new\_name, '_0');
    END IF;
      
    IF OLD\_NAME NOT IN (SELECT TABLE\_NAME FROM INFORMATION\_SCHEMA.TABLES WHERE TABLE\_SCHEMA = DATABASE()) THEN
      ALTER TABLE INFORMATION\_SCHEMA.TABLES ADD COLUMN TABLE\_NAME TEXT NOT NULL;  
    END IF;
       
    SET old\_name = new\_name;
    
    IF @ErrorMsg IS NOT NULL THEN
      LEAVE my\_loop;
    END IF;
  END LOOP my\_loop;
  
  DEALLOCATE PREPARE stmt;
  CLOSE cur;
END$$
DELIMITER ;
CALL rename_table();

UPDATE I
SET DATA_TYPE = SUBSTRING_INDEX(SUBSTRING_INDEX(DATA_TYPE, '(', 1), ')', -1), TABLE\_NAME = NEW\_NAME WHERE TABLE\_Schema = DATABASE() AND TABLE\_Name = OLD\_NAME;