%macro fipstate(_instate,_stname);
/**************************************************************************************/
/* _Instate  = the 2 character state Fips code that is to be looked up.               */
/* _StName   = the Returned value - 2 Character State Postal Code in all Upper Case.  */
/*                                                                                    */
/*  Name: FipState.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 = 'AL'; 
	when('02') &_stname = 'AK'; 
	when('04') &_stname = 'AZ'; 
	when('05') &_stname = 'AR'; 
	when('06') &_stname = 'CA'; 
	when('08') &_stname = 'CO'; 
	when('09') &_stname = 'CT'; 
	when('10') &_stname = 'DE';         
	when('11') &_stname = 'DC';
	when('12') &_stname = 'FL'; 
	when('13') &_stname = 'GA'; 
	when('15') &_stname = 'HI'; 
	when('16') &_stname = 'ID'; 
	when('17') &_stname = 'IL'; 
	when('18') &_stname = 'IN'; 
	when('19') &_stname = 'IA'; 
	when('20') &_stname = 'KS'; 
	when('21') &_stname = 'KY'; 
	when('22') &_stname = 'LA'; 
	when('23') &_stname = 'ME'; 
	when('24') &_stname = 'MD'; 
	when('25') &_stname = 'MA'; 
	when('26') &_stname = 'MI'; 
	when('27') &_stname = 'MN'; 
	when('28') &_stname = 'MS'; 
	when('29') &_stname = 'MO';
	when('30') &_stname = 'MT'; 
	when('31') &_stname = 'NE'; 
	when('32') &_stname = 'NV'; 
	when('33') &_stname = 'NH'; 
	when('34') &_stname = 'NJ'; 
	when('35') &_stname = 'NM'; 
	when('36') &_stname = 'NY'; 
	when('37') &_stname = 'NC'; 
	when('38') &_stname = 'ND'; 
	when('39') &_stname = 'OH'; 
	when('40') &_stname = 'OK'; 
	when('41') &_stname = 'OR'; 
	when('42') &_stname = 'PA'; 
	when('44') &_stname = 'RI'; 
	when('45') &_stname = 'SC'; 
	when('46') &_stname = 'SD'; 
	when('47') &_stname = 'TN'; 
	when('48') &_stname = 'TX'; 
	when('49') &_stname = 'UT'; 
	when('50') &_stname = 'VT'; 
	when('51') &_stname = 'VA'; 
	when('53') &_stname = 'WA'; 
	when('54') &_stname = 'WV'; 
	when('55') &_stname = 'WI'; 
	when('56') &_stname = 'WY'; 
	when('72') &_stname = 'PR';
    otherwise;
  end;
/********************************************************************************************/
/* FipState 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 fipstate;