**file:  EZpops01c.sps   12-29-2003 FY2001 syntax to create the subpopulations needed to run the data profile
***creates subpopulations (entries, exits, etc.) from annual "c" file from FY2001
***then merges inc1st and entry files to create "served" file

get file 'c:\cfsr\EZdata\EZfy01c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) <= yrmoda(2001,09,30)).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= yrmoda(2000,10,01)).
SAVE OUTFILE='c:\cfsr\EZdata\EZexits01c.sav'.
EXECUTE .

get file 'c:\cfsr\EZdata\EZfy01c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= yrmoda(2001,09,30)).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) >= yrmoda(2000,10,01)).
SAVE OUTFILE='c:\cfsr\EZdata\EZentry01c.sav'.
EXECUTE .

get file 'c:\cfsr\EZdata\EZfy01c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= yrmoda(2000,09,30)).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= yrmoda(2000,10,01) | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\cfsr\EZdata\EZinc1st01c.sav'.
execute.

get file 'c:\cfsr\EZdata\EZfy01c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= yrmoda(2001,09,30)).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= yrmoda (2001,10,01) | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\cfsr\EZdata\EZinc01c.sav'.
execute.

get file 'c:\cfsr\EZdata\EZinc1st01c.sav'.
ADD FILES /FILE=*
 /FILE='c:\cfsr\EZdata\EZentry01c.sav'.
EXECUTE.
save outfile='c:\cfsr\EZdata\EZserved01c.sav'.
execute.