%macro FipName(_instate, _stname);
/**************************************************************************************/
/* _Instate  = the 2 character state Fips code that is to be looked up.               */
/* _StName   = the Returned value - State Name in all Upper Case.                     */
/*                                                                                    */
/*  Name: FipName.SAS                                                                 */
/*  Data: Sourced from MineQuest, LLC.               Auth: Phil Rack                  */
/*  Date: 5/3/2007                                   Revd:                            */
/*                                                                                    */
/*  Copyright (C) 2007 by MineQuest, LLC. All Rights Reserved.                        */
/**************************************************************************************/
  
  Select (&_instate);
   when('01') &_stname = 'ALABAMA'; 
	when('02') &_stname = 'ALASKA'; 
	when('04') &_stname = 'ARIZONA'; 
	when('05') &_stname = 'ARKANSAS'; 
	when('06') &_stname = 'CALIFORNIA'; 
	when('08') &_stname = 'COLORADO'; 
	when('09') &_stname = 'CONNECTICUT'; 
	when('10') &_stname = 'DELAWARE';         
	when('11') &_stname = 'DISTIRCT OF COLUMBIA';
	when('12') &_stname = 'FLORIDA'; 
	when('13') &_stname = 'GEORGIA'; 
	when('15') &_stname = 'HAWAII'; 
	when('16') &_stname = 'IDAHO'; 
	when('17') &_stname = 'ILLINOIS'; 
	when('18') &_stname = 'INDIANA'; 
	when('19') &_stname = 'IOWA'; 
	when('20') &_stname = 'KANSAS'; 
	when('21') &_stname = 'KENTUCKY'; 
	when('22') &_stname = 'LOUISIANA'; 
	when('23') &_stname = 'MAINE'; 
	when('24') &_stname = 'MARYLAND'; 
	when('25') &_stname = 'MASSACHUSETTS'; 
	when('26') &_stname = 'MICHIGAN'; 
	when('27') &_stname = 'MINNESOTA'; 
	when('28') &_stname = 'MISSISSIPPI'; 
	when('29') &_stname = 'MISSOURI';
	when('30') &_stname = 'MONTANA'; 
	when('31') &_stname = 'NEBRASKA'; 
	when('32') &_stname = 'NEVADA'; 
	when('33') &_stname = 'NEW HAMPSHIRE'; 
	when('34') &_stname = 'NEW JERSEY'; 
	when('35') &_stname = 'NEW MEXICO'; 
	when('36') &_stname = 'NEW YORK'; 
	when('37') &_stname = 'NORTH CAROLINA'; 
	when('38') &_stname = 'NORTH DAKOTA'; 
	when('39') &_stname = 'OHIO'; 
	when('40') &_stname = 'OKLAHOMA'; 
	when('41') &_stname = 'OREGON'; 
	when('42') &_stname = 'PENNSYLVANIA'; 
	when('44') &_stname = 'RHODE ISLAND'; 
	when('45') &_stname = 'SOUTH CAROLINA'; 
	when('46') &_stname = 'SOUTH DAKOTA'; 
	when('47') &_stname = 'TENNESSEE'; 
	when('48') &_stname = 'TEXAS'; 
	when('49') &_stname = 'UTAH'; 
	when('50') &_stname = 'VERMONT'; 
	when('51') &_stname = 'VIRGINIA'; 
	when('53') &_stname = 'WASHINGTON'; 
	when('54') &_stname = 'WEST VIRGINIA'; 
	when('55') &_stname = 'WISCONSIN'; 
	when('56') &_stname = 'WYOMING'; 
	when('72') &_stname = 'PUERTO RICO';
    otherwise;
  end;
/********************************************************************************************/
/* FipName 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 fipname;