1、 數據步循環與轉移控制數據步循環與轉移控制江西財經大學江西財經大學DO語句語句 DO語句必須由一個END語句來結束。 DO和END語句之間的這些語句稱為一個DO組。 DO組可以嵌套任意次。 DO語句有5類： 簡單DO語句； 循環DO語句； DO OVER語句； DO WHILE語句； DO UNTIL語句。簡單簡單DO語句語句 語句格式DO； 一些SAS語句END;應用舉例應用舉例 例8.1 IF/THEN語句用中DO.data a;set dst.bclass;if age14 then do;Height+20put name= sex= age=;end;run;循環循環DO語句語句 D

2、O組中的語句需要被重復執行時要用到循環DO語句。循環DO語句根據下標變量重復執行DO和END語句之間的語句 語句格式DO index_variable=specification-1;一些SAS語句END;其中：index-variable選項定義下標變量，用于控制DO組的執行方式和重復次數。下標變量包含在創建的數據集中，可以用DROP語句刪除。 SPECIFICATION選項格式選項格式 Start ; Specification選項說明： Start規定下標變量的起始值To Stop規定下標變量的終止值Increment規定步長While Expression表達式在每次循環執行前計算Un

3、til Expression表達式在每次循環執行以后計算例8.2 缺省的步長為1。do I=1 to 1000;do I=1 to y+3;do I=1 to exit;例8.3 起始值例句。do i=5;do i=1 to n ;do i=n to 1 by 1;do i=k+1 to n-1;do i=1 to k-1, k+1 to n;do i=2, 3, 5, 7, 11, 13, 17;do i=0.1 to 0.9 by 0.1, 1 to 10 by 1, 20 to 100 by 10;do i=saturday, sunday;do i=01jan99d, 25feb99d

4、;do i=01jan99d to 01jan2000d by 1;例句子中，起始值必須全部是數值或全部是字符常數，也可以是變量。字符常數必須用引號括起來。 例8.4 使用表達式選項。do i=1 to 10 while(xy);do i=10 to 0 by 1 while(month=jan);應用舉例應用舉例 例8.5 用GO TO語句跳出循環體。data a;input x y; if xy then goto skip; /*skip是循環體外的語句標號*/y=log(y-x);yy=y-20;skip: if y=5時停止。data a;n=0;do until(n=5);put

5、n=;n+1;end;run; END語句語句 END語句是組成DO組或SELECT組的最后一個語句。 語句格式語句格式END; 應用舉例應用舉例 DO;若干個SAS語句END； SELECT (expression); When (expression) SAS語句； Otherwise SAS語句； END; SELECT語句語句 SELECT語句選擇執行SAS語句。 語句格式SELECT; WHEN (when-expression-1) statement; WHEN(when-expression-1) statement; END; 選項說明： select-expression選

6、擇表達式when-expression規定任意有效的一個SAS表達式。Statement任意可執行的SAS語句應用舉例應用舉例 例8.13 有SELECT表達式的SELECT語句。data a;set dst.bclass;obs=_n_;x=uniform(0);select (obs);when (1) x=x*10;when (2,4,6);when (3,5,7,13,15,17) x=x*100;otherwise x=1;end;run;例中，根據OBS來計算新變量X的值。當OBS為1時，執行x=x*10。當OBS為2，4，6時，X值不變。當OBS為3，5，7，13，15，17時，

7、執行X=X*100。OBS為其它值時，執行x=1。 例8.14 沒有SELECT表達式的SELECT語句。data _null_;do mon=jan,feb,mar,apr,may,jun,jul,aug,sep;select; when (mon in (jun,jul,aug) put summer mon=;when (mon in (mar,apr,may) put spring mon=;otherwise put fall or winter mon=;end;end;run; 361 data _null_;362 do mon=jan,feb,mar,apr,may,jun,

8、jul,aug,sep;363 select;364 when (mon in (jun,jul,aug) put summer mon=;365 when (mon in (mar,apr,may) put spring mon=;366 otherwise put fall or winter mon=;367 end;368 end;369 run;fall or wintermon=janfall or wintermon=febspring mon=marspring mon=aprspring mon=maysummer mon=junsummer mon=julsummer mo

9、n=augfall or wintermon=sepNOTE: “DATA 語句”所用時間（總處理時間）: 實際時間 0.03 秒 CPU 時間 0.01 秒例8.15 SELECT組的正確及錯誤用法舉例。select(x);when (x=2) put two; /*錯誤用法*/end;select(x);when(2) put two; /*正確用法*/end;select;when (x=2) put two; /*正確用法*/end;run;例中，后兩個程序的效果相同。 IF語句語句IF語句的兩種類型：條件IF語句，含有一個THEN子句或ELSE子句；子集IF語句，沒有子句。IF-TH

10、EN與與IF-THEN/ELSE語句語句表達式為真時執行THEN后面的語句, 表達式為假執行ELSE后面的語句。 語句格式：IF expression THEN expression;子集子集IF語句語句 語句格式：IF expression;其中：expression是任意有效的表達式。如果表達式真的，SAS語句對正被創建的觀測繼續執行DATA步的語句。如果表達式是假的，SAS立即返回到DATA步的開始對其他觀測執行。 例8.17 應用舉例。data a;set ResDat.Idx000001;if _n_100;run;例中，選擇前99條觀測值。GO TO語句與語句標號語句與語句標號 G

11、OTO語句使SAS跳到本程序步帶有標號的語句繼續往下執行。GOTO語句和指定的目標語句必須在同一DATA步。 GOTO語句語句語句格式：GOTO label; GOTO label;Label選項規定語句標號來指示GO TO的目標。 例8.18 應用舉例。data a;input x ;if 1=x=5 then goto ok;put x; count+1; ok: sumx+x;cards;1 2 7 2 12 24 22;run;例中，COUNT僅對大于5的數計數，SUMX+X對每個觀測都執行。 xcountsumx110122033711042112512224624348722470

12、data a;input x ;if 1=x=5 then goto ok;put x; count+1;return;ok: sumx+x;cards;1 2 7 2 12 24 22;run;例中，COUNT僅對大于5的數計數，SUMX+X僅對X在1和5之間的那些觀測執行。 xcountsumx1101220337134215512256243572245例8.19 上面兩例中用DO-END語句替代GOTO語句。data a;input x ;if x5 then do;put x; count+1;end;sum+x;cards;1 2 7 2 12 24 22;data a;input

13、 x ;if x5 then do;put x; count+1;end;else sumx+x;cards;1 2 7 2 12 24 22;語句標號語句標號 語句標號給出GOTO，LINK, FILE語句中的選項HEADER=，或在INFILE語句中選項EOF=的位置。 語句格式：LABEL: statement; LINK語句語句 LINK語句告訴SAS系統立即轉到由LINK語句指示的語句標號，并從那里繼續執行直到一個RETURN語句。RETURN語句讓SAS立即返回到LINK語句后面的那個語句并從那里繼續執行。LINK語句和語句標號所在的目標語句必須在同一個DATA步。 語句格式語句格

14、式LINK label; 例8.20 執行一組語句。 data bydro;input type $ wd station $;label type=station type wd=depth to water;elev=.;if type=aluy then link calcu;year=1985;return;calcu: if station=site_1 then elev=6650-wd; if station=site_2 then elev=5500-wd;return; /*返回到link語句下面的year=1985;語句*/cards;aluv 523 site_1uppa

15、 234 site_2aluy 666 site_2;typewdstationelevyear1aluv523site_1.19852uppa234site_2.19853aluy666site_248341985RETURN語句語句RETURN語句告訴SAS系統在DATA步當前位置上停止執行語句，返回到一個預定位置上繼續執行。語句格式語句格式RETURN;RETURN語句的作用：語句的作用：在LINK語句后面，RETURN語句讓SAS系統立即返回到LINK后面的語句，并繼續往下執行；在FILE語句的選項HEADER=中，RETURN語句讓SAS系統立即返回到開始新頁之前執行的最后一個語句后

16、面的語句，并繼續執行；在在DATA步的其它地方，步的其它地方，RETURN語句讓語句讓SAS系統返回到系統返回到DATA步開頭。步開頭。例8.23 讓SAS系統返回到DATA步開頭。data survey;input x y z;if x=y then return;x=y+z; a=x*2;cards;1 2 3 3 3 45 6 78 8 9;例中，當X=Y時，RETURN語句被執行。SAS系統添加這個觀測到數據集SURVEY，并返回到DATA步的開頭。IF語句后面的二個賦值語句沒有被執行。 xyza1523252334 .313671694889 .CONTINUE語句語句 CONTIN

17、UE語句停止當前的這次循環過程，繼續進行下一次循環。 語句格式：CONTINUE; 例例8.25 CONTINUE語句停止當前的循環過程，繼續進行下語句停止當前的循環過程，繼續進行下一次循環一次循環。data a;do i=1 to 5;input name $ idno status $;if status=PT then continue; /*返回到下次循環的開頭*/input benefits $10.;output;end;cards;/*接上頁 */Jones 9011 PTThomas 876 PTRichards 1002 FTEye/DentalKelly 85111 PTS

18、mith 433 FTHMOKelly 85111 PTSmith 433 FTHMOJones 9011 PTThomas 876 PTRichards 1002 FTEye/Dental;Run; inameidnostatusbenefits13Richards1002FTEye/Dental25Smith433FTHMO32Smith433FTHMO45Richards1002FTEye/DentalLEAVE 語句語句 LEAVE 語句停止當前DO組循環或SELECT組的處理過程，并繼續執行DO組或SELECT組后面的語句。 語句格式：LEAVE; 例例8.26 給定條件下停止給定條件下停止DO循環的處理過程循環的處理過程data week;input name $ idno start status $ dept $;bonus=0;do year=start to 1991;if bonus ge 500 then leave;bonus+50;end;cards;/*接上頁 */Jones 9011 1990 PT PUBThomas 876 1976 PT HRBarnes 7899 1991 ft techHarrell 1250 1975 ft hrRichards 1002 1990 ft devKelly 85 1981 pt pubSton