RECODE
  cditotal
  (SYSMIS=SYSMIS)  (Lowest thru 24.99=0)  (25 thru Highest=1)  INTO  cdipos .
VARIABLE LABELS cdipos 'CDI - at least mild depression'.
EXECUTE .


RECODE
  bditotal
  (SYSMIS=SYSMIS)  (Lowest thru 9.99=0)  (10 thru Highest=1)  INTO  bdipos .
VARIABLE LABELS bdipos 'BDI - at least mild depression'.
EXECUTE .

RECODE
  gsitscr
  (SYSMIS=SYSMIS)  (Lowest thru 64.99=0)  (65 thru Highest=1)  INTO  gsi65pls
  .
VARIABLE LABELS gsi65pls 'SCL-90-R t GLobal severity T <= 65'.
EXECUTE .