跟crackman读SAS程序（79）--hash object的一个示例

shiyiming

From crackman's blog on Baidu


               
                <p>data crackman;<br>
input num names $ age height@;<br>
datalines;<br>
23 crack 18 180<br>
24 man   19 170<br>
25 woody 20 160<br>
26 man   21 174<br>
;<br>
run;<br>
proc print;<br>
run;<br>
data crackman1;<br>
length stand 8.;</p>
<p><strong><font color="#8b0000">if 0 then set crackman;</font></strong><br>
<br>
if _n_=1 then do;<br>
declare hash sub();<br>
sub.definekey(&quot;names&quot;);<br>
sub.definedata(&quot;stand&quot;);<br>
sub.definedone();<br>
call missing(names,stand);<br>
sub.add(key:'crack',data:100);<br>
sub.add(key:'man',data:120);<br>
sub.add(key:'woody',data:90);<br>
end;<br>
set crackman;<br>
sub.find();<br>
diff=height-stand;<br>
run;<br>
proc print;<br>
run;</p>
<p>IF 0其实这里意思是，0=FALSE，本来是说不执行SET语句，</p>
<p>但是这个程序在编译时，依然会识别SET标识符，并创建PDV，</p>
<p>等于说定义了这CRACKMAN里面的变量。</p> <a href="http://hi.baidu.com/crack%5Fman/blog/item/84e26426bbbf5fab4723e89a.html">阅读全文</a>
               
                <br/><b>类别：</b><a href="http://hi.baidu.com/crack%5Fman/blog/category/%B8%FAcrackman%B6%C1sas%B3%CC%D0%F2">跟crackman读sas程序</a>&nbsp;<a href="http://hi.baidu.com/crack%5Fman/blog/item/84e26426bbbf5fab4723e89a.html#comment">查看评论</a>