%macro StNamel(_incode,_stNamel);
/**************************************************************************************/
/* _InCode  = the 2 character state Postal code that is to be looked up.              */
/* _StNamel  = the state name in upper and lower case.                                */
/*                                                                                    */
/*  Name: StNamel.SAS                                                                 */
/*  Data: Sourced from MineQuest, LLC.               Auth: Phil Rack                  */
/*  Date: 5/3/2007                                   Revd:                            */
/*                                                                                    */
/*  Copyright (C) 2007 by MineQuest, LLC. All Rights Reserved.                        */
/**************************************************************************************/

select (upcase(&_incode));
    when('AL')  &_stNamel =  'Alabama';
	when('AK')  &_stNamel =  'Alaska';
	when('AZ')  &_stNamel =  'Arizona';
	when('AR')  &_stNamel =  'Arkansas';
	when('CA')  &_stNamel =  'California';
	when('CO')  &_stNamel =  'Colorado';
	when('CT')  &_stNamel =  'Connecticut';
	when('DE')  &_stNamel =  'Delaware';
	when('DC')  &_stNamel =  'District of Columbia';
	when('FL')  &_stNamel =  'Florida';
	when('GA')  &_stNamel =  'Georgia';
	when('HI')  &_stNamel =  'Hawaii';
	when('ID')  &_stNamel =  'Idaho';
	when('IL')  &_stNamel =  'Illinois';
	when('IN')  &_stNamel =  'Indiana';
	when('IA')  &_stNamel =  'Iowa';
	when('KS')  &_stNamel =  'Kansas';
	when('KY')  &_stNamel =  'Kentucky';
	when('LA')  &_stNamel =  'Louisiana';
	when('ME')  &_stNamel =  'Maine';
	when('MD')  &_stNamel =  'Maryland';
	when('MA')  &_stNamel =  'Massachusetts';
	when('MI')  &_stNamel =  'Michigan';
	when('MN')  &_stNamel =  'Minnesota';
	when('MS')  &_stNamel =  'Mississippi';
	when('MO')  &_stNamel =  'Missouri';
	when('MT')  &_stNamel =  'Montana';
	when('NE')  &_stNamel =  'Nebraska';
	when('NV')  &_stNamel =  'Nevada';
	when('NH')  &_stNamel =  'New Hampshire';
	when('NJ')  &_stNamel =  'New Jersey';
	when('NM')  &_stNamel =  'New Mexico'; 
	when('NY')  &_stNamel =  'New York'; 
	when('NC')  &_stNamel =  'North Carolina'; 
	when('ND')  &_stNamel =  'North Dakota'; 
	when('OH')  &_stNamel =  'Ohio'; 
	when('OK')  &_stNamel =  'Oklahoma'; 
	when('OR')  &_stNamel =  'Oregon'; 
	when('PA')  &_stNamel =  'Pennsylvania'; 
	when('RI')  &_stNamel =  'Rhode Island'; 
	when('SC')  &_stNamel =  'South Carolina'; 
	when('SD')  &_stNamel =  'South Dakota'; 
	when('TN')  &_stNamel =  'Tennessee'; 
	when('TX')  &_stNamel =  'Texas'; 
	when('UT')  &_stNamel =  'Utah'; 
	when('VT')  &_stNamel =  'Vermont'; 
	when('VA')  &_stNamel =  'Virginia'; 
	when('WA')  &_stNamel =  'Washington'; 
	when('WV')  &_stNamel =  'West Virginia'; 
	when('WI')  &_stNamel =  'Wisconsin'; 
	when('WY')  &_stNamel =  'Wyoming';
	when('PR')  &_stNamel =  'Puerto Rico';
otherwise;
end;

/********************************************************************************************/
/* StNamel 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 StNamel;