delete column with condition

[radha009]

i have data  with columns Names (win ,unix,sas,sep..etc) and data with yes and no. i want to delete the column without giving the column name.(ex: if sas column has all 'No' data).'

Thank you

[LinusH]

This probably need that you first query the table, and based on that issue your drop column statement. Macro logic is what I see.

There have been a lot of similar question on the communities, especially when all column uses are missing. Do a search and youbwould be able to learn from those.

[gamotte · Accepted solution]

Hello,

data have;
    input col1 $ col2 $ col3 $;
cards;
Yes No No
No No Yes
Yes No Yes
;
run;

data NULL_;
    set have end=eof;
    array cols(*) col:;
    array nos(3)_TEMPORARY_;

    do i=1 to dim(cols);
        if strip(cols(i))="No" then nos(i)+1;
    end;

    if eof then do;
        call execute('data want; set have;');
        if max(of nos(*))=_N_ then do;
            call execute('drop');
            do i=1 to dim(cols);
                if nos(i)=_N_ then do;
                    call execute(vname(cols(i)));
                end;
            end;
        end;
call execute('; run;');
    end;
run;

[radha009]

Perfect. thanks a lot.