*** 2001 terminations data

                                                                           
* SPSS DATA LIST COMMMAND.                                                 
                                                                           
DATA LIST FILE='C:\\TechnicalAppendix\da3415cv.term' /                                      
   CIRCUIT 1-2              DISTRICT 3-4 (A)         OFFICE 5-5 (A)        
   DOCKET 6-12 (A)          ORIGIN 13-14             FILEDATE 15-24 (A)    
   JURIS 25-25              NOS 26-28                TITL 29-31 (A)       
   SECTIO 32-34 (A)        SUBSECT 35-36 (A)        RESIDENC 37-38        
   CLASSACT 39-40           DEMANDED 41-44           FILEJUDG 45-46 (A)    
   FILEMAG 47-48 (A)        COUNTY 49-53          ARBIT 54-55 (A)       
   MDLDOCK 56-59 (A)        PLT 60-89 (A)            DEF 90-119 (A)        
   TRANSDAT 120-129 (A)     TRANSOFF 130-131 (A)     TRANSDOC 132-138 (A)  
   TRANSORG 139-140 (A)     TERMDAT 141-150 (A)     TRCLACT 151-152       
   TERMJUDG 153-154 (A)     TERMMAG 155-156 (A)      PROCPROG 157-158      
   DISP 159-160          NOJ 161-162              AMTREC 163-166        
   JUDGMENT 167-168         TRMARB 169-170 (A)       PROSE 171-172         
   IFP 173-174 (A)          TAPEYEAR 175-178.                              
                                                                           
STRING section (a4).
COMPUTE section = sectio.

RENAME VARIABLES
	origin = source
	juris = jurisd
	classact = class
	demanded = demand
	plt = plaint
	def = defend
	trclact = termcact
	procprog = proced87
	disp = disp87
	amtrec = award
	judgment = judgefor
.
FILTER OFF.
USE ALL.
SELECT IF(nos > 499 & nos < 600).

NUMERIC termmo(f2.0).
NUMERIC termdy(f2.0).
NUMERIC rtermyr(f4.0).
NUMERIC termyr(f2.0).
NUMERIC filingmo(f2.0).
NUMERIC filingdy(f2.0).
NUMERIC rfileyr(f4.0).
NUMERIC filingyr(f2.0).
COMPUTE termmo = number(substr(termdat,1,2),f2.0).
COMPUTE termdy = number(substr(termdat,4,2),f2.0).
COMPUTE rtermyr = number(substr(termdat,7,4),f4.0).
COMPUTE termyr = number(substr(termdat,9,2),f2.0).
COMPUTE filingmo = number(substr(filedate,1,2),f2.0).
COMPUTE filingdy = number(substr(filedate,4,2),f2.0).
COMPUTE rfileyr = number(substr(filedate,7,4),f4.0).
COMPUTE filingyr = number(substr(filedate,9,2),f2.0).

COMPUTE  termdate = (termyr*10000)+(termmo*100)+(termdy) .
COMPUTE filing = (filingyr*10000)+(filingmo*100)+(filingdy) .

COMPUTE aofileyr = -9 .
COMPUTE aofilemo = -9 .
COMPUTE aotermyr  = -9 .
COMPUTE aotermmo  = -9 .

COMPUTE year = 2001 .
COMPUTE circuit2 = 99 .
COMPUTE class2 = -9 .
COMPUTE disp70 = -9 .
COMPUTE disp79 = -9 .
COMPUTE proced70 = -9 .
COMPUTE proced76 = -9 .

COMPUTE style = -9 .
COMPUTE maginv = -9 .
COMPUTE otherinv = -9 .
COMPUTE aoterm = -9 .
COMPUTE aofile = -9 .

EXECUTE.

save outfile='C:\\TechnicalAppendix\2001.sav'
	/keep = year circuit circuit2 district office docket filingyr filingmo filingdy filing jurisd nos
	 source class class2 demand county termyr termmo termdy termdate aofileyr
	 aofilemo aofile disp70 disp79  disp87 proced70 proced76 proced87 noj award judgefor maginv otherinv
	 aotermyr aotermmo aoterm termcact prose tapeyear titl section subsect plaint defend.