* Comparison of Personal Weapons vs. Firearms 
* for Selected Offenses on School Property.

GET FILE='Directory\Path\NIBRS offense segment.sav'.

SELECT IF (offense le 130).
SORT CASES BY ori inc_num offense.
SAVE OUTFILE='Directory\Path\violent offenses.sav'.
MATCH FILES /FILE=*
 /TABLE='Directory\Path\NIBRS Incident file.sav'
 /BY ori inc_num
 /DROP= att_comp autowpn1 autowpn2 autowpn3 bias crimact1 crimact2 crimact3
  ibr_rec inc_date inc_dy inc_mo inc_yr meth_ent off_code prem_ent
  st_code suspuse1 suspuse2 suspuse3 aggasl arfemale arr0509 arr1017 arr1524 arr65 
  arr_cnt arradult arrmale asl_arr att_comp bur bur_arr clr_arr clr_excp firearm 
  inc_dy inc_hr inc_mo inc_yr indivl lar lar_arr mur mur_arr mvt mvt_arr
  mvtonly oasl_arr off1017 off1524 off65 off_cnt offadult offemale offmale
  ofns_cnt oth_asl rap rap_arr rob rob_arr rptdate vadult vage1017 vage1524
  vage65 vfemale vic_cnt vic_inj vlt18 vmale. 
SELECT IF (inc_loc = 22 and (offense ge 110 and offense le 130)).
RECODE weapon1
  ('40' = 1)
  ('11','12','13','14','15' = 2)
  (else = sysmis)INTO wpn1.
VARIABLE LABELS wpn1 'Weapon'/
   offense 'Offense'.
VALUE LABELS wpn1
  1 'Personal weapons'
  2 'Firearms'.
USE ALL.
COMPUTE filter_$=(wpn1 > 0).
VARIABLE LABEL filter_$ 'wpn1 > 0 (FILTER)'.
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.

TEMPORARY.
  VARIABLE LABELS offense '' wpn1 '' .
TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000002 "Total"
  /TABLE=offense + $t000002  BY wpn1 > (STATISTICS)
  /STATISTICS cpct( offense( PCT5.1 ) '':offense )
  /TITLE  'Comparison of Personal Weapons vs. Firearms' 
          'for Selected Offenses on School Property'.