Hey. See that. DATA FINAL_1;
SET ORIGEM;
BY KEY;
IF FIRST.KEY THEN
MAX_KEY = 1;
ELSE
MAX_KEY + 1;
RUN;
PROC SQL NOPRINT;
SELECT COMPRESS(PUT(MAX(MAX_KEY),2.)) INTO:MAX_REF FROM FINAL_1;
QUIT;
%PUT ***&MAX_REF***;
DATA WORK.FINAL_2;
SET FINAL_1;
BY MAX_KEY;
ARRAY TRANSPOSE {&MAX_REF.}$30. TRANSPOSE_01 - TRANSPOSE_&MAX_REF.;
IF FIRST.KEY THEN
DO;
J = 1;
DO WHILE (J <= &MAX_REF.);
VARIABLE_TO_TRANS[J] = "";
J = J + 1;
END;
DROP J;
END;
VARIABLE_TO_TRANS[MAX_KEY] = TRANSPOSE;
RETAIN TRANSPOSE;
IF LAST.KEY THEN
OUTPUT WORK.FINAL_2;
RUN; Thanks.
... View more