capture log close
set more off
set mem 2000m
log using y1_1x_to_4_and_y2_1_each_have_unique_newid.log, replace
** by Jean Roth, jroth@nber.org , 2009-10-15
** Purpose:  Demonstrate that y1_1x to y1_4 and y2_1 have unique NEWIDs
forval year1 = 2001/2007 {
   local yr1=substr(`"`year1'"',3,2)
   local year2=`year1'+1
   local yr2=substr(`"`year2'"',3,2)
   display "year1=`year1' year2=`year2' yr1=`yr1' yr2=`yr2'"
   local _1  `yr1'1x 
   local _2  `yr1'2
   local _3  `yr1'3
   local _4  `yr1'4
   local _5  `yr2'1
   local merge_list `_2' `_3' `_4' `_5'
   use ~/bulk/ces/fmli`_1'
   quietly describe 
   local last_n `r(N)' 
   foreach i of local merge_list {
      ** Merging quietly to suppress messages about recasting of variables from, for example, int to long
      quietly merge newid using /homes/nber/jroth/bulk/ces/fmli`i', _merge(_`i')
      tab _`i'
      assert _`i' <3
      sort newid
      ** # of records should be increasing with each merge to test newid uniqueness
      quietly describe
      assert `r(N)' > `last_n'
      local last_n `r(N)' 
   }
clear
}