***Identifies agencies in metro and nonmetro counties using county codes in the ORI or the 
    complete ORI for state police agencies.  Used on the offense and victim segment files to
    add the metro and popgrp variable.


IF (SUBSTR(ORI,3,3) = "002" or SUBSTR(ORI,3,3) = "003" or SUBSTR(ORI,3,3) = "006"
  or SUBSTR(ORI,3,3) = "008" or SUBSTR(ORI,3,3) = "014" or SUBSTR(ORI,3,3) = "019"
  or SUBSTR(ORI,3,3) = "020" or SUBSTR(ORI,3,3) = "022" or SUBSTR(ORI,3,3) = "026"
  or SUBSTR(ORI,3,3) = "029" or SUBSTR(ORI,3,3) = "031" or SUBSTR(ORI,3,3) = "033"
  or SUBSTR(ORI,3,3) = "035" or SUBSTR(ORI,3,3) = "037" or SUBSTR(ORI,3,3) = "039"
  or SUBSTR(ORI,3,3) = "040" or SUBSTR(ORI,3,3) = "050" or SUBSTR(ORI,3,3) = "053" or
  SUBSTR(ORI,3,3) = "054") metro = 1 .

IF (ORI = "WVWSP2600" or ORI = "WVWSP2400" or ORI = "WVWSP5900" or ORI = "WVWSP1900"
  or ORI = "WVWSP0800" or ORI = "WVWSP4300" or ORI = "WVWSP0500" or ORI = "WVWSP0600"
  or ORI = "WVWSP4600" or ORI = "WVWSP6200" or ORI = "WVWSP8500" or ORI = "WVWSP1600"
  or ORI = "WVWSP3000" or ORI = "WVWSP2000" or ORI = "WVWSP2900" or ORI = "WVWSP0200"
  or ORI = "WVWSP5000" or ORI = "WVWSP4400" or ORI = "WVWSP2100" or ORI = "WVWSP6100" 
  or ORI = "WVWSP5200" or ORI = "WVWSP0900" or ORI = "WVWSP3300" or ORI = "WVWSP8700"
  or ORI = "WVWSP8400" or ORI = "WVWSP0000" or ORI = "WVWSP9200") metro = 1 .

RECODE
  metro  (SYSMIS=0)  .
EXECUTE .

**********************************.

***Separates agencies into designated population groups.


IF (ORI = "WV0200200" or ORI = "WV0060200" or ORI = "WV0540100" or ORI =
  "WV0350100" or ORI = "WV0310100" or ORI = "WV0020100") popgrp = 1 .

IF (ORI = "WV0150200" or ORI = "WV0250100" or ORI = "WV0410100" or ORI =
  "WV0170200" or ORI = "WV0200600" or ORI = "WV0200500" or ORI = "WV0280200"
   or ORI = "WV0540200") popgrp = 2 .

IF (ORI = "WV0260500" or ORI = "WV0170100" or ORI = "WV0200300" or ORI =
  "WV0100500" or ORI = "WV0420100" or ORI = "WV0200400" or ORI = "WV0280300"
  or ORI = "WV0400100" or ORI = "WV0520200" or ORI = "WV0490100" or ORI =
  "WV0460100" or ORI = "WV0290100") popgrp = 3 .

IF (SUBSTR(ORI,6) = "0000" or SUBSTR(ORI,1,5) = "WVWSP") popgrp = 6 .

IF (ORI = "WV0030000" or ORI = "WV0080000" or ORI = "WV0200000" or ORI =
  "WV0220000" or ORI = "WV0400000" or ORI = "WV0290000" or ORI = "WV0020000"
  or ORI = "WV0330000" or ORI = "WV0060000" or ORI = "WV0500000" or ORI =
  "WV0310000" or ORI = "WV0390000" or ORI = "WV0370000" or ORI = "WV0530000" or
  ORI = "WV0540000" or ORI = "WV0190000" or ORI = "WV0260000" or ORI = "WV0350000"
  or ORI = "WV0140000") popgrp = 5 .

IF (ORI = "WVWSP2600" or ORI = "WVWSP2400" or ORI = "WVWSP5900" or ORI = "WVWSP1900"
  or ORI = "WVWSP0800" or ORI = "WVWSP4300" or ORI = "WVWSP0500" or ORI = "WVWSP0600"
  or ORI = "WVWSP4600" or ORI = "WVWSP6200" or ORI = "WVWSP8500" or ORI = "WVWSP1600"
  or ORI = "WVWSP3000" or ORI = "WVWSP2000" or ORI = "WVWSP2900" or ORI = "WVWSP0200"
  or ORI = "WVWSP5000" or ORI = "WVWSP4400" or ORI = "WVWSP2100" or ORI = "WVWSP6100" 
  or ORI = "WVWSP5200" or ORI = "WVWSP0900" or ORI = "WVWSP3300" or ORI = "WVWSP8700"
  or ORI = "WVWSP8400" or ORI = "WVWSP0000" or ORI = "WVWSP9200") popgrp = 5 .

IF (metro = 0 and (SUBSTR(AgencyName,1,3) = "DNR" or SUBSTR(AgencyName,1,4) =
  "FIRE" or SUBSTR(AgencyName,1,2) = "TF" or SUBSTR(AgencyName,1,3) = "OLE")) popgrp = 6 .

IF (metro = 1 and (SUBSTR(AgencyName,1,3) = "DNR" or SUBSTR(AgencyName,1,4) =
  "FIRE" or SUBSTR(AgencyName,1,2) = "TF" or SUBSTR(AgencyName,1,3) = "OLE")) popgrp = 5 .

RECODE
  popgrp  (SYSMIS=4)  .

VALUE LABELS
  popgrp
  1 principal city
  2 over 10,000
  3 over 5,000
  4 all other cities
  5 metro county
  6 nonmetro county. 

EXECUTE .