看看是不是你所需要的：
方法一：
DATA A;
INPUT XM $ YW SX YY ZZ;
CARDS;
X1 51 61 71 81
X2 52 62 72 82
X3 53 63 73 83
X4 52 64 74 84
;

PROC TRANSPOSE DATA=A OUT=B(RENAME=(COL1=CJ));
VAR YW  SX YY ZZ;
BY XM;
RUN;
PROC PRINT;
RUN;

方法二，用DATAh步+数组，可以更个性化的修改，自己好好思考思考。

求教用数组的做法...百思不得其解

没事，一回生，二回熟的;

DATA A;
INPUT XM $ YW SX YY ZZ;
CARDS;
X1 51 61 71 81
X2 52 62 72 82
X3 53 63 73 83
X4 52 64 74 84
;
*方法一;
DATA A2;
SET A;
ARRAY NBR YW SX YY ZZ;
DO OVER NBR;
CJ=NBR;
OUTPUT;
END;
DROP YW SX YY ZZ;
PROC PRINT;
RUN;

*方法二;
DATA A3;
SET A;
ARRAY NBR{*} _NUMERIC_;
DO I=1 TO DIM(NBR);
CJ=NBR(I);
OUTPUT;
END;
DROP YW SX YY ZZ I;
PROC PRINT;
RUN;

膜拜。。。多谢。。。。新手拜谢。。。学无止境。。。

三个set data option里keep+rename