%macro ZipFips(_zipcode, _stfips); /**************************************************************************************/ /* _ZipCode = the 5 character zipcode that is to be looked up. */ /* _Stfips = the two character state fips code that is to be returned in _stfips. */ /* */ /* Name: ZipFips.SAS */ /* Data: Sourced from BrainyZip online. Auth: Phil Rack */ /* Date: 5/3/2007 Revd: */ /* */ /* Copyright (C) 2007 by MineQuest, LLC. All Rights Reserved. */ /**************************************************************************************/ IF (&_zipcode ge '00210' ) and ( &_zipcode le '00215' ) then &_stfips = '33' ; IF (&_zipcode ge '00501' ) and ( &_zipcode le '00544' ) then &_stfips = '36' ; IF (&_zipcode ge '01001' ) and ( &_zipcode le '02791' ) then &_stfips = '25' ; IF (&_zipcode ge '02801' ) and ( &_zipcode le '02940' ) then &_stfips = '44' ; IF (&_zipcode ge '03031' ) and ( &_zipcode le '03897' ) then &_stfips = '33' ; IF (&_zipcode ge '03901' ) and ( &_zipcode le '04992' ) then &_stfips = '23' ; IF (&_zipcode ge '05001' ) and ( &_zipcode le '05495' ) then &_stfips = '50' ; IF (&_zipcode ge '05501' ) and ( &_zipcode le '05544' ) then &_stfips = '25' ; IF (&_zipcode ge '05601' ) and ( &_zipcode le '05907' ) then &_stfips = '50' ; IF (&_zipcode ge '06001' ) and ( &_zipcode le '06389' ) then &_stfips = '09' ; IF (&_zipcode ge '06390' ) and ( &_zipcode le '06390' ) then &_stfips = '36' ; IF (&_zipcode ge '06401' ) and ( &_zipcode le '06928' ) then &_stfips = '09' ; IF (&_zipcode ge '07001' ) and ( &_zipcode le '08989' ) then &_stfips = '34' ; IF (&_zipcode ge '10001' ) and ( &_zipcode le '14925' ) then &_stfips = '36' ; IF (&_zipcode ge '15001' ) and ( &_zipcode le '19640' ) then &_stfips = '42' ; IF (&_zipcode ge '19701' ) and ( &_zipcode le '19980' ) then &_stfips = '10' ; IF (&_zipcode ge '20001' ) and ( &_zipcode le '20099' ) then &_stfips = '11' ; IF (&_zipcode ge '20101' ) and ( &_zipcode le '20199' ) then &_stfips = '51' ; IF (&_zipcode ge '20201' ) and ( &_zipcode le '20599' ) then &_stfips = '11' ; IF (&_zipcode ge '20601' ) and ( &_zipcode le '21930' ) then &_stfips = '24' ; IF (&_zipcode ge '22002' ) and ( &_zipcode le '24658' ) then &_stfips = '51' ; IF (&_zipcode ge '24701' ) and ( &_zipcode le '26886' ) then &_stfips = '54' ; IF (&_zipcode ge '27006' ) and ( &_zipcode le '28909' ) then &_stfips = '37' ; IF (&_zipcode ge '29001' ) and ( &_zipcode le '29945' ) then &_stfips = '45' ; IF (&_zipcode ge '30002' ) and ( &_zipcode le '31999' ) then &_stfips = '13' ; IF (&_zipcode ge '32004' ) and ( &_zipcode le '34997' ) then &_stfips = '12' ; IF (&_zipcode ge '35004' ) and ( &_zipcode le '36925' ) then &_stfips = '01' ; IF (&_zipcode ge '37010' ) and ( &_zipcode le '38589' ) then &_stfips = '47' ; IF (&_zipcode ge '38601' ) and ( &_zipcode le '39776' ) then &_stfips = '28' ; IF (&_zipcode ge '39901' ) and ( &_zipcode le '39901' ) then &_stfips = '13' ; IF (&_zipcode ge '40003' ) and ( &_zipcode le '42788' ) then &_stfips = '21' ; IF (&_zipcode ge '43001' ) and ( &_zipcode le '45999' ) then &_stfips = '39' ; IF (&_zipcode ge '46001' ) and ( &_zipcode le '47997' ) then &_stfips = '18' ; IF (&_zipcode ge '48001' ) and ( &_zipcode le '49971' ) then &_stfips = '26' ; IF (&_zipcode ge '50001' ) and ( &_zipcode le '52809' ) then &_stfips = '19' ; IF (&_zipcode ge '53001' ) and ( &_zipcode le '54990' ) then &_stfips = '55' ; IF (&_zipcode ge '55001' ) and ( &_zipcode le '56763' ) then &_stfips = '27' ; IF (&_zipcode ge '57001' ) and ( &_zipcode le '57799' ) then &_stfips = '46' ; IF (&_zipcode ge '58001' ) and ( &_zipcode le '58856' ) then &_stfips = '38' ; IF (&_zipcode ge '59001' ) and ( &_zipcode le '59937' ) then &_stfips = '30' ; IF (&_zipcode ge '60001' ) and ( &_zipcode le '62999' ) then &_stfips = '17' ; IF (&_zipcode ge '63001' ) and ( &_zipcode le '65899' ) then &_stfips = '29' ; IF (&_zipcode ge '66002' ) and ( &_zipcode le '67954' ) then &_stfips = '20' ; IF (&_zipcode ge '68001' ) and ( &_zipcode le '69367' ) then &_stfips = '31' ; IF (&_zipcode ge '70001' ) and ( &_zipcode le '71497' ) then &_stfips = '22' ; IF (&_zipcode ge '71601' ) and ( &_zipcode le '72959' ) then &_stfips = '05' ; IF (&_zipcode ge '73001' ) and ( &_zipcode le '73199' ) then &_stfips = '40' ; IF (&_zipcode ge '73301' ) and ( &_zipcode le '73344' ) then &_stfips = '48' ; IF (&_zipcode ge '73401' ) and ( &_zipcode le '74966' ) then &_stfips = '40' ; IF (&_zipcode ge '75001' ) and ( &_zipcode le '79999' ) then &_stfips = '48' ; IF (&_zipcode ge '80001' ) and ( &_zipcode le '81658' ) then &_stfips = '08' ; IF (&_zipcode ge '82001' ) and ( &_zipcode le '83128' ) then &_stfips = '56' ; IF (&_zipcode ge '83201' ) and ( &_zipcode le '83888' ) then &_stfips = '16' ; IF (&_zipcode ge '84001' ) and ( &_zipcode le '84791' ) then &_stfips = '49' ; IF (&_zipcode ge '85001' ) and ( &_zipcode le '86556' ) then &_stfips = '04' ; IF (&_zipcode ge '87001' ) and ( &_zipcode le '88441' ) then &_stfips = '35' ; IF (&_zipcode ge '88510' ) and ( &_zipcode le '88595' ) then &_stfips = '48' ; IF (&_zipcode ge '88901' ) and ( &_zipcode le '89883' ) then &_stfips = '32' ; IF (&_zipcode ge '90001' ) and ( &_zipcode le '96162' ) then &_stfips = '06' ; IF (&_zipcode ge '96701' ) and ( &_zipcode le '96898' ) then &_stfips = '15' ; IF (&_zipcode ge '97001' ) and ( &_zipcode le '97920' ) then &_stfips = '41' ; IF (&_zipcode ge '98001' ) and ( &_zipcode le '99403' ) then &_stfips = '53' ; IF (&_zipcode ge '99501' ) and ( &_zipcode le '99950' ) then &_stfips = '02' ; /********************************************************************************************/ /* ZipFips is copyright (c) 2007 by MineQuest, LLC. All Rights Reserved. */ /* MineQuest, LLC, 1939 Queensbridge Dr., Columbus, OH USA. */ /* This Macro Program is proprietary software and is licensed property of MineQuest, LLC. */ /********************************************************************************************/ %mend Zipfips;