%macro ZipName(_zipcode, _stateName); /********************************************************************************************/ /* _ZipCode = the 5 digit zipcode in character format to be looked up. */ /* _StateName = the Upper/lower case state name in var _statecode. */ /* */ /* Name: ZipName.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 &_statename = 'NEW HAMPSHIRE' ; IF (&_zipcode ge '00501' ) and ( &_zipcode le '00544' ) then &_statename = 'NEW YORK' ; IF (&_zipcode ge '01001' ) and ( &_zipcode le '02791' ) then &_statename = 'MASSACHUSETTS' ; IF (&_zipcode ge '02801' ) and ( &_zipcode le '02940' ) then &_statename = 'RHODE ISLAND' ; IF (&_zipcode ge '03031' ) and ( &_zipcode le '03897' ) then &_statename = 'NEW HAMPSHIRE' ; IF (&_zipcode ge '03901' ) and ( &_zipcode le '04992' ) then &_statename = 'MAINE' ; IF (&_zipcode ge '05001' ) and ( &_zipcode le '05495' ) then &_statename = 'VERMONT' ; IF (&_zipcode ge '05501' ) and ( &_zipcode le '05544' ) then &_statename = 'MASSACHUSETTS'; IF (&_zipcode ge '05601' ) and ( &_zipcode le '05907' ) then &_statename = 'VERMONT' ; IF (&_zipcode ge '06001' ) and ( &_zipcode le '06389' ) then &_statename = 'CONNECTICUT' ; IF (&_zipcode ge '06390' ) and ( &_zipcode le '06390' ) then &_statename = 'NEW YORK' ; IF (&_zipcode ge '06401' ) and ( &_zipcode le '06928' ) then &_statename = 'CONNECTICUT' ; IF (&_zipcode ge '07001' ) and ( &_zipcode le '08989' ) then &_statename = 'NEW JERSEY' ; IF (&_zipcode ge '10001' ) and ( &_zipcode le '14925' ) then &_statename = 'NEW YORK' ; IF (&_zipcode ge '15001' ) and ( &_zipcode le '19640' ) then &_statename = 'PENNSYLVANIA' ; IF (&_zipcode ge '19701' ) and ( &_zipcode le '19980' ) then &_statename = 'DELAWARE' ; IF (&_zipcode ge '20001' ) and ( &_zipcode le '20099' ) then &_statename = 'DISTRICT OF COLUMBIA' ; IF (&_zipcode ge '20101' ) and ( &_zipcode le '20199' ) then &_statename = 'VIRGINIA'; IF (&_zipcode ge '20201' ) and ( &_zipcode le '20599' ) then &_statename = 'DISTRICT OF COLUMBIA' ; IF (&_zipcode ge '20601' ) and ( &_zipcode le '21930' ) then &_statename = 'MARYLAND' ; IF (&_zipcode ge '22002' ) and ( &_zipcode le '24658' ) then &_statename = 'VIRGINIA'; IF (&_zipcode ge '24701' ) and ( &_zipcode le '26886' ) then &_statename = 'WEST VIRGINIA'; IF (&_zipcode ge '27006' ) and ( &_zipcode le '28909' ) then &_statename = 'NORTH CAROLINA' ; IF (&_zipcode ge '29001' ) and ( &_zipcode le '29945' ) then &_statename = 'SOUTH CAROLINA' ; IF (&_zipcode ge '30002' ) and ( &_zipcode le '31999' ) then &_statename = 'GEORGIA' ; IF (&_zipcode ge '32004' ) and ( &_zipcode le '34997' ) then &_statename = 'FLORIDA' ; IF (&_zipcode ge '35004' ) and ( &_zipcode le '36925' ) then &_statename = 'ALABAMA' ; IF (&_zipcode ge '37010' ) and ( &_zipcode le '38589' ) then &_statename = 'TENNESSEE' ; IF (&_zipcode ge '38601' ) and ( &_zipcode le '39776' ) then &_statename = 'MISSISSIPPI' ; IF (&_zipcode ge '39901' ) and ( &_zipcode le '39901' ) then &_statename = 'GEORGIA' ; IF (&_zipcode ge '40003' ) and ( &_zipcode le '42788' ) then &_statename = 'KENTUCKY' ; IF (&_zipcode ge '43001' ) and ( &_zipcode le '45999' ) then &_statename = 'OHIO'; IF (&_zipcode ge '46001' ) and ( &_zipcode le '47997' ) then &_statename = 'INDIANA' ; IF (&_zipcode ge '48001' ) and ( &_zipcode le '49971' ) then &_statename = 'MICHIGAN' ; IF (&_zipcode ge '50001' ) and ( &_zipcode le '52809' ) then &_statename = 'IOWA' ; IF (&_zipcode ge '53001' ) and ( &_zipcode le '54990' ) then &_statename = 'WISCONSIN' ; IF (&_zipcode ge '55001' ) and ( &_zipcode le '56763' ) then &_statename = 'MINNESOTA' ; IF (&_zipcode ge '57001' ) and ( &_zipcode le '57799' ) then &_statename = 'SOUTH DAKOTA' ; IF (&_zipcode ge '58001' ) and ( &_zipcode le '58856' ) then &_statename = 'NORTH DAKOTA' ; IF (&_zipcode ge '59001' ) and ( &_zipcode le '59937' ) then &_statename = 'MONTANA' ; IF (&_zipcode ge '60001' ) and ( &_zipcode le '62999' ) then &_statename = 'ILLINOIS' ; IF (&_zipcode ge '63001' ) and ( &_zipcode le '65899' ) then &_statename = 'MISSOURI' ; IF (&_zipcode ge '66002' ) and ( &_zipcode le '67954' ) then &_statename = 'KANSAS' ; IF (&_zipcode ge '68001' ) and ( &_zipcode le '69367' ) then &_statename = 'NEBRASKA' ; IF (&_zipcode ge '70001' ) and ( &_zipcode le '71497' ) then &_statename = 'LOUISIANA' ; IF (&_zipcode ge '71601' ) and ( &_zipcode le '72959' ) then &_statename = 'ARKANSAS' ; IF (&_zipcode ge '73001' ) and ( &_zipcode le '73199' ) then &_statename = 'OKLAHOMA' ; IF (&_zipcode ge '73301' ) and ( &_zipcode le '73344' ) then &_statename = 'TEXAS' ; IF (&_zipcode ge '73401' ) and ( &_zipcode le '74966' ) then &_statename = 'OKLAHOMA' ; IF (&_zipcode ge '75001' ) and ( &_zipcode le '79999' ) then &_statename = 'TEXAS' ; IF (&_zipcode ge '80001' ) and ( &_zipcode le '81658' ) then &_statename = 'COLORADO' ; IF (&_zipcode ge '82001' ) and ( &_zipcode le '83128' ) then &_statename = 'WYOMING' ; IF (&_zipcode ge '83201' ) and ( &_zipcode le '83888' ) then &_statename = 'IDAHO' ; IF (&_zipcode ge '84001' ) and ( &_zipcode le '84791' ) then &_statename = 'UTAH' ; IF (&_zipcode ge '85001' ) and ( &_zipcode le '86556' ) then &_statename = 'ARIZONA' ; IF (&_zipcode ge '87001' ) and ( &_zipcode le '88441' ) then &_statename = 'NEW MEXICO' ; IF (&_zipcode ge '88510' ) and ( &_zipcode le '88595' ) then &_statename = 'TEXAS' ; IF (&_zipcode ge '88901' ) and ( &_zipcode le '89883' ) then &_statename = 'NEVADA' ; IF (&_zipcode ge '90001' ) and ( &_zipcode le '96162' ) then &_statename = 'CALIFORNIA' ; IF (&_zipcode ge '96701' ) and ( &_zipcode le '96898' ) then &_statename = 'HAWAII' ; IF (&_zipcode ge '97001' ) and ( &_zipcode le '97920' ) then &_statename = 'OREGON' ; IF (&_zipcode ge '98001' ) and ( &_zipcode le '99403' ) then &_statename = 'WASHINGTON' ; IF (&_zipcode ge '99501' ) and ( &_zipcode le '99950' ) then &_statename = 'ALASKA' ; /********************************************************************************************/ /* ZipName 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 zipname;