* Time of Juvenile Firearm Violence During the School Year.

GET FILE='Directory\Path\Incident 1999.sav'.

COMPUTE viol_off = 0.
IF (msioff le 130) viol_off = 1.
 
TEMPORARY.
SELECT IF (off1017 GE 1 AND viol_off = 1 AND firearm ge 1).
SAVE OUTFILE='Directory\Path\Juv viol firearm incidents.sav'.
GET FILE= 'Directory\Path\Juv viol firearm incidents.sav'.
USE ALL.
COMPUTE filter_$=(((inc_mo >= 1 & inc_mo <= 6) or (inc_mo >= 9 & inc_mo <= 12)) 
   and rptdate = ' ').
VARIABLE LABEL filter_$ '(inc_mo >= 1 & inc_mo <= 6) or (inc_mo >= 9 & inc_mo'+
 ' <= 12) (FILTER)'.
VALUE LABELS filter_$  0 'Not Selected' 1 'Selected'.
FORMAT filter_$ (f1.0).
FILTER BY filter_$.

COMPUTE wkday = XDATE.WKDAY(DATE.DMY(inc_dy,inc_mo,inc_yr)) .
VALUE LABELS wkday 1 'Sunday'
   2 'Monday'
   3 'Tuesday'
   4 'Wednesday'
   5 'Thursday'
   6 'Friday'
   7 'Saturday'.

COMPUTE weekend = 1.
IF (wkday ge 2 and wkday le 6)weekend = 2.
VALUE LABELS weekend
   1 'Weekend' 2 'Weekday'.

DO IF (rptdate = ' ').
RECODE inc_hr (0 thru 6 = 1)(7 = 2)(8 thru 11 = 3)
   (12 thru 14 = 4)(15 thru 17 = 5)(18 thru 20 = 6)(21 thru 23 = 7)into time.
END IF.
VALUE LABELS time 1 'Mid - 6:59 AM'
   2 '7 AM - 7:59 AM'
   3 '8 AM - 11:59 AM'
   4 'Noon - 2:59 PM'
   5 '3 PM - 5:59 PM'
   6 '6 PM - 8:59 PM'
   7 '9 PM - 11:59 PM'.

TABLES
  /FORMAT BLANK MISSING('.')
  /GBASE=CASES
  /FTOTAL= $t000002 "Total" $t000001 "Total"
  /TABLE=time + $t000002  BY weekend + $t000001
  /STATISTICS
  COUNT( weekend( F5.0 ))
  CPCT( weekend( PCT5.1 ) 'Col %':weekend )
  /TITLE  'Time of Juvenile Firearm Violence During the School Year' '(Calendar Year 1999)'.