**file:  pops02c.sps 12-29-2003 Syntax for FY 2002  RUN THIS SYNTAX BEFORE ANY OTHER.
***creates subpopulations from annual "c" file from FY2002
***then merges inc1st and entry files to create "served" file

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

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

get file 'C:\cfsr\EZdata\EZfy02c.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\EZinc1st02c.sav'.
execute.

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

get file 'C:\cfsr\EZdata\EZinc1st02c.sav'.
ADD FILES /FILE=*
 /FILE='C:\cfsr\EZdata\EZentry02c.sav'.
EXECUTE.
save outfile='C:\cfsr\EZdata\EZserved02c.sav'.
execute.