* JRSA syntax file to replicate FBI's drug offense graphs.


get file='Directory:\Path\00Offense.sav'.


*Select the drug-related offenses.

FILTER OFF.
USE ALL.
SELECT IF(off_code = '35A' | off_code = '35B').
EXECUTE .

save outfile='Directory:\Path\drug.sav'.


* Identify user- and dealer-related offenses.

IF (crimact1 = 'U' | crimact1 = 'B' | crimact2 = 'U' | crimact2 = 'B' |
  crimact3 = 'U' | crimact3 = 'B') type = 1 .
IF (crimact1 = 'D' | crimact2 = 'D' | crimact3 = 'D') type = 2 .
EXECUTE .

value labels type
1 'user' 2 'dealer'.


* Create a variable showing offense month.

STRING date (A8).
COMPUTE date = STRING(inc_date,F8) .
EXECUTE .

STRING month (A8).
COMPUTE month = SUBSTR(date,5,2) .
EXECUTE .

value labels month
01 'Jan' 02 'Feb' 03 'Mar' 04 'April' 05 'May' 06 'June' 07 'July' 08 'Aug' 09 'Sept' 10 'Oct' 11 'Nov' 12 ' Dec'.


* Run frequencies to look at the number of offenses and criminal activity types.

FREQUENCIES
  VARIABLES=off_code
  /ORDER=  ANALYSIS .
FREQUENCIES
  VARIABLES=crimact1 crimact2 crimact3
  /ORDER=  ANALYSIS .


* Create your graphs.

USE ALL.
COMPUTE filter_$=(type = 1).
VARIABLE LABEL filter_$ 'type = 1 (FILTER)'.
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

GRAPH
  /LINE(SIMPLE)=COUNT BY month
  /MISSING=REPORT
  /TITLE= 'User-Related Drug Activity'.

USE ALL.
COMPUTE filter_$=(type = 2).
VARIABLE LABEL filter_$ 'type = 2 (FILTER)'.
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.
EXECUTE .

GRAPH
  /LINE(SIMPLE)=COUNT BY month
  /MISSING=REPORT
  /TITLE= 'Dealer-Related Drug Activity'.

USE ALL.
GRAPH
  /LINE(MULTIPLE)=COUNT BY month BY type
  /TITLE= 'Monthly Drug Activity'.