**file:  pops00c.sps       Last updated:  7-19-01
***creates subpopulations from annual "c" file from FY2000
***then merges inc1st and entry files to create "served" file

get file 'c:\cfsr\EZdata\EZfy00c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) <= 152658).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 152293).
SAVE OUTFILE='c:\cfsr\EZdata\EZexits00c.sav'.
EXECUTE .

get file 'c:\cfsr\EZdata\EZfy00c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 152658).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) >= 152293).
SAVE OUTFILE='c:\cfsr\EZdata\EZentry00c.sav'.
EXECUTE .

get file 'c:\cfsr\EZdata\EZfy00c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 152292).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 152293 | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\cfsr\EZdata\EZinc1st00c.sav'.
execute.

get file 'c:\cfsr\EZdata\EZfy00c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 152658).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 152659 | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\cfsr\EZdata\EZinc00c.sav'.
execute.

get file 'c:\cfsr\EZdata\EZinc1st00c.sav'.
ADD FILES /FILE=*
 /FILE='C:\cfsr\EZdata\EZentry00c.sav'.
EXECUTE.
save outfile='c:\cfsr\EZdata\EZserved00c.sav'.
execute.