* Relationship of offender to victim in personal robberies
  by age of victim, and race of offender and victim.

GET FILE='Directory\Path\NIBRS victim segment.sav'.
SELECT IF (v_type = 'I' and msvoff = 120).
SAVE OUTFILE = 'Directory\Path\Personal robberies.sav'/keep = 
   ori inc_num vic_num v_age v_race ofnseq1 ofnseq2 ofnseq3 ofnseq4 ofnseq5 
   ofnseq6 ofnseq7 ofnseq8 ofnseq9 ofnseq10 
   ovr1 ovr2 ovr3 ovr4 ovr5 ovr6 ovr7 ovr8 ovr9 ovr10 msvoff. 
GET FILE = 'Directory\Path\Personal robberies.sav'.

SORT CASES BY ori inc_num vic_num.
DO IF (ofnseq1 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq1.sav'
  /DROP = ofnseq2 to ofnseq10 ovr2 to ovr10
  /RENAME = (ofnseq1 ovr1 =ofnseq ovr).
END IF.
DO IF (ofnseq2 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq2.sav'
  /DROP = ofnseq1 ofnseq3 to ofnseq10 ovr1 ovr3 to ovr10
  /RENAME = (ofnseq2 ovr2 =ofnseq ovr).
END IF.
DO IF (ofnseq3 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq3.sav'
  /DROP = ofnseq1 ofnseq2 ofnseq4 to ofnseq10
          ovr1 ovr2 ovr4 to ovr10
  /RENAME = (ofnseq3 ovr3 =ofnseq ovr).
END IF.
DO IF (ofnseq4 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq4.sav'
  /DROP = ofnseq1 to ofnseq3 ofnseq5 to ofnseq10
          ovr1 to ovr3 ovr5 to ovr10
  /RENAME = (ofnseq4 ovr4 =ofnseq ovr).
END IF.
DO IF (ofnseq5 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq5.sav'
  /DROP = ofnseq1 to ofnseq4 ofnseq6 to ofnseq10
          ovr1 to ovr4  ovr6 to ovr10
  /RENAME = (ofnseq5 ovr5 =ofnseq ovr).
END IF.
DO IF (ofnseq6 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq6.sav'
  /DROP = ofnseq1 to ofnseq5 ofnseq7 to ofnseq10
          ovr1 to ovr5 ovr7 to ovr10
  /RENAME = (ofnseq6 ovr6 =ofnseq ovr).
END IF.
DO IF (ofnseq7 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq7.sav'
  /DROP = ofnseq1 to ofnseq6 ofnseq8 to ofnseq10
          ovr1 to ovr6 ovr8 to ovr10

  /RENAME = (ofnseq7 ovr7 =ofnseq ovr).
END IF.
DO IF (ofnseq8 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq8.sav'
  /DROP = ofnseq1 to ofnseq7 ofnseq9 to ofnseq10
          ovr1 to ovr7 ovr9 to ovr10
  /RENAME = (ofnseq8 ovr8 = ofnseq ovr).
END IF.
DO IF (ofnseq9 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq9.sav'
  /DROP = ofnseq10 ofnseq1 to ofnseq8 ovr10 ovr1 to ovr8
  /RENAME = (ofnseq9 ovr9 =ofnseq ovr).
END IF.
DO IF (ofnseq10 gt 0).
XSAVE OUTFILE = 'Directory\Path\ofnseq10.sav'
  /DROP = ofnseq1 to ofnseq9 ovr1 to ovr9
  /RENAME = (ofnseq10 ovr10 =ofnseq ovr).
END IF.
EXECUTE.

ADD FILES /FILE= 'Directory\Path\ofnseq1.sav'
 /FILE= 'Directory\Path\ofnseq2.sav'
 /FILE= 'Directory\Path\ofnseq3.sav'
 /FILE= 'Directory\Path\ofnseq4.sav'
 /FILE= 'Directory\Path\ofnseq5.sav'
 /FILE= 'Directory\Path\ofnseq6.sav'
 /FILE= 'Directory\Path\ofnseq7.sav'
 /FILE= 'Directory\Path\ofnseq8.sav'
 /FILE= 'Directory\Path\ofnseq9.sav'
 /FILE= 'Directory\Path\ofnseq10.sav'.
SORT cases by ori inc_num ofnseq vic_num.
SAVE OUTFILE = 'Directory\Path\vofnseq.sav'.

MATCH FILES /FILE=*
 /TABLE = 'Directory\Path\NIBRS offender segment.sav'
 /BY ori inc_num ofnseq.

COMPUTE v_agegrp = 0.
IF (v_age GT 0 and v_age LT 18)v_agegrp = 1.
IF (v_age GE 18 AND v_age LT 30)v_agegrp = 2.
IF (v_age GE 30 AND v_age LT 99)v_agegrp = 3.
VARIABLE LABELS v_agegrp 'Age of Victim'.
VALUE LABELS v_agegrp
  1 'Under 18'
  2 '18-29'
  3 '30 or older'.
MISSING VALUES v_agegrp(0).

COMPUTE ov_race = 0.
IF (off_race = 'B' and v_race = 'B')ov_race = 1.
IF (off_race = 'W' and v_race = 'W')ov_race = 2.
IF (off_race = 'B' and v_race = 'W')ov_race = 3.
IF (off_race = 'W' and v_race = 'B')ov_race = 4.
VARIABLE LABELS ov_race 'Race of offender/victim'.
VALUE LABELS ov_race
  1 'Black/black'
  2 'White/white'
  3 'Black/white'
  4 'White/black'.
MISSING VALUES ov_race(0).

RECODE
  ovr ('SE','CS','PA','SB','CH','GP',
       'GC','IL','SP','SC','SS','OF','XS' = 1)
      ('AQ','FR','NE','BE','CF','XS','OK'
       'BG','HR','EE','ER','VO' = 2 )
      ('ST' = 3) 
      ('RU' = 4)INTO ovr_rcd.
VALUE LABELS ovr_rcd
    1 'Family member'
    2 'Nonfamily' 
    3 'Stranger'
    4 'Relationship not identified'.
RECODE ovr_rcd (1,2 = 1)(3,4 = 2)INTO ovr_rcd2.
VALUE LABELS ovr_rcd2 
    1 'Known to Victim'
    2 ' '.
VARIABLE LABELS ovr_rcd2  'Relationship of offender to victim'.


* General Tables.
TEMPORARY.
  VARIABLE LABELS ov_race '' ovr_rcd '' .
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000003 "Total" $t000004 "Total" $t000005 "Total"
  /TABLE=v_agegrp + $t000003 + ov_race + $t000004  BY ovr_rcd2 > ( ovr_rcd +
  $t000005  )
  /STATISTICS
  cpct( ovr_rcd( PCT5.0 ) '':v_agegrp ov_race )
  /TITLE  'Relationship of offender to victim in personal robberies'+
 ' by age of victim, and race of offender and victim'.
.