* This syntax creates frequency tables showing the offense types reported in conjunction with drug offenses.


get file='Directory:\Path\00Offense.sav' .
SORT CASES BY
  ori (A) inc_num (A) .

IF (off_code = '200') arson = 1 .
IF (off_code = '13A') aggasslt = 1 .
IF (off_code = '13B') smpasslt = 1 .
IF (off_code = '13C') intim = 1 .
IF (off_code = '510') brib = 1 .
IF (off_code = '220') burg = 1 .
IF (off_code = '250') forg = 1 .
IF (off_code = '290') vand = 1 .
IF (off_code = '35A') drug = 1 .
IF (off_code = '35B') d_equip = 1 .
IF (off_code = '270') embez = 1 .
IF (off_code = '210') extort = 1 .
IF (off_code = '26A') swind = 1 .
IF (off_code = '26B') atmfrd = 1 .
IF (off_code = '26C') impers = 1 .
IF (off_code = '26D') welfrd = 1 .
IF (off_code = '26E') wirefrd = 1 .
IF (off_code = '39A') bett = 1 .
IF (off_code = '39B') gamb = 1 .
IF (off_code = '39C') gam_eq = 1 .
IF (off_code = '39D') sports = 1 .
IF (off_code = '09A') mur = 1 .
IF (off_code = '09B') neghom = 1 .
IF (off_code = '09C') jushom = 1 .
IF (off_code = '100') kidnap = 1 .
IF (off_code = '23A') pocpik = 1 .
IF (off_code = '23B') purse = 1 .
IF (off_code = '23C') shoplft = 1 .
IF (off_code = '23D') tft_bld = 1 .
IF (off_code = '23E') tft_mac = 1 .
IF (off_code = '23F') tft_auto = 1 .
IF (off_code = '23G') tft_prts = 1 .
IF (off_code = '23H') oth_larc = 1 .
IF (off_code = '240') mvt = 1 .
IF (off_code = '370') porno = 1 .
IF (off_code = '40A') prost = 1 .
IF (off_code = '40B') ast_prst = 1 .
IF (off_code = '120') rob = 1 .
IF (off_code = '11A') rape = 1 .
IF (off_code = '11B') sod = 1 .
IF (off_code = '11C') sex_obj = 1 .
IF (off_code = '11D') fondl = 1 .
IF (off_code = '36A') incest = 1 .
IF (off_code = '36B') st_rape = 1 .
IF (off_code = '280') st_prop = 1 .
IF (off_code = '520') wpns = 1 .

EXECUTE .

save outfile='Directory:\Path\00Offense.sav' .


AGGREGATE
  /OUTFILE='Directory:\Path\offense_ori.sav'
  /BREAK=ori inc_num
  /arson = MEAN(arson) /aggasslt = MEAN(aggasslt) /smpasslt = MEAN(smpasslt) /intim = MEAN(intim)
 /brib = MEAN(brib) /burg = MEAN(burg) /forg = MEAN(forg) /vand =
  MEAN(vand) /drug = MEAN(drug) /d_equip = MEAN(d_equip) /embez = MEAN(embez)
  /extort = MEAN(extort) /swind = MEAN(swind) /atmfrd = MEAN(atmfrd)
 /impers = MEAN(impers) /welfrd = MEAN(welfrd) /wirefrd = MEAN(wirefrd)
 /bett = MEAN(bett) /gamb = MEAN(gamb) /gam_eq = MEAN(gam_eq) /sports =
  MEAN(sports) /mur = MEAN(mur) /neghom = MEAN(neghom) /jushom =
  MEAN(jushom) /kidnap = MEAN(kidnap) /pocpik = MEAN(pocpik) /purse =
  MEAN(purse) /shoplft = MEAN(shoplft) /tft_bld = MEAN(tft_bld) /tft_mac =
  MEAN(tft_mac) /tft_auto = MEAN(tft_auto)  /tft_prts = MEAN(tft_prts) /oth_larc = 
  MEAN(oth_larc) /mvt =  MEAN(mvt) /porno = MEAN(porno) /prost = MEAN(prost) /ast_prst =
  MEAN(ast_prst) /rob = MEAN(rob) /rape = MEAN(rape) /sod = MEAN(sod)
 /sex_obj = MEAN(sex_obj) /fondle = MEAN(fondl) /incest = MEAN(incest)
 /st_rape = MEAN(st_rape) /st_prop = MEAN(st_prop) /wpns = MEAN(wpns).


get file='Directory\Path\00Admin.sav'.
SORT CASES BY
  ori (A) inc_num (A) .

MATCH FILES /FILE=*
 /FILE='Directory:\Path\offense_ori.sav'
 /BY ori inc_num.
EXECUTE.
SORT CASES BY
  ori (A) inc_num (A) .

FILTER OFF.
USE ALL.
SELECT IF(ibr_rec = '01').
EXECUTE .
 
save outfile='Directory:\Path\00admin_offenses.sav'.

compute num_off=sum(mur,aggasslt,smpasslt,intim,kidnap,rape,sod,sex_obj,fondle,incest,st_rape,arson,
bribe,burg,forg,vand,embez,extort,swind,atmfrd,impers,welfrd,wirefrd,pocpik,purse,shoplft,tft_bld,tft_mac,
tft_auto,tft_prts,oth_larc,mvt,rob,st_prop,drug,d_equip,bett,gamb,gam_eq,sports,porno,prost,ast_prst,wpns).
execute .

IF (mur > 0 | aggasslt > 0 | smpasslt > 0 | intim > 0 | kidnap > 0 |
  rape > 0 | sod > 0 | sex_obj > 0 | fondle > 0 | incest > 0 |
  st_rape > 0) person = 1 .
IF (arson > 0 | bribe > 0 | burg > 0 | forg > 0 | vand > 0 |
  embez > 0 | extort > 0 | swind > 0 | atmfrd > 0 | impers > 0 |
  welfrd > 0 | wirefrd > 0 | pocpik > 0 | purse > 0 | shoplft > 0 |
  tft_bld > 0 | tft_mac > 0 | tft_auto > 0 | tft_prts > 0 | oth_larc > 0 |
  mvt > 0 | rob > 0 | st_prop > 0 ) property = 1 .
IF (drug > 0 | d_equip > 0 | bett > 0 | gamb > 0 | gam_eq > 0 |
  sports > 0 | porno > 0 | prost > 0 | ast_prst > 0 | wpns > 0 ) society = 1 .
EXECUTE .

IF (person = 1 & sysmis(property) & sysmis(society)) cr_type = 1.
IF (property = 1 & sysmis(person) & sysmis(society)) cr_type = 2.
IF (society = 1 & sysmis(person) & sysmis(property)) cr_type = 3.
IF (person = 1 & property = 1 & sysmis(society)) cr_type = 4.
IF (person = 1 & sysmis(property) & society = 1) cr_type = 5.
IF (sysmis(person) & property = 1 & society = 1) cr_type = 6.
IF (person = 1 & property = 1 & society = 1) cr_type = 7.
execute .

value labels cr_type
1 'Person Only' 2 'Property Only' 3 'Society Only' 4 'Person and Property' 5 'Person and Society' 
6 'Property and Society' 7 'All'.


USE ALL.
COMPUTE filter_$=(drug = 1).
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

frequencies
   variables=num_off.

use all.
compute filter_$=(drug = 1 and num_off >1).
format filter_$ (f1).
filter by filter_$.
execute .

frequencies 
   variables=cr_type.