原始数据结构
image.png
目标数据结构
image.png
程序
方法1
data new_dx;
set diagnose (drop = date);
dx = dx1;
if dx ne . then output;
dx = dx2;
if dx ne . then output;
dx = dx3;
if dx ne . then output;
keep patno dx;
run;
方法2
data new_dx;
set diagnose (drop = date);
array dxarray[3] dx1 - dx3;
do i = 1 to 3;
dx = dxarray[i];
if dx ne . then output;
end;
keep patno dx;
run;
