【正文】 因此，每次調(diào)用子程序結(jié)束后，應(yīng)該將 Grade 變量 中的結(jié)果值運用到某公式中。 程序運行結(jié)果如圖 所示。 End 。 when(test=70) grade=39。 when(test=90) grade=39。 link recode 。 test=test2 。 。 Data (drop= test grade) 。 例如，我們已有一個學(xué)生成績數(shù)據(jù)集 CLASS，原來的成績分?jǐn)?shù)是按百分?jǐn)?shù)給出的，現(xiàn)在要創(chuàng)建一個新的數(shù)據(jù)集 CLASS04，將百分?jǐn)?shù)成績改為四級評分： A（ 100~90）、 B（ 89~80）、C（ 79~70）、 D（ 69）。 LINK后的 RETURN 讓程序返回到 LINK后的那條語句； GOTO 后的RETURN 讓程序返回到 DATA步的開頭。類似于其他程序語言中轉(zhuǎn)子語句和返回語句。 ?? 。 ?? 。與 GOTO 語句一樣， LINK 語句和語句標(biāo)號所在的目標(biāo)語句必須在同一個 DATA步中。如果我們在 countif=countif+1 計數(shù)語句后， ok：acctest=acctest+test 累加語句前插入一條 RETURN 返回語句， RETURN 語句的作用是返回到DATA步 的開頭處理新的輸入數(shù)據(jù)，相應(yīng)地程序的作用也發(fā)生了變化，不是累加全部的成績，而是累加及格的成績，計數(shù)器仍然計數(shù)不及格的人數(shù)。 100 90 45 55 80 30 Proc print data= 。 If test=60 then GOTO ok 。 程序如下： Libname Study “d:\sasdata\mydir” 。但是 GOTO 語句也有明顯的特點，能很方便地和靈活地進(jìn)行轉(zhuǎn)移。 ?? 。 ?? 。 四、 實現(xiàn)轉(zhuǎn)移（ GOTO 語句） GOTO是一種無條件轉(zhuǎn)移語句，它告訴 SAS 系統(tǒng)立即轉(zhuǎn)到 GOTO 語句所指的那條語句，并從那條語句開始執(zhí)行后面 的語句。 Data Survey03 。 程序運行結(jié)果我們在這里就省略了。 Proc print data= Survey02 。 if sex=M then if weight=(heigh*100100)* then fatness=y。 如果超過 標(biāo)準(zhǔn)體重 的 20%，就算肥胖，用 Y 來表示，否則用 N 來表示。 IF— THEN/ELSE語句可以多層嵌套，但要注意 IF— THEN/ELSE 語句的程序編寫格式和匹配。 ELSE SAS語句 。 Proc print data= Class02 。 When(aver=80) grade=”B” 。 Set 。所以，程序員要注意安排好 WHEN 語句的順序和條件。 When (when 表達(dá)式 ) 任意可執(zhí)行 SAS 語句 ； When (when 表達(dá)式 ) 任意可執(zhí)行 SAS 語句 ； ?? Otherwise 任意可執(zhí)行 SAS 語句 ； End ； 如果有 SELECT的表達(dá)式，首先比較 select表達(dá)式和第一個 when表達(dá)式計算結(jié)果的大小，相等為真，執(zhí)行這個 WHEN 后面的 SAS 語句；不相等為假，執(zhí)行下一條 WHEN 語句或81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 15 of 20 OTHERWISE 語句。在 SELECT 組中至少必須有一個WHEN語句。 二、 實現(xiàn)選擇（ SELECT 語句） 在 DATA步中使用 SELECT 語句，使 SAS 系統(tǒng)去執(zhí)行幾條語句 或語句組中的一條語句。 Moveaver=(close+lag1(close)+lag2(close))/3。而前面程序中的數(shù)組 a{i}大小只與移動平均的天數(shù)有關(guān)，相對來說是一個很小的數(shù)且是固定的數(shù)。 19MAY99 20MAY99 21MAY99 24MAY99 25MAY99 Proc print data= MAV 。 End 。 If _n_= day Then do 。 Input date date7. close 。為了始終保持?jǐn)?shù)組 a{1} 、 a{2}、 a{3}中存放的是最近三日的收盤價數(shù)據(jù)，用 a{i}= a{i +1}語句將剛計算過的數(shù)據(jù)前移， a{2}中數(shù)據(jù)存放 a{1}， a{3}中數(shù)據(jù)存81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 13 of 20 放 a{2}， a{1}中原數(shù)據(jù)正常丟棄，留空 a{3}準(zhǔn)備讀下一條記錄的收盤價。程序中的 IF語句就是為了判斷從第三條觀測開始計算 3 日移動平均價而設(shè)置的。 19MAY99 20MAY99 21MAY99 24MAY99 25MAY99 Proc print data= MAV 。 i=day1 。 t= t+a{i} 。 Retain 。 Retain day 3 i 1 。 圖 循環(huán) DO 組中使用了 OUTPUT 語句 81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 12 of 20 例如，我們有一組日期 DATE 和收盤價 CLOSE 股票數(shù)據(jù)，要生成一個帶有 3 日移動平均價 MOVEAVER 的數(shù)據(jù)集。第二種使用格式規(guī)定了變量名字，變量列表或數(shù)組名，它們的值是用戶想保留的。 ? Retain T1 T2 T3 100 。 在數(shù)據(jù)步 DATA 中使用了 RETAIN 語句來為變量設(shè)置初值后 ， RETAIN 語句使得用INPUT語句或賦值語句所指定的變量值從 DATA步的這次執(zhí)行到下一次重復(fù)時被保留 。我們以上面的程序 END 語句前插入一條 OUTPUT 語句為例，程序運行結(jié)果如圖 所示。 81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財經(jīng)大學(xué)經(jīng)濟(jì)信息管理系 IS/SHUFE Created by Page 10 of 20 此程序循環(huán)結(jié)構(gòu)是外循環(huán) DATA 步執(zhí)行二次，因此產(chǎn)生二條觀測，在每次外循環(huán)中，內(nèi)循環(huán) DO重復(fù)執(zhí)行四次，新增四個變量。 Card 。 Array a{4} T1T4 。假設(shè)要由一個老的數(shù)據(jù)集產(chǎn)生一個新的數(shù)據(jù)集，新的數(shù)據(jù)集要新增 n個變量，新增變量 Ti的值與原數(shù)據(jù)集的變量 Xj值和新增變量的位置值 i有關(guān)。第三種方式與第二種方式的區(qū)別是還規(guī)定每一維下標(biāo)的下界和上界，通常不特別指明下標(biāo)的下界從 1 開始。 ? Array x{3} T1 T2 T3 (100,99,98) 。數(shù)組 ARRAY 語句的基本格式為： 圖 用循環(huán) DO 組產(chǎn)生隨機(jī)數(shù)數(shù)據(jù)集 81edb6ff5799cbd72b415b6e1b9a8a6b SAS 系統(tǒng)和數(shù)據(jù)分析 電子 商務(wù)系列 上海財經(jīng)大學(xué)經(jīng)