如果我的目标正确的话，可以从动态列表中批量删除多个表中的行。

BEGIN
  DECLARE SQLSTATE CHAR(5) DEFAULT '00000';
  FOR V AS C1 CURSOR WITH HOLD FOR 
   SELECT 'DELETE FROM (SELECT 1 FROM ' || TABNAME || ' T WHERE EXISTS (SELECT 1 FROM ABC.ID_DIM D WHERE D.ID = T.ID) FETCH FIRST 2000000 ROWS ONLY WITH UR)' AS STMT 
   FROM TABLE_WITH_COLUMN_TABNAME
  DO
    L1: LOOP
      EXECUTE IMMEDIATE V.STMT;
      IF SQLSTATE = '02000' THEN LEAVE L1; END IF;
      COMMIT;
    END LOOP;
  END FOR;
END@

我要做的是在游标中获取表的结果，然后循环它们
类似于：

DECLARE Tables_cursor CURSOR FOR SELECT table_name FROM table_of_tables
OPEN Tables_cursor
FETCH NEXT FROM Tables_cursor INTO @table_name
DELETE FROM @table_name where ID in
(select ID from ABC.ID_DIM ) FETCH FIRST 2000000 ROWS ONLY WITh UR;
WHILE @@FETCH_STATUS = 0
BEGIN
    FETCH NEXT FROM Tables_cursor INTO @table_name
END

我从来没用过，但我想应该是这样的：

EXEC SQL DECLARE C1 CURSOR FOR
     SELECT tablename  FROM table_of_tables
    EXEC SQL OPEN C1;
    DO WHILE (SQLCODE = 0);
     EXEC SQL FETCH C1 INTO :TABLE_NAME
     DELETE FROM TABLE_NAME as curentTable where ID in
     (select ID from ABC.ID_DIM ) FETCH FIRST 2000000 ROWS ONLY WITh UR;
    END;
    EXEC SQL CLOSE C1;