%macro ZipState(_zipcode, _stateCode); /********************************************************************************************/ /* _ZipCode = the 5 digit zipcode in character format to be looked up. */ /* _Statecode = the 2 character postal code that is to be returned in var _statecode. */ /* */ /* Name: ZipState.sas */ /* Data: Sourced from BrainyZip online. Auth: Phil Rack */ /* Date: 5/6/2007 Revd: */ /* */ /* Copyright (C) 2007 by MineQuest, LLC. All Rights Reserved. */ /********************************************************************************************/ IF (&_zipcode ge '00210' ) and ( &_zipcode le '00215' ) then &_statecode = 'NH' ; IF (&_zipcode ge '00501' ) and ( &_zipcode le '00544' ) then &_statecode = 'NY' ; IF (&_zipcode ge '01001' ) and ( &_zipcode le '02791' ) then &_statecode = 'MA' ; IF (&_zipcode ge '02801' ) and ( &_zipcode le '02940' ) then &_statecode = 'RI' ; IF (&_zipcode ge '03031' ) and ( &_zipcode le '03897' ) then &_statecode = 'NH' ; IF (&_zipcode ge '03901' ) and ( &_zipcode le '04992' ) then &_statecode = 'ME' ; IF (&_zipcode ge '05001' ) and ( &_zipcode le '05495' ) then &_statecode = 'VT' ; IF (&_zipcode ge '05501' ) and ( &_zipcode le '05544' ) then &_statecode = 'MA' ; IF (&_zipcode ge '05601' ) and ( &_zipcode le '05907' ) then &_statecode = 'VT' ; IF (&_zipcode ge '06001' ) and ( &_zipcode le '06389' ) then &_statecode = 'CT' ; IF (&_zipcode ge '06390' ) and ( &_zipcode le '06390' ) then &_statecode = 'NY' ; IF (&_zipcode ge '06401' ) and ( &_zipcode le '06928' ) then &_statecode = 'CT' ; IF (&_zipcode ge '07001' ) and ( &_zipcode le '08989' ) then &_statecode = 'NJ' ; IF (&_zipcode ge '10001' ) and ( &_zipcode le '14925' ) then &_statecode = 'NY' ; IF (&_zipcode ge '15001' ) and ( &_zipcode le '19640' ) then &_statecode = 'PA' ; IF (&_zipcode ge '19701' ) and ( &_zipcode le '19980' ) then &_statecode = 'DE' ; IF (&_zipcode ge '20001' ) and ( &_zipcode le '20099' ) then &_statecode = 'DC' ; IF (&_zipcode ge '20101' ) and ( &_zipcode le '20199' ) then &_statecode = 'VA' ; IF (&_zipcode ge '20201' ) and ( &_zipcode le '20599' ) then &_statecode = 'DC' ; IF (&_zipcode ge '20601' ) and ( &_zipcode le '21930' ) then &_statecode = 'MD' ; IF (&_zipcode ge '22002' ) and ( &_zipcode le '24658' ) then &_statecode = 'VA' ; IF (&_zipcode ge '24701' ) and ( &_zipcode le '26886' ) then &_statecode = 'WV' ; IF (&_zipcode ge '27006' ) and ( &_zipcode le '28909' ) then &_statecode = 'NC' ; IF (&_zipcode ge '29001' ) and ( &_zipcode le '29945' ) then &_statecode = 'SC' ; IF (&_zipcode ge '30002' ) and ( &_zipcode le '31999' ) then &_statecode = 'GA' ; IF (&_zipcode ge '32004' ) and ( &_zipcode le '34997' ) then &_statecode = 'FL' ; IF (&_zipcode ge '35004' ) and ( &_zipcode le '36925' ) then &_statecode = 'AL' ; IF (&_zipcode ge '37010' ) and ( &_zipcode le '38589' ) then &_statecode = 'TN' ; IF (&_zipcode ge '38601' ) and ( &_zipcode le '39776' ) then &_statecode = 'MS' ; IF (&_zipcode ge '39901' ) and ( &_zipcode le '39901' ) then &_statecode = 'GA' ; IF (&_zipcode ge '40003' ) and ( &_zipcode le '42788' ) then &_statecode = 'KY' ; IF (&_zipcode ge '43001' ) and ( &_zipcode le '45999' ) then &_statecode = 'OH' ; IF (&_zipcode ge '46001' ) and ( &_zipcode le '47997' ) then &_statecode = 'IN' ; IF (&_zipcode ge '48001' ) and ( &_zipcode le '49971' ) then &_statecode = 'MI' ; IF (&_zipcode ge '50001' ) and ( &_zipcode le '52809' ) then &_statecode = 'IA' ; IF (&_zipcode ge '53001' ) and ( &_zipcode le '54990' ) then &_statecode = 'WI' ; IF (&_zipcode ge '55001' ) and ( &_zipcode le '56763' ) then &_statecode = 'MN' ; IF (&_zipcode ge '57001' ) and ( &_zipcode le '57799' ) then &_statecode = 'SD' ; IF (&_zipcode ge '58001' ) and ( &_zipcode le '58856' ) then &_statecode = 'ND' ; IF (&_zipcode ge '59001' ) and ( &_zipcode le '59937' ) then &_statecode = 'MT' ; IF (&_zipcode ge '60001' ) and ( &_zipcode le '62999' ) then &_statecode = 'IL' ; IF (&_zipcode ge '63001' ) and ( &_zipcode le '65899' ) then &_statecode = 'MO' ; IF (&_zipcode ge '66002' ) and ( &_zipcode le '67954' ) then &_statecode = 'KS' ; IF (&_zipcode ge '68001' ) and ( &_zipcode le '69367' ) then &_statecode = 'NE' ; IF (&_zipcode ge '70001' ) and ( &_zipcode le '71497' ) then &_statecode = 'LA' ; IF (&_zipcode ge '71601' ) and ( &_zipcode le '72959' ) then &_statecode = 'AR' ; IF (&_zipcode ge '73001' ) and ( &_zipcode le '73199' ) then &_statecode = 'OK' ; IF (&_zipcode ge '73301' ) and ( &_zipcode le '73344' ) then &_statecode = 'TX' ; IF (&_zipcode ge '73401' ) and ( &_zipcode le '74966' ) then &_statecode = 'OK' ; IF (&_zipcode ge '75001' ) and ( &_zipcode le '79999' ) then &_statecode = 'TX' ; IF (&_zipcode ge '80001' ) and ( &_zipcode le '81658' ) then &_statecode = 'CO' ; IF (&_zipcode ge '82001' ) and ( &_zipcode le '83128' ) then &_statecode = 'WY' ; IF (&_zipcode ge '83201' ) and ( &_zipcode le '83888' ) then &_statecode = 'ID' ; IF (&_zipcode ge '84001' ) and ( &_zipcode le '84791' ) then &_statecode = 'UT' ; IF (&_zipcode ge '85001' ) and ( &_zipcode le '86556' ) then &_statecode = 'AZ' ; IF (&_zipcode ge '87001' ) and ( &_zipcode le '88441' ) then &_statecode = 'NM' ; IF (&_zipcode ge '88510' ) and ( &_zipcode le '88595' ) then &_statecode = 'TX' ; IF (&_zipcode ge '88901' ) and ( &_zipcode le '89883' ) then &_statecode = 'NV' ; IF (&_zipcode ge '90001' ) and ( &_zipcode le '96162' ) then &_statecode = 'CA' ; IF (&_zipcode ge '96701' ) and ( &_zipcode le '96898' ) then &_statecode = 'HI' ; IF (&_zipcode ge '97001' ) and ( &_zipcode le '97920' ) then &_statecode = 'OR' ; IF (&_zipcode ge '98001' ) and ( &_zipcode le '99403' ) then &_statecode = 'WA' ; IF (&_zipcode ge '99501' ) and ( &_zipcode le '99950' ) then &_statecode = 'AK' ; /********************************************************************************************/ /* ZipState 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 zipstate;