NONPAR CORR var1 var2 var3 var4
/MISSING = LISTWISE
/MATRIX OUT(*).
RECODE rowtype_ ('RHO'='CORR') .
PARTIAL CORR var1 var2 var3 BY var4
/MISSING = LISTWISE
/MATRIX IN(*).