* Type of weapon/force used to commit rapes by 
  relationship of offender to victim.


GET FILE='Directory\Path\NIBRS victim segment.sav'.
SELECT IF (msvoff = 110).
SORT CASES BY ori inc_num vic_num.
SAVE OUTFILE = 'Directory\Path\victim_rape.sav'
  /KEEP = ori inc_num vic_num ovr1 ovr2 ovr3 ovr4 ovr5 
          ovr6 ovr7 ovr8 ovr9 ovr10 msvoff. 

GET FILE='Directory\Path\NIBRS offense segment.sav'.
SELECT IF (offense = 110).
SORT CASES BY ori inc_num.
SAVE OUTFILE = 'Directory\Path\offense_rape.sav' 
  /KEEP = ori inc_num weapon1 weapon2 weapon3. 


MATCH FILES /TABLE=*
 /FILE='Directory\Path\victim_rape.sav'
 /BY ori inc_num.

DO REPEAT ovr = ovr1 to ovr10/
   ovrrcd = ovrrcd1 to ovrrcd10.
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 ovrrcd.
END REPEAT.
VALUE LABELS ovrrcd1 to ovrrcd10
    1 'Family member'
    2 'Known, nonfamily' 
    3 'Stranger'
    4 'Relationship not identified'/
 ovr1 to ovr10
  'SE' 'Spouse'
  'CS' 'Common-law Spouse'
  'PA' 'Child'
  'SB' 'Sibling'
  'CH' 'Parent'
  'GP' 'Grandchild'
  'GC' 'Grandparent'
  'IL' 'In-law'
  'SP' 'Stepchild'
  'SC' 'Stepparent'
  'SS' 'Stepsibling'
  'OF' 'Other Family Member'
  'VO' 'Offender'
  'AQ' 'Acquaintance'
  'FR' 'Friend'
  'NE' 'Neighbor'
  'BE' 'Babysitter'
  'BG' 'Boyfriend/Girlfriend'
  'CF' 'Parent's Boyfriend/Girlfriend'
  'HR' 'Homosexual Relationship'
  'XS' 'Ex-Spouse'
  'EE' 'Employer'
  'ER' 'Employee'
  'OK' 'Otherwise Known'
  'RU' ' '
  'ST' ' '.
RECODE weapon1 to weapon3 
  ('40' = 1)
  ('11','12','13','14','15' = 2)
  ('20' = 3)
  ('95','99' = 5)
  (else = 4)INTO wpn1 to wpn3.
VALUE LABELS wpn1 to wpn3
  1 'Physical force only'
  2 'Gun'
  3 'Knife'
  4 'Other known'
  5 'None reported'.

TEMPORARY.
  VARIABLE LABELS ovrrcd1 '' ovr1 '' vic_num '' wpn1 '' .
TABLES
  /FORMAT BLANK MISSING('.')
  /OBSERVATION= vic_num
  /GBASE=CASES
  /FTOTAL= $t000006 "Total"
  /TABLE=ovrrcd1 > ovr1 + $t000006  BY vic_num + wpn1
  /STATISTICS
  validn( vic_num( F5.0 ) 'Number of Cases')
  cpct( wpn1( PCT5.1 ) '':ovrrcd1 ovr1 )
  /TITLE  'Type of weapon/force used to commit rapes ' 
          'by relationship of offender to victim'.