请教如何添加观测？

shiyiming

请教大侠，如何添加观测？
data data;
input dm bh cp1 cp2 cp3 @;
cards;
234 0 11 23 33
234 1 13 25 .
234 2 . 27 .
235 0 14 21 36
235 1 18 . 37
236 1 17 28 31
236 2 . 29 32
236 3 . . .
;
run;

上数据集中，代码（dm)）的编号（bh）有012、01、123。 如何将编号都为01234。如下：
data data1;
input dm bh cp1 cp2 cp3 @;
cards;
234 0 11 23 33
234 1 13 25 .
234 2 . 27 .
234 3 . . .
234 4 . . .
235 0 14 21 36
235 1 18 . 37
235 2 . . .
235 3 . . .
235 4 . . .
236 0 . . .
236 1 17 28 31
236 2 . 29 32
236 3 . . .
236 4 . . .
;
run;

再请教如何转置成下列形式？
data data1;
input dm cp $ _0 _1 _2 _3 _4 @;
cards;
234 cp1 11 13 . . .
234 cp2 23 25 27 . .
234 cp3 33 . . . .
235 cp1 14 18 . . .
235 cp2 21 . . . .
235 cp3 36 37 . . .
236 cp1 . 17 . . .
236 cp2 . 28 29 . .
236 cp3 . 31 32 . .
;
run;

shiyiming

[code:3hvt1nwn]
proc sort ;by dm;run;

data data;
set data;
by dm;
retain obs;
if first.dm then obs=0;
else obs+1;
run;
[/code:3hvt1nwn]