%macro fipnamel(_instate, _stnamel);
/**************************************************************************************/
/* _Instate  = the 2 character state Fips code that is to be looked up.               */
/* _Stfips   = the two character state fips code that is to be returned in _stfips.   */
/*                                                                                    */
/*  Name: FipNameL.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') &_stnamel = 'Alabama'; 
	when('02') &_stnamel = 'Alaska'; 
	when('04') &_stnamel = 'Arizona'; 
	when('05') &_stnamel = 'Arkansas'; 
	when('06') &_stnamel = 'California'; 
	when('08') &_stnamel = 'Colorado'; 
	when('09') &_stnamel = 'Connecticut'; 
	when('10') &_stnamel = 'Delaware';         
	when('11') &_stnamel = 'District of Columbia';
	when('12') &_stnamel = 'Florida'; 
	when('13') &_stnamel = 'Georgia'; 
	when('15') &_stnamel = 'Hawaii'; 
	when('16') &_stnamel = 'Idaho'; 
	when('17') &_stnamel = 'Illinois'; 
	when('18') &_stnamel = 'Indiana'; 
	when('19') &_stnamel = 'Iowa'; 
	when('20') &_stnamel = 'Kansas'; 
	when('21') &_stnamel = 'Kentucky'; 
	when('22') &_stnamel = 'Louisiana'; 
	when('23') &_stnamel = 'Maine'; 
	when('24') &_stnamel = 'Maryland'; 
	when('25') &_stnamel = 'Massachusetts'; 
	when('26') &_stnamel = 'Michigan'; 
	when('27') &_stnamel = 'Minnesota'; 
	when('28') &_stnamel = 'Mississippi'; 
	when('29') &_stnamel = 'Missouri';
	when('30') &_stnamel = 'Montana'; 
	when('31') &_stnamel = 'Nebraska'; 
	when('32') &_stnamel = 'Nevada'; 
	when('33') &_stnamel = 'New Hampshire'; 
	when('34') &_stnamel = 'New Jersey'; 
	when('35') &_stnamel = 'New Mexico'; 
	when('36') &_stnamel = 'New York'; 
	when('37') &_stnamel = 'North Carolina'; 
	when('38') &_stnamel = 'North Dakota'; 
	when('39') &_stnamel = 'Ohio'; 
	when('40') &_stnamel = 'Oklahoma'; 
	when('41') &_stnamel = 'Oregon'; 
	when('42') &_stnamel = 'Pennsylvania'; 
	when('44') &_stnamel = 'Rhode Island'; 
	when('45') &_stnamel = 'South Carolina'; 
	when('46') &_stnamel = 'South Dakota'; 
	when('47') &_stnamel = 'Tennessee'; 
	when('48') &_stnamel = 'Texas'; 
	when('49') &_stnamel = 'Utah'; 
	when('50') &_stnamel = 'Vermont'; 
	when('51') &_stnamel = 'Virginia'; 
	when('53') &_stnamel = 'Washington'; 
	when('54') &_stnamel = 'West Virginia'; 
	when('55') &_stnamel = 'Wisconsin'; 
	when('56') &_stnamel = 'Wyoming'; 
	when('72') &_stnamel = 'Puerto Rico';
    otherwise;
  end;
/********************************************************************************************/
/* FipNamel 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 fipnamel;