simple array question II

[Angmar]

How would I use an array to extract ONLY observations/records that have the values '9351' '9359' (character values)? Below is my code (I made a new variable previously, but it would be better if I just extracted the records I wanted instead of identifying them with a new variable).

data cuthip;
set allrecords;
array procedure (3) $ prcode1-prcode3;
do x=1 to 3;
if procedure(x) in ('9351' '9359') then newvar=1;
end;
run;

[ChrisNZ · Accepted solution]

if procedure(x) in ('9351' '9359') then output;

[Angmar]

It worked, but it's now creating records when the array finds an observation with both those values (i.e., the observation has 9359 and 9351). I can't use the OR statement in my code between '9359' and '9351' - how do I tell the array then to just search for one?

[ChrisNZ]

Something like this should work too, no arrays:

data cuthip;
 set allrecords;
 if index('9351', catx('-',of prcode1-prcode3)) or index('9359', catx('-',of prcode1-prcode3));
run;

[Astounding]

Alternatively:

if procedure(x) in ('9351' '9359') then do;

   output;

   delete;

end;