Reusing Sukanya's data, you can also check this using character functions.
[pre]
data TEST;
input ID X1-X10;
STR=cats(of X1-X10); * create one string;
STR1=substr(STR,1,findc(STR,'1',-99)); * remove all zeroes after last 1;
FLAG=ifc(find(STR1,'0000',findc(STR1,'1')),'Y','N'); * look for 4 zeroes after 1st 1;
cards;
101 1 0 0 0 0 0 1 0 0 0
102 0 0 0 0 0 0 1 0 0 0
103 1 0 0 0 0 0 0 0 0 0
104 1 0 0 1 0 0 0 0 0 1
105 1 0 0 1 0 0 0 0 1 0
run;
... View more
