data ss;
ss;input x y z @@;
x y z @@;cards;1 2 3 4 5 1 7 2 1 5 6 1 6 4 2 . 1 1
;
;1 2 3 4 5 1 7 2 1 5 6 1 6 4 2 . 1 1
;
run;
;proc contents out=d(where=(type=1)) noprint;run;
contents out=d(where=(type=1)) noprint;run;proc sql noprint;select name ,cats('_N1_',name) into :name separated by ' '
sql noprint;select name ,cats('_N1_',name) into :name separated by ' '
select name ,cats('_N1_',name) into :name separated by ' '
'_N1_',name) into :name separated by ' '
into :name separated by ' ',:name1 separated by ' ' from d;
by ' ' from d;
quit;
; data ss1(keep=_n1_:);set ss end=endof;retain &name;array Ary{*} &name;array _Ary{*} &name1.;do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
ss1(keep=_n1_:);set ss end=endof;retain &name;array Ary{*} &name;array _Ary{*} &name1.;do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
set ss end=endof;retain &name;array Ary{*} &name;array _Ary{*} &name1.;do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
retain &name;array Ary{*} &name;array _Ary{*} &name1.;do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
array Ary{*} &name;array _Ary{*} &name1.;do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
array _Ary{*} &name1.;do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
do i=1 to dim(Ary);_ary{i}+(ary{i}=1 | missing(ary{i}));end;if endof;
1 | missing(ary{i}));end;if endof;
end;if endof;
if endof;run;
;