如果上面你的数据集里类似P0310这样的字段只有你提到的这些，可以这样写
Data output;
    set input;
    array P(*) P0310:;
    do i=1 to dim(P);
         if P(i)=2 then a='yes';
     end;
    drop i;
run;