The proper operator to use is IN .
if substr(HOSPSTCO,1,2) in ('23' '33' '50' '25' '44' '09') then HOSP_DIVISION=1;
Or use the SELECT When for doing lots of comparisons instead of If/then/else
data test2;
set test;
select (substr(HOSPSTCO,1,2));
When ('23' , '33' , '50' , '25' , '44' , '09' ) HOSP_DIVISION=1;
When ('36' , '42' , '34' ) HOSP_DIVISION=2;
When ('55' , '26' , '17' , '18' , '39' ) HOSP_DIVISION=3;
When ('29' , '38' , '46' , '31' , '20' , '27' , '19' ) HOSP_DIVISION=4;
When ('10' , '24' , '11' , '51' , '54' , '37' , '45' , '13' , '12' ) HOSP_DIVISION=5;
When ('21' , '47' , '28' , '01' ) HOSP_DIVISION=6;
When ('40' , '48' , '05' , '22' ) HOSP_DIVISION=7;
When ('16' , '30' , '56' , '32' , '49' , '08' , '04' , '35' ) HOSP_DIVISION=8;
When ('02' , '53' , '41' , '06' , '15' ) HOSP_DIVISION=9;
otherwise;
end;
run;
The otherwise is not required but there will be a warning if not present. It is to do what ever you might want if none of the values appear in the other When conditions. Such as perhaps put a warning to the log about an unexpected value or missing value.
Another alternative if you have a data set with the code values and categories would be to create a format to assign the division code and just use the format instead of adding another variable.
This takes advantage of an oddity in range comparisons of character values:
proc format;
value $hospdiv
'23' - '2399'= 'Division 1'
'33' - '3399'= 'Division 1'
'36' - '3699'= 'Division 2'
'42' - '4299'= 'Division 2'
;
run;
data junk;
input x $;
put x= $hospdiv.;
datalines;
23
231
2345
33
3356
36
367
3678
42
4244
;
I have several formats that are used to turn location codes into regions, nested region/subregion (multilabel formats), long and short descriptions.
Groups created with formats will be honored by most analysis, reporting and graphing procedures. They have a big advantage that if you need to make a small "tweek" you only need to modify Format code and do not have to go back to the data set to add yet another variable.
