***The syntax below creates subpopulations from annual AFCARS file FY1998 (98C)
***then merges inc1st and entry files to create "served" file
***SYNTAX FOR 1999 FOUND AT THE END OF THE 1998 SYNTAX


**********************************************************
*SYNTAX TO CREATE 1998 SUBPOPULATIONS*
**********************************************************


get file 'c:\FY98C.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) <= 151927).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 151563).
SAVE OUTFILE='c:\exits98c.sav'.
EXECUTE .

get file 'c:\FY98C.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 151927).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) >= 151563).
SAVE OUTFILE='c:\entry98c.sav'.
EXECUTE .

get file 'c:\FY98C.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 151562).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 151563 | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\inc1st98c.sav'.
execute.

get file 'c:\FY98C.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 151927).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 151928 | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\inc98c.sav'.
execute.

get file 'c:\inc1st98c.sav'.
ADD FILES /FILE=*
 /FILE='c:\entry98c.sav'.
EXECUTE.
save outfile='c:\served98c.sav'.
execute.


**********************************************************
*SYNTAX TO CREATE 1999 SUBPOPULATIONS*
**********************************************************


get file 'c:\fy99c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) <= 152292).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 151928).
SAVE OUTFILE='c:\exits99c.sav'.
EXECUTE .

get file 'c:\fy99c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 152292).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) >= 151928).
SAVE OUTFILE='c:\entry99c.sav'.
EXECUTE .

get file 'c:\fy99c.sav'.
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(latremyr,latremmo,latremda) <= 151927).
EXECUTE .
FILTER OFF.
USE ALL.
SELECT IF(YRMODA(dodfcyr,dodfcmo,dodfcda) >= 151928 | MISSING(dodfcyr) &
  MISSING(dodfcmo) & MISSING(dodfcda)).
save outfile='c:\inc1st99c.sav'.
execute.

get file 'c:\fy99c.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:\inc99c.sav'.
execute.

get file 'c:\inc1st99c.sav'.
ADD FILES /FILE=*
 /FILE='c:\entry99c.sav'.
EXECUTE.
save outfile='c:\served99c.sav'.
execute.