*Types of Property Stolen from Juvenile and Adult Victims.

GET FILE='Directory\Path\NIBRS victim segment.sav'/KEEP =
   ori inc_num vic_num v_type v_age msvoff.
SELECT IF (v_type = 'I' and (msvoff = 120 or
   msvoff = 140 or (msvoff ge 160 and msvoff le 167))).
SORT CASES BY ori inc_num vic_num. 
SAVE OUTFILE = 'Directory\Path\victims_property.sav'.
GET FILE='Directory\Path\NIBRS property segment.sav'/KEEP =
   ori inc_num losstype p_desc.
VALUE LABELS losstype
  '1' 'None'
  '2' 'Burned'
  '3' 'Counterfeited/forged'
  '4' 'Destroyed/damaged/vandalized'
  '5' 'Recovered'
  '6' 'Seized'
  '7' 'Stolen/etc.'
  '8' 'Unknown'.
SELECT IF (losstype = '7').
SORT CASES BY ori inc_num.
SAVE OUTFILE = 'Directory\Path\property_stolen.sav'.
COMPUTE prop_rec = 1.
IF (ori = lag(ori) and inc_num = lag(inc_num))prop_rec = lag(prop_rec) + 1.

STRING p_desc1 to p_desc10 (a2).
IF (prop_rec = 1)p_desc1 = p_desc.
IF (prop_rec = 2)p_desc2 = p_desc.
IF (prop_rec = 3)p_desc3 = p_desc.
IF (prop_rec = 4)p_desc4 = p_desc.
IF (prop_rec = 5)p_desc5 = p_desc.
IF (prop_rec = 6)p_desc6 = p_desc.
IF (prop_rec = 7)p_desc7 = p_desc.
IF (prop_rec = 8)p_desc8 = p_desc.
IF (prop_rec = 9)p_desc9 = p_desc.
IF (prop_rec = 10)p_desc10 = p_desc.
EXECUTE.
MISSING VALUES p_desc1 to p_desc10 ('  ').
AGGREGATE
  /OUTFILE='Directory\Path\Property Incident Unit.sav'
  /PRESORTED
  /BREAK=ori inc_num
  /p_desc1 = FIRST(p_desc1)
  /p_desc2 = FIRST(p_desc2)
  /p_desc3 = FIRST(p_desc3)
  /p_desc4 = FIRST(p_desc4)
  /p_desc5 = FIRST(p_desc5)
  /p_desc6 = FIRST(p_desc6)
  /p_desc7 = FIRST(p_desc7)
  /p_desc8 = FIRST(p_desc8)
  /p_desc9 = FIRST(p_desc9)
  /p_desc10 = FIRST(p_desc10).

GET FILE = 'Directory\Path\victims_property.sav'.
MATCH FILES /FILE=*
 /TABLE='Directory\Path\Property Incident Unit.sav'
 /BY ori inc_num.
COMPUTE agegrp = 0.
IF (v_age ge 12 and v_age le 17)agegrp = 1.
IF (v_age ge 18 and v_age le 98)agegrp = 2.
VALUE LABELS agegrp 
  1 'Juveniles' 2 'Adults'.
MISSING VALUES agegrp(0).
VALUE LABELS p_desc1 to p_desc10
 '01' 'Aircraft'
 '02' 'Alcohol'
 '03' 'Automobiles'
 '04' 'Bicycles'
 '05' 'Buses'
 '06' 'Clothes/Furs'
 '07' 'Computer Hardware/Software'
 '08' 'Consumable Goods'
 '09' 'Credit/Debit Cards'
 '10' 'Drugs/Narcotics'
 '11' 'Drug/Narcotic Equipment'
 '12' 'Farm Equipment'
 '13' 'Firearms'
 '14' 'Gambling Equipment'
 '15' 'Heavy Construction/Industrial Equipment'
 '16' 'Household Goods'
 '17' 'Jewelry/Precious Metals'
 '18' 'Livestock'
 '19' 'Merchandise'
 '20' 'Money'
 '21' 'Negotiable Instruments'
 '22' 'Nonnegotiable Instruments'
 '23' 'Office-type Equipment'
 '24' 'Other Motor Vehicles'
 '25' 'Purses/Handbags/Wallets'
 '26' 'Radios/TVs/VCRs'
 '27' 'Recordings-Audio/Visual'
 '28' 'Recreational Vehicles'
 '29' 'Structures-Single Occupancy Dwellings'
 '30' 'Structures-Other Dwellings'
 '31' 'Structures-Other Commercial/Business'
 '32' 'Structures-Industrial/Manufacturing'
 '33' 'Structures-Public/Community'
 '34' 'Structures-Storage'
 '35' 'Structures-Other'
 '36' 'Tools'
 '37' 'Trucks'
 '38' 'Vehicle Parts/Accessories'
 '39' 'Watercraft'
 '77' 'Other'
 '88' 'Pending Inventory'
 '99' 'Special Category'
 '00' 'Default'.

TEMPORARY.
  VARIABLE LABELS agegrp '' .
TABLES
  /FORMAT BLANK MISSING('.') 
  /MRGROUP  $p_desc ' '  p_desc1 p_desc2 p_desc3
  p_desc4 p_desc5 p_desc6 p_desc7 p_desc8 p_desc9 p_desc10
  /GBASE=CASES
  /TABLE=$p_desc  BY agegrp > (STATISTICS)
  /STATISTICS rpct( $p_desc( PCT6.2 ) 'Percentage of Items':agegrp )
  /SORT=D $p_desc
  /TITLE  'Types of Property Stolen from Juvenile and Adult Victims'
  /CORNER  'Property Stolen'.