compute anxdum=0.
compute borddum=0.
compute depdum=0.
compute schizdum=0.
if (diagn=1) anxdum=1.
if (diagn=2) borddum=1.
if (diagn=3) depdum=1.
if (diagn=4) schizdum=1.
execute.