set more 1

/*
File:	cepr_org_realwage.do
Date:	Nov 21, 2006
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 $2005 using CPI-U-RS
* (see BLS CPI-U-RS table at http://www.bls.gov/cpi/cpiurstx.htm)
local basecpi=293.5 /* 2006 CPI-U-RS */
local wage "`1'"
gen t`wage'=.
replace t`wage'=`wage'/(114.1/`basecpi') if year==1979
replace t`wage'=`wage'/(126.7/`basecpi') if year==1980
replace t`wage'=`wage'/(138.6/`basecpi') if year==1981
replace t`wage'=`wage'/(146.8/`basecpi') if year==1982
replace t`wage'=`wage'/(152.9/`basecpi') if year==1983
replace t`wage'=`wage'/(159.0/`basecpi') if year==1984
replace t`wage'=`wage'/(164.3/`basecpi') if year==1985
replace t`wage'=`wage'/(167.3/`basecpi') if year==1986
replace t`wage'=`wage'/(173.0/`basecpi') if year==1987
replace t`wage'=`wage'/(179.3/`basecpi') if year==1988
replace t`wage'=`wage'/(187.0/`basecpi') if year==1989
replace t`wage'=`wage'/(196.3/`basecpi') if year==1990
replace t`wage'=`wage'/(203.4/`basecpi') if year==1991
replace t`wage'=`wage'/(208.5/`basecpi') if year==1992
replace t`wage'=`wage'/(213.7/`basecpi') if year==1993
replace t`wage'=`wage'/(218.2/`basecpi') if year==1994
replace t`wage'=`wage'/(223.5/`basecpi') if year==1995
replace t`wage'=`wage'/(229.5/`basecpi') if year==1996
replace t`wage'=`wage'/(234.4/`basecpi') if year==1997
replace t`wage'=`wage'/(237.7/`basecpi') if year==1998
replace t`wage'=`wage'/(242.7/`basecpi') if year==1999
replace t`wage'=`wage'/(250.8/`basecpi') if year==2000
replace t`wage'=`wage'/(257.8/`basecpi') if year==2001
replace t`wage'=`wage'/(261.9/`basecpi') if year==2002
replace t`wage'=`wage'/(267.9/`basecpi') if year==2003
replace t`wage'=`wage'/((275.1)/`basecpi') if year==2004
replace t`wage'=`wage'/((284.3)/`basecpi') if year==2005
replace t`wage'=`wage'/((293.5)/`basecpi') if year==2006
*
* CEPR CPS ORG preferred wage variable "trims" wage observations
* below $1 and above $100 in 1989 constant dollars
*
global dol_1=1/(187.0/`basecpi')
global dol_100=100/(187.0/`basecpi')
*
end