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