-------------------------------------------------------------------------------
       log:  /disk/nber10/SCCS/morg/sources/rw_keep.log
  log type:  text
 opened on:  22 Mar 2004, 16:46:50

. set more off

. * by Jean Roth, 2004-03-22, jroth@nber.org
. 
. local monlist jan feb mar apr may jun jul aug sep oct nov dec

. local yearlist 00 01 02

. #delimit ;
delimiter now ;
. local keeplist qstnum hryear4 neio1icd nworwgt neerncov
> hrmonth occurnum neio1cow ntio1ocd nwsswgt neernlab ;

. #delimit cr
delimiter now cr
. 
. foreach year in `yearlist' {
  2.      foreach mon in `monlist' {
  3.         display "20`year' `mon'" 
  4.         use /homes/web/html/data/progs/cps-basic/rw`mon'`year'
  5.         keep `keeplist'
  6.         *drop if nwsswgt == 0 
.         tostring qstnum , replace 
  7.         tostring occurnum , replace
  8.         rename hryear4 year
  9.         rename hrmonth intmonth
 10.         sort qstnum intmonth year occurnum
 11.         save /homes/data/morg/annual/rw/rw`mon'`year' , replace
 12.      }
 13. }
2000 jan
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjan00.dta saved
2000 feb
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwfeb00.dta saved
2000 mar
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwmar00.dta saved
2000 apr
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwapr00.dta saved
2000 may
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwmay00.dta saved
2000 jun
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjun00.dta saved
2000 jul
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjul00.dta saved
2000 aug
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwaug00.dta saved
2000 sep
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwsep00.dta saved
2000 oct
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwoct00.dta saved
2000 nov
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwnov00.dta saved
2000 dec
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwdec00.dta saved
2001 jan
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjan01.dta saved
2001 feb
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwfeb01.dta saved
2001 mar
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwmar01.dta saved
2001 apr
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwapr01.dta saved
2001 may
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwmay01.dta saved
2001 jun
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjun01.dta saved
2001 jul
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjul01.dta saved
2001 aug
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwaug01.dta saved
2001 sep
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwsep01.dta saved
2001 oct
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwoct01.dta saved
2001 nov
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwnov01.dta saved
2001 dec
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwdec01.dta saved
2002 jan
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjan02.dta saved
2002 feb
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwfeb02.dta saved
2002 mar
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwmar02.dta saved
2002 apr
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwapr02.dta saved
2002 may
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwmay02.dta saved
2002 jun
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjun02.dta saved
2002 jul
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwjul02.dta saved
2002 aug
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwaug02.dta saved
2002 sep
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwsep02.dta saved
2002 oct
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwoct02.dta saved
2002 nov
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwnov02.dta saved
2002 dec
qstnum was long now str5
occurnum was byte now str2
file /homes/data/morg/annual/rw/rwdec02.dta saved

. exit,clear

end of do-file

. exit,clear