*SPSS Download Code*
*Saving Individual Data Segments*


get file = 'Directory and file name from reading ASCII data'.
select if (ibr_rec ne '07').

do if (ibr_rec = '01').
xsave outfile = 'Directory:\Path\Admin segment.sav'/keep = 
   ibr_rec to incoff10.
else if (ibr_rec = '02').
xsave outfile = ''Directory:\Path\offense segment.sav'/keep = 
   ibr_rec to inc_date
   att_comp to bias
   off_code offense.
else if (ibr_rec = '03').
xsave outfile = 'Directory:\Path\property segment.sav'/keep = 
   ibr_rec to inc_date
   losstype to p_off10.
else if (ibr_rec = '04').
xsave outfile = 'Directory:\Path\victim segment.sav'/keep = 
   ibr_rec to inc_date
   vic_num to ovr10
   voff1 to voff10 msvoff v_age.
else if (ibr_rec = '05').
xsave outfile = 'Directory:\Path\offender segment.sav'/keep = 
   ibr_rec to inc_date
   ofnseq to off_race.
else if (ibr_rec = '06').
xsave outfile = 'Directory:\Path\arrestee segment.sav'/keep = 
   ibr_rec to inc_date
   arrseq to arr_clr
   arroff.
else if (ibr_rec = '07').
xsave outfile = 'Directory:\Path\arresteegrpB segment.sav'/keep = 
   ibr_rec to inc_date
   arrseq to arr_disp.
end if.
execute.