********************************************************************
* This recodes the offenses in the victim segment from string to
* numeric and determines a most serious victim offense for the
* incident.  There is a call in the wvibrs import syntax for this.
********************************************************************.
do repeat v_off = doff1 to doff10/
          voff = voff1 to voff10.
recode v_off
 ('200' = 200)
 ('13A' = 130)
 ('13B' = 171)
 ('13C' = 172)
 ('510' = 510)
 ('220' = 140)
 ('250' = 250)
 ('290' = 290)
 ('35A' = 350)
 ('35B' = 351)
 ('270' = 270)
 ('210' = 210)
 ('26A' = 260)
 ('26B' = 261)
 ('26C' = 262)
 ('26D' = 263)
 ('26E' = 264)
 ('39A' = 390)
 ('39B' = 391)
 ('39C' = 392)
 ('39D' = 393)
 ('09A' = 90)
 ('09B' = 198)
 ('09C' = 199)
 ('100' = 190)
 ('23A' = 160)
 ('23B' = 161)
 ('23C' = 162)
 ('23D' = 163)
 ('23E' = 164)
 ('23F' = 165)
 ('23G' = 166)
 ('23H' = 167)
 ('240' = 150)
 ('370' = 370)
 ('40A' = 400)
 ('40B' = 401)
 ('120' = 120)
 ('11A' = 110)
 ('11B' = 180)
 ('11C' = 181)
 ('11D' = 182)
 ('36A' = 360)
 ('36B' = 361)
 ('280' = 280)
 ('520' = 520)into voff.
end repeat print.
compute msvoff = min.1(voff1 to voff10).
if (msvoff = 110 and dsex = 'M')msvoff = 183.
value labels msvoff voff1 to voff10
 200 'Arson'
 130 'Aggravated Assault'
 171 'Simple Assault'
 172 'Intimidation'
 510 'Bribery'
 140 'Burglary/Breaking and Entering'
 250 'Counterfeiting/Forgery'
 290 'Destruction/Damage/Vandalism of Property'
 350 'Drug/Narcotics Violations'
 351 'Drug Equipment Violations'
 270 'Embezzlement'
 210 'Extortion/Blackmail'
 260 'False Pretenses/Swindle/Confidence Game'
 261 'Credit Card/Automated Teller Machine Fraud'
 262 'Impersonation'
 263 'Welfare Fraud'
 264 'Wire Fraud'
 390 'Betting/Wagering'
 391 'Operating/Promoting/Assisting Gambling'
 392 'Gambling Equipment Violations'
 393 'Sports Tampering'
 90 'Murder and Nonnegligent Manslaughter'
 198 'Negligent Manslaughter'
 199 'Justifiable Homicide'
 190 'Kidnaping/Abduction'
 160 'Pocket-picking'
 161 'Purse-snatching'
 162 'Shoplifting'
 163 'Theft From Building'
 164 'Theft From Coin-Operated Machine or Device'
 165 'Theft From Motor Vehicle'
 166 'Theft of Motor Vehicle Parts or Accessories'
 167 'All Other Larceny'
 150 'Motor Vehicle Theft'
 370 'Pornography/Obscene Material'
 400 'Prostitution'
 401 'Assisting or Promoting Prostitution'
 120 'Robbery'
 110 'Forcible Rape'
 180 'Forcible Sodomy'
 181 'Sexual Assault With An Object'
 182 'Forcible Fondling'
 183 'Rape of a Male'
 360 'Incest'
 361 'Statutory Rape'
 280 'Stolen Property Offenses'
 520 'Weapon Law Violations'.

Compute INDEX1 = msvoff.
recode index1 (90 = 1)(110 = 2) (120 = 3)
   (130 = 4)(140 = 5)(160 thru 167 = 6)(150 = 7)
   (else = 8).
value labels index1 1 'Murder and Nonnegligent Manslaughter'
 6 'Larceny'
 7 'Motor Vehicle Theft'
 3 'Robbery'
 2 'Forcible Rape'
 4 'Aggravated Assault'
 5 'Burglary'
 8 'All other offenses'.
freq index1.
recode index1 (1 thru 4 = 1)(5 thru 7 = 2)(else = 3)into msvoffgp.
value labels msvoffgp 1 'Person' 2 'Property' 3 'Other'.
MULT RESPONSE
  GROUPS=$voff 'Victim offenses' 
  (voff1 voff2 voff3 voff4 voff5 voff6 voff7 voff8 voff9 voff10 (90,200))
  /FREQUENCIES=$voff  .