如何编写IBM DB2脚本批量删除多个服务器？

以下是两种可以实现**遍历预定义服务器列表、逐个检查并删除（存在则删除）**的脚本方案：

方案一：使用游标循环 #

BEGIN
    DECLARE v_servername VARCHAR(128);
    -- 定义需要删除的服务器列表
    DECLARE cur_servers CURSOR FOR
        SELECT servername FROM (VALUES 
            ('server1'), ('server2'), ('server3'), ('server4'), ('server5')
        ) AS t(servername);
    
    OPEN cur_servers;
    FETCH cur_servers INTO v_servername;
    
    WHILE SQLCODE = 0 DO
        -- 检查服务器是否存在，存在则执行删除（统一大小写避免匹配失败）
        IF EXISTS (SELECT 1 FROM SYSCAT.SERVERS WHERE UPPER(servername) = UPPER(v_servername)) THEN
            EXECUTE IMMEDIATE 'DROP SERVER ' || v_servername;
        END IF;
        FETCH cur_servers INTO v_servername;
    END WHILE;
    
    CLOSE cur_servers;
END

方案二：使用FOR循环（更简洁） #

BEGIN
    FOR v_server AS
        SELECT servername FROM (VALUES 
            ('server1'), ('server2'), ('server3'), ('server4'), ('server5')
        ) AS t(servername)
    DO
        -- 按需选择是否启用大小写统一匹配
        IF EXISTS (SELECT 1 FROM SYSCAT.SERVERS WHERE servername = v_server.servername) THEN
            EXECUTE IMMEDIATE 'DROP SERVER ' || v_server.servername;
        END IF;
    END FOR;
END

原代码问题说明 #

你提供的尝试代码逻辑是仅删除已存在于SYSCAT.SERVERS中的目标服务器，这本身没问题，但如果执行后未达到预期，大概率是大小写不匹配导致的：DB2中SYSCAT.SERVERS.SERVERNAME默认区分大小写，若数据库中实际存储的是小写server1，而你列表里写的是大写SERVER1，JOIN条件会匹配失败，导致无法删除。

上面的方案中加入了UPPER()函数统一大小写比较，能避免这类问题；同时两种方案都会遍历你定义的所有5个服务器，逐个检查存在性，完全符合你“逐个检查并删除”的需求。

内容的提问来源于stack exchange，提问作者fr0zt