log using small, text replace
** Creates small ( 1000 observation ) datasets
** by Jean Roth, jroth@nber.org, 2004-10-08

set mem 1000m
set more off

forvalues yr = 79/99 {
   display `yr'
   use /homes/data/morg/annual/morg`yr' in 1/1000
   save /homes/data/morg/raw/small/small`yr', replace
}
forvalues yr = 0/3 {
   display `yr'
   use /homes/data/morg/annual/morg0`yr' in 1/1000
   save /homes/data/morg/raw/small/small0`yr', replace
}


exit