*  Match the victim and offender segments to compare ages

COMPUTE master = 1 .
EXECUTE .

MATCH FILES /FILE=*
 /FILE='O:\LWalbolt\IBR\Data Files\1999Offender.sav'
 /RENAME (ibr_rec inc_date st_code = d0 d1 d2)
 /BY ori inc_num
 /DROP= d0 d1 d2.
EXECUTE.

FILTER OFF.
USE ALL.
SELECT IF(master = 1).
EXECUTE .

*For this example, only single victims with one offender are chosen

FILTER OFF.
USE ALL.
SELECT IF(vic_num = 1 & ofnseq = 1).
EXECUTE .

* Compute a variable that displays the age difference (negative will mean offender is older)

FILTER OFF.
USE ALL.
SELECT IF(v_age ~= 0 & off_age~=0).
COMPUTE age_diff = v_age - off_age .
RECODE
  age_diff
  (-100 thru -1=1)
  (ELSE=0)  INTO  yng_old .
EXECUTE .

value labels yng_old
1 'Victim is younger than offender'
0 'Offender is younger than victim'.


* Select victims characterized as parents (select all relationships so multiple victim/offender cases can be checked)

IF (ovr1 = 'PA' | ovr2 = 'PA' | ovr3 = 'PA' | ovr4 = 'PA' | ovr5 = 'PA' |
  ovr6 = 'PA' | ovr7 = 'PA' | ovr8 = 'PA' | ovr9 = 'PA' | ovr10 = 'PA') parent
  = 1 .
EXECUTE .

* Now select the parent victims and create the table

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

FREQUENCIES
  VARIABLES=yng_old
  /ORDER=  ANALYSIS .

* Now we create a variable to select stepparent victims

USE ALL.
IF (ovr1 = 'SP' | ovr2 = 'SP' | ovr3 = 'SP' | ovr4 = 'SP' | ovr5 = 'SP' |
  ovr6 = 'SP' | ovr7 = 'SP' | ovr8 = 'SP' | ovr9 = 'SP' | ovr10 = 'SP') stp
  = 1 .
EXECUTE .

* And create the table

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

FREQUENCIES
  VARIABLES=yng_old
  /ORDER=  ANALYSIS .