求助！如何用array建立树形数据库？

shiyiming

如题，用array来编写一个树形数据库。得出的数据库如图。[img:1k788mh2]http://813.edu.pinggu.com/forum/201111/20/0311263xs5rdn55ajzqsqp.jpg[/img:1k788mh2]
我写的程序运行出来最后一行也是七个1，似乎没有办法再加比前一行少一些数据的。问题在哪里？请高手赐教！
data a(drop=i);
array D[7] D1-D7;
do i=4;
D[i]=1;
end;output;
do i=3 to 5;
D[i]=1;
end;output;
do i=2 to 6;
D[i]=1;
end;output;
do i=1 to 7;
D[i]=1;
end;output;
do i=3 to 5;
D[i]=1;
end;output;
run;

shiyiming

原因是output并没有初始化变量的作用。你可以在打印最后一行时放入类似于
[code:35vtgeyd]call missing(of d[*]);[/code:35vtgeyd]
来硬性把array变量置为缺失。
其实如果你不是画递进的树结构，可能每一步的初始化都是必要的。
京剧

shiyiming

继续说几句：

[code:376g5gbm]data c;
length d1-d7 8.;
                             d4 =1;                          output;
                   d3 =1;           d5=1;                    output;
       d2=1;                               d6 =1;            output;
d1=1;                                                d7 =1;  output;
d1 =.; d2=.;                               d6 =.;    d7=.;   output;
run；[/code:376g5gbm]
变量的遗传性非常明显。京剧

shiyiming

[quote="jingju11":1oltb9v9]原因是output并没有初始化变量的作用。你可以在打印最后一行时放入类似于
[code:1oltb9v9]call missing(of d[*]);[/code:1oltb9v9]
来硬性把array变量置为缺失。
其实如果你不是画递进的树结构，可能每一步的初始化都是必要的。
京剧[/quote:1oltb9v9]

非常感谢！！！！