%macro StName(_incode,_stName);
/**************************************************************************************/
/* _InCode  = the 2 character state Postal code that is to be looked up.              */
/* _StName  = the state name in all upper case.                                       */
/*                                                                                    */
/*  Name: StName.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')  &_stName =  'ALABAMA';
	when('AK')  &_stName =  'ALASKA';
	when('AZ')  &_stName =  'ARIZONA';
	when('AR')  &_stName =  'ARKANSAS';
	when('CA')  &_stName =  'CALIFORNIA';
	when('CO')  &_stName =  'COLORADO';
	when('CT')  &_stName =  'CONNECTICUT';
	when('DE')  &_stName =  'DELAWARE';
	when('DC')  &_stName =  'DISTRICT OF COLUMBIA';
	when('FL')  &_stName =  'FLORIDA';
	when('GA')  &_stName =  'GEORGIA';
	when('HI')  &_stName =  'HAWAII';
	when('ID')  &_stName =  'IDAHO';
	when('IL')  &_stName =  'ILLINOIS';
	when('IN')  &_stName =  'INDIANA';
	when('IA')  &_stName =  'IOWA';
	when('KS')  &_stName =  'KANSAS';
	when('KY')  &_stName =  'KENTUCKY';
	when('LA')  &_stName =  'LOUISIANA';
	when('ME')  &_stName =  'MAINE';
	when('MD')  &_stName =  'MARYLAND';
	when('MA')  &_stName =  'MASSACHUSETTS';
	when('MI')  &_stName =  'MICHIGAN';
	when('MN')  &_stName =  'MINNESOTA';
	when('MS')  &_stName =  'MISSISSIPPI';
	when('MO')  &_stName =  'MISSOURI';
	when('MT')  &_stName =  'MONTANA';
	when('NE')  &_stName =  'NEBRASKA';
	when('NV')  &_stName =  'NEVADA';
	when('NH')  &_stName =  'NEW HAMPSHIRE';
	when('NJ')  &_stName =  'NEW JERSEY';
	when('NM')  &_stName =  'NEW MEXICO'; 
	when('NY')  &_stName =  'NEW YORK'; 
	when('NC')  &_stName =  'NORTH CAROLINA'; 
	when('ND')  &_stName =  'NORTH DAKOTA'; 
	when('OH')  &_stName =  'OHIO'; 
	when('OK')  &_stName =  'OKLAHOMA'; 
	when('OR')  &_stName =  'OREGON'; 
	when('PA')  &_stName =  'PENNSYLANIA'; 
	when('RI')  &_stName =  'RHODE ISLAND'; 
	when('SC')  &_stName =  'SOUTH CAROLINA'; 
	when('SD')  &_stName =  'SOUTH DAKOTA'; 
	when('TN')  &_stName =  'TENNESSEE'; 
	when('TX')  &_stName =  'TEXAS'; 
	when('UT')  &_stName =  'UTAH'; 
	when('VT')  &_stName =  'VERMONT'; 
	when('VA')  &_stName =  'VIRGINIA'; 
	when('WA')  &_stName =  'WASHINGTON'; 
	when('WV')  &_stName =  'WEST VIRGINIA'; 
	when('WI')  &_stName =  'WISCONSIN'; 
	when('WY')  &_stName =  'WYOMING';
	when('PR')  &_stName =  'PUERTO RICO';
otherwise;
end;

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