求助：一个SAS数据集转化问题！

shiyiming

我遇到一个依已有数据集生成新数据集的问题，由于我刚接触SAS不久，水平实在是低，烦请高手们帮助我一下，不胜感激！
已有数据集为三列，如下：
[color=#0000FF:25shs87p]id        x        y
1        0         0
2        0         3
3        0         30
4        0         81
5        0         7
6        14         39
7        16         58
8        18         18
9        19         19
10        19         19
11        19         19
12        19         19
13        19         19
14        19         19
15        19         19
16        19         19
17        19         19
18        20         20
19        24         32
20        24         32
.....[/color:25shs87p]
目标要求：新生成的数据集的列数等于id列的行数加上一ticks列，ticks列放在整个新数据集之前。ticks列的行数由X列的最小值与Y列的最大值决定，如：xmin=0、ymax=32，则ticks列的行数为0-32（整数），共33列。后面列的列名依次为id=1，id=2，...。这些列的数据生成时这样的，如id=1时，x=0、y=0，赋值id=1、ticks=0单元格为1，id=1列的其它单元格为空。再如id=6时，x=14、y=39，赋值id=6、ticks=14-39单元格为1（共39-14+1=36个1），id=6列的其它单元格为空。新数据集具体的形式如下：
[color=#0000BF:25shs87p]
ticks        id=1        id=2        id=3        id=4        id=5        id=6        ……
0         1         1         1         1         1         .        .
1         .        1         1         1         1         .        .
2         .        1         1         1         1         .        .
3         .        1         1         1         1         .        .
4         .        .        1         1         1         .        .
5         .        .        1         1         1         .        .
6         .        .        1         1         1         .        .
7         .        .        1         1         1         .        .
8         .        .        1         1         .        .        .
9         .        .        1         1         .        .        .
10         .        .        1         1         .        .        .
11         .        .        1         1         .        .        .
12         .        .        1         1         .        .        .
13         .        .        1         1         .        .        .
14         .        .        1         1         .        1        .
15         .        .        1         1         .        1        .
16         .        .        1         1         .        1        .
17         .        .        1         1         .        1        .
18         .        .        1         1         .        1        .
19         .        .        1         1         .        1        .
20         .        .        1         1         .        1        .
21         .        .        1         1         .        1        .
22         .        .        1         1         .        1        .
23         .        .        1         1         .        1        .
24         .        .        1         1         .        1        .
25         .        .        1         1         .        1        .
26         .        .        1         1         .        1        .
27         .        .        1         1         .        1        .
28         .        .        1         1         .        1        .
29         .        .        1         1         .        1        .
30         .        .        1         1         .        1        .
31         .        .        .        1         .        1        .
32         .        .        .        1         .        1        .
33         .        .        .        1         .        1        .
34         .        .        .        1         .        1        .
35         .        .        .        1         .        1        .
36         .        .        .        1         .        1        .
37         .        .        .        1         .        1        .
38         .        .        .        1         .        1        .
39         .        .        .        1         .        1        .
40         .        .        .        1         .        .        .
41         .        .        .        1         .        .        .
42         .        .        .        1         .        .        .
43         .        .        .        1         .        .        .
44         .        .        .        1         .        .        .
45         .        .        .        1         .        .        .
46         .        .        .        1         .        .        .
47         .        .        .        1         .        .        .
48         .        .        .        1         .        .        .
49         .        .        .        1         .        .        .
50         .        .        .        1         .        .        .
51         .        .        .        1         .        .        .
52         .        .        .        1         .        .        .
53         .        .        .        1         .        .        .
54         .        .        .        1         .        .        .
55         .        .        .        1         .        .        .
56         .        .        .        1         .        .        .
57         .        .        .        1         .        .        .
58         .        .        .        1         .        .        .
59         .        .        .        1         .        .        .
60         .        .        .        1         .        .        .
61         .        .        .        1         .        .        .
62         .        .        .        1         .        .        .
63         .        .        .        1         .        .        .
64         .        .        .        1         .        .        .
65         .        .        .        1         .        .        .
66         .        .        .        1         .        .        .
67         .        .        .        1         .        .        .
68         .        .        .        1         .        .        .
69         .        .        .        1         .        .        .
70         .        .        .        1         .        .        .
71         .        .        .        1         .        .        .
72         .        .        .        1         .        .        .
73         .        .        .        1         .        .        .
74         .        .        .        1         .        .        .
75         .        .        .        1         .        .        .
76         .        .        .        1         .        .        .
77         .        .        .        1         .        .        .
78         .        .        .        1         .        .        .
79         .        .        .        1         .        .        .
80         .        .        .        1         .        .        .
81         .        .        .        1         .        .        .
......
[/color:25shs87p]请高手指点，以免的我手工输入这么多的“1”而又进展缓慢。感激不尽！

shiyiming

[code:2sdmsr7u]data a;
input id x y;
z=y-x+1;
cards;
1 0 0
2 0 3
3 0 30
4 0 81
5 0 7
6 14 39
7 16 58
8 18 18
9 19 19
10 19 19
11 19 19
12 19 19
13 19 19
14 19 19
15 19 19
16 19 19
17 19 19
18 20 20
19 24 32
20 24 32
;
run;
proc sql noprint;
select max(y)-min(x)+1 into :ticks from a;
quit;
data b(drop=z i);
set a(keep=z);
array aa(*) a1-a%left(&ticks);
do i=1 to z;
aa(i)=1;
end;
run;
proc transpose data=b out=c(drop=_name_) prefix=id;
data c1(drop=i);retain ticks;do i=1 to &ticks;set c;ticks=i-1;output;end;
run;[/code:2sdmsr7u]

shiyiming

感谢waterlwh 先生的指导，相信费了不少功夫，谢谢！这里还有一个问题，运行您的程序最后得到的C1数据集与我提供的目标样式是有出入的：C1数据集的“1”全部向表的上方靠齐，而目标样式中，某列“1”的起始位置是由X值决定的。您是否有时间再看看我的目标数据集样式，对程序做一下修改。再次感谢您的帮助。

shiyiming

[code:z71gbsoe]data a;
input id x y;
z=y-x+1;
cards;
1 0 0
2 0 3
3 0 30
4 0 81
5 0 7
6 14 39
7 16 58
8 18 18
9 19 19
10 19 19
11 19 19
12 19 19
13 19 19
14 19 19
15 19 19
16 19 19
17 19 19
18 20 20
19 24 32
20 24 32
;
run;
proc sql noprint;
select max(y)-min(x)+1 into :ticks from a;
quit;
data b(drop=z x y i id);
set a;
x=x+1;
y=y+1;
array aa(*) a1-a%left(&ticks);
do i=x to y;
aa(i)=1;
end;
run;
proc transpose data=b out=c(drop=_name_) prefix=id;
run;
data c1;retain ticks;set c; ticks=_n_-1;
run;
[/code:z71gbsoe]

shiyiming

Perfect!
Good job!
Thanks very much!

shiyiming

好方法都被大家想完了，我只能拿个最拙劣的方法出来混混，哈哈。

%macro a;

proc sql;
                select min(x),max(y) into :L,:H
                from a;
quit;

data _null_;
        dsid=open('a');
        nobs=attrn(dsid,'nobs');
        call symput('nobs',nobs);
        rc=close(dsid);
run;


data result;
do ticks=&l to &h;
output;
end;
run;


%do n=1 %to &nobs;
data _null_;
        set a;
        if id=&n;
        call symput('x',x);
        call symput('y',y);
run;

data id;
%if &l<&x %then %do;
        do ticks=&l to %eval(&x-1);
        id&n=.;
        output;
        end;
%end;

        do ticks=&x to &y;
        id&n=1;
        output;
        end;

%if &h>&y %then %do;
        do ticks=%eval(&y+1) to &h;
        id&n=.;
        output;
        end;
%end;
run;

data result;
        merge result id;
        by ticks;
run;
%end;
%mend;
%a;

shiyiming

试验成功，又多了个方法，感谢您的帮助！