DATA HAVE1; INPUT SERIES_ID $20.; CARDS; SMU01115000000000001 SMU01122200000000001 SMU01138200000000001 SMU01194600000000001 SMU01200200000000001 SMU01225200000000001 SMU01234600000000001 SMU01266200000000001 SMU01336600000000001 SMU01338600000000001 SMU01021000000000001 ; RUN; DATA HAVE2; INPUT Area_Code $5. Area_Title $25. ; CARDS; 01000 Alabama -- Statewide 01001 Autauga County, Alabama 01003 Baldwin County, Alabama 01005 Barbour County, Alabama 01007 Bibb County, Alabama 01009 Blount County, Alabama 01011 Bullock County, Alabama 01013 Butler County, Alabama 01015 Calhoun County, Alabama 01017 Chambers County, Alabama 01019 Cherokee County, Alabama 01021 Chilton County, Alabama ; RUN; DATA HAVE3; SET HAVE1; LENGTH Area_Code $5.; Area_Code = SUBSTR(SERIES_ID,4,5); DATA WANT; IF 0 THEN SET HAVE2; IF _N_=1 THEN DO; DECLARE HASH HH(DATASET: 'HAVE2'); HH.DEFINEKEY ('Area_Code'); HH.DEFINEDATA('Area_Title'); HH.DEFINEDONE(); DO UNTIL(EOF); SET HAVE3 END=EOF; IF HH.FIND()=0 THEN OUTPUT; ELSE DO; CALL MISSING(OF Area_Title); OUTPUT; END; END; END; STOP; DROP Area_Code; RUN; PROC PRINT; RUN;
... View more