怎样unload 整个库中的表内容？

long313

可以写一个简单的4ge来实现，代码如下：

MAIN
DEFINE lv_dbname             CHAR(20)
DEFINE lv_tabname            CHAR(20)
DEFINE tmpstr                    CHAR(200)

    INITIALIZE lv_dbname,lv_tabname,tmpstr TO NULL

    WHILE TRUE
        INITIALIZE lv_dbname TO NULL
        WHENEVER ERROR GOTO :ErrHandle
        PROMPT "请输入要卸载的数据库名:" FOR lv_dbname
        DATABASE lv_dbname
        EXIT WHILE
        WHENEVER ERROR STOP
LABEL ErrHandle:
        ERROR "数据库 ",lv_dbname CLIPPED,"不存在,请重新输入!"
        SLEEP 2
        CONTINUE WHILE
    END WHILE

    DECLARE cur_unload CURSOR FOR
        SELECT tabname FROM systables
        WHERE tabid >=100
        AND tabtype = "T"
    FOREACH cur_unload INTO lv_tabname
        LET tmpstr = "echo 'UNLOAD TO ",lv_tabname CLIPPED,".unl SELECT * FROM ",lv_tabname CLIPPED,
                     "'|isql ",lv_dbname CLIPPED," -"
        RUN tmpstr
        INITIALIZE lv_tabname,tmpstr TO NULL
    END FOREACH
END MAIN