Stacking data and create new variables

[CHL0320]

Hi Community,

I would like to get help on staking data and then creating new variables. Here is an example.

Data have

PATID	visit	PA_TIM2M	PA_HAR2M	PA_TIM2R	PA_HAR2R
10021	1	1	1	6	1
10031	1	0		3	2
10041	1	1	2	1	1

Data want

PATID	visit	PA_HAR	times	intensity
10021	1	PA_HAR2M	1	1
10021	1	PA_HAR2R	6	1
10031	1	PA_HAR2M	0
10031	1	PA_HAR2R	3	2
10041	1	PA_HAR2M	1	2
10041	1	PA_HAR2R	1	1

The new variable,times, is from PA_TIM2M or PA_TIM2R  and "intensity" is from PA_HAR2M or PA_HAR2R.

Thank you for the help

[novinosrin · Accepted solution]

HI @CHL0320  See if this helps

data have;
input PATID	visit	PA_TIM2M	PA_HAR2M	PA_TIM2R	PA_HAR2R;
cards;
10021	1	1	1	6	1
10031	1	0	. 	3	2
10041	1	1	2	1	1
;

data want;
 set have;
 array t PA_TIM:;
 array u PA_HAR:;
 length PA_HAR $32;
 do over u;
  PA_HAR=vname(u);
  Times=t;
  Intensity=u;
  output;
end;
drop PA_TIM2M	PA_HAR2M	PA_TIM2R	PA_HAR2R;
run;