sas 批量处理缺少缺失值

DATA S.customer_grade;
    SET S.customer_grade;
    ARRAY NUM{*} _NUMERIC_;
    DO I=1 TO DIM(NUM);
        IF MISSING(NUM{I}) THEN NUM{I}=0;
    END;
RUN;