*program 1.

* code to import and subset Songer COA data.
* Reads in SPSS portable file cta96.por.
* writes SPSS system file CoAdata.sav.

IMPORT
  FILE='C:\My Documents\research\datasets\judicial\Cta96.por'.

* cutting out data from before 1970.
SELECT IF YEAR GE 1970.

* Culling cases which fail to meet threshold issues.
SELECT IF (late ne 1).
SELECT IF (frivapp ne 1).
SELECT IF (othappth ne 1).

* Correcting erroneous page length.
IF (casenum EQ 591) endpage = 317.

*writing out reduced version of Songer data.
SORT CASES BY CASENUM.
SAVE OUTFILE='C:\My Documents\research\COA_AG\CoAdata.sav'.
EXECUTE .