基于名称时间周期删除SAS数据集的技术求助（附问题代码）

原代码核心问题 #

1. 仅处理WORK库：未覆盖所有磁盘文件夹对应的SAS库
2. 日期判断逻辑错误：原条件保留10年内的数据集，与「删除早于4年」的需求完全相反
3. 记录逻辑不严谨：RETAIN语句使用不当，删除时间赋值时机错误

修正后的SAS脚本 #

/* 1. 获取所有非系统SAS库信息，排除SASHELP、SASUSER等系统库 */
DATA libs;
    SET sashelp.vlibnam;
    WHERE upcase(libname) NOT IN ('SASHELP', 'SASUSER', 'WORK'); /* 可根据实际情况调整需排除的库 */
RUN;

/* 2. 遍历每个库，筛选符合命名规则且早于4年的数据集，执行删除并记录 */
DATA work.deleted_records;
    LENGTH libname $15 memname $32 delete_time 8;
    FORMAT delete_time datetime20.;
    DELETE_TIME = DATETIME(); /* 记录删除执行时间 */

    /* 遍历每个目标库 */
    DO i = 1 TO nobs;
        SET libs NOBS=nobs POINT=i;
        /* 获取当前库下的所有数据集 */
        CONTENTS = CAT('PROC CONTENTS DATA=', libname, '._ALL_ OUT=temp_contents NOPRINT; RUN;');
        CALL EXECUTE(CONTENTS);
        /* 筛选符合命名规则且早于4年的数据集 */
        PROC SQL NOPRINT;
            CREATE TABLE to_delete AS
            SELECT libname, memname
            FROM temp_contents
            WHERE 
                LENGTH(SCAN(memname, -1, '_')) = 6 /* 确保后缀为6位数字格式 */
                AND INPUT(SCAN(memname, -1, '_') || '01', YYMMDD8.) < INTNX('YEAR', TODAY(), -4, 'S') /* 早于4年前的年初 */
            GROUP BY libname, memname; /* 去重，避免同一数据集重复处理 */
        QUIT;

        /* 执行删除并写入记录 */
        IF EXISTS(SELECT * FROM to_delete) THEN DO;
            SET to_delete;
            /* 生成删除语句 */
            DROP_STMT = CATX(' ', 'PROC SQL; DROP TABLE', CATX('.', libname, memname), '; QUIT;');
            CALL EXECUTE(DROP_STMT);
            OUTPUT; /* 将删除记录写入输出表 */
        END;
        /* 清理临时表，释放资源 */
        CALL EXECUTE('PROC DELETE DATA=temp_contents to_delete; RUN;');
    END;
    STOP;
RUN;

/* 查看删除记录 */
PROC PRINT DATA=work.deleted_records;
    TITLE 'Deleted Datasets Record';
RUN;

代码说明 #

• 库筛选：通过sashelp.vlibnam获取所有SAS库，排除系统库避免误删核心数据
• 日期判断：将数据集名称中的YYYYMM后缀补01转为当月第一天，与当前日期往前推4年的年初比较，精准筛选需删除的数据集
• 删除与记录：遍历每个符合条件的数据集，生成并执行删除语句，同时将库名、数据集名、删除时间写入记录表格
• 临时表清理：每次遍历后清理临时表，避免占用不必要的内存资源

注意事项 #

• 执行前请备份重要数据集，防止误删
• 根据实际环境调整需排除的系统库列表
• 确保SAS对目标磁盘文件夹拥有读写权限

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