set more 1

/*
File:	cepr_org_realwage.do
Date:	Feb 10, 2009
	Jan 4, 2010
	Feb 22, 2011 CEPR ORG Version 1.6
Desc:	Converts nominal to real wages using the CPI-U-RS
*/

capture program drop realw
program define realw
version 7.0
* create real wage variable for analysis
* convert to $2009 using CPI-U-RS
* (see BLS CPI-U-RS table at http://www.bls.gov/cpi/cpirsdc.htm)
local basecpi=320.2*(218.056/214.537) /* use average CPI 2010/2009 to update */
local wage "`1'"
gen t`wage'=.
replace t`wage'=`wage'/(114.4/`basecpi') if year==1979
replace t`wage'=`wage'/(127.1/`basecpi') if year==1980
replace t`wage'=`wage'/(139.2/`basecpi') if year==1981
replace t`wage'=`wage'/(147.6/`basecpi') if year==1982
replace t`wage'=`wage'/(153.9/`basecpi') if year==1983
replace t`wage'=`wage'/(160.2/`basecpi') if year==1984
replace t`wage'=`wage'/(165.7/`basecpi') if year==1985
replace t`wage'=`wage'/(168.7/`basecpi') if year==1986
replace t`wage'=`wage'/(174.4/`basecpi') if year==1987
replace t`wage'=`wage'/(180.8/`basecpi') if year==1988
replace t`wage'=`wage'/(188.6/`basecpi') if year==1989
replace t`wage'=`wage'/(198.0/`basecpi') if year==1990
replace t`wage'=`wage'/(205.1/`basecpi') if year==1991
replace t`wage'=`wage'/(210.3/`basecpi') if year==1992
replace t`wage'=`wage'/(215.5/`basecpi') if year==1993
replace t`wage'=`wage'/(220.1/`basecpi') if year==1994
replace t`wage'=`wage'/(225.4/`basecpi') if year==1995
replace t`wage'=`wage'/(231.4/`basecpi') if year==1996
replace t`wage'=`wage'/(236.4/`basecpi') if year==1997
replace t`wage'=`wage'/(239.7/`basecpi') if year==1998
replace t`wage'=`wage'/(244.7/`basecpi') if year==1999
replace t`wage'=`wage'/(252.9/`basecpi') if year==2000
replace t`wage'=`wage'/(260.0/`basecpi') if year==2001
replace t`wage'=`wage'/(264.2/`basecpi') if year==2002
replace t`wage'=`wage'/(270.1/`basecpi') if year==2003
replace t`wage'=`wage'/(277.4/`basecpi') if year==2004
replace t`wage'=`wage'/(286.7/`basecpi') if year==2005
replace t`wage'=`wage'/(296.1/`basecpi') if year==2006
replace t`wage'=`wage'/(304.5/`basecpi') if year==2007
replace t`wage'=`wage'/(316.2/`basecpi') if year==2008
replace t`wage'=`wage'/(315.0/`basecpi') if year==2009
replace t`wage'=`wage'/(320.2/`basecpi') if year==2010
replace t`wage'=`wage'/((320.2*1.032)/`basecpi') if year==2011
*
* Note: The CPI-U-RS for 2011 is estimated using the 
* ratio of average of the first 11 months of 2011 to 
* the average of the first 11 months of 2010.
*
* CEPR CPS ORG preferred wage variable "trims" wage observations
* below $1 and above $200 in 1989 constant dollars
* For 2009, we use change in 11 month (1-11) average CPI
*
global dol_1=1/(188.6/`basecpi')
global dol_200=200/(188.6/`basecpi')
*
end