第五部分sas數(shù)據(jù)步循環(huán)與轉移控制

1、 數(shù)據(jù)步循環(huán)與轉移控制數(shù)據(jù)步循環(huán)與轉移控制DO語句語句 DO語句必須由一個END語句來結束。 DO和END語句之間的這些語句稱為一個DO組。 DO組可以嵌套任意次。 DO語句有5類： 簡單DO語句； 循環(huán)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;循環(huán)循環(huán)DO語句語句 DO組中的語句需要被重復執(zhí)

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

3、on表達式在每次循環(huán)執(zhí)行以后計算例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;do i=01jan9

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

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

6、ression規(guī)定任意有效的一個SAS表達式。Statement任意可執(zhí)行的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;例中，根據(jù)OBS來計算新變量X的值。當OBS為1時，執(zhí)行x=x*10。當OBS為2，4，6時，X值不變。當OBS為3，5，7，13，15，17時，執(zhí)行X=X*100。OB

7、S為其它值時，執(zhí)行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,jul,aug,sep;

8、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 mon=augfall or

9、 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-THEN與與IF-THEN/

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

11、程序步帶有標號的語句繼續(xù)往下執(zhí)行。GOTO語句和指定的目標語句必須在同一DATA步。 GOTO語句語句語句格式：GOTO label; GOTO label;Label選項規(guī)定語句標號來指示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的數(shù)計數(shù)，SUMX+X對每個觀測都執(zhí)行。 xcountsumx110122033711042112512224624348722470data a;input

12、 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的數(shù)計數(shù)，SUMX+X僅對X在1和5之間的那些觀測執(zhí)行。 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 x ;if x5 th

13、en 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系統(tǒng)立即轉到由LINK語句指示的語句標號，并從那里繼續(xù)執(zhí)行直到一個RETURN語句。RETURN語句讓SAS立即返回到LINK語句后面的那個語句并從那里繼續(xù)執(zhí)行。LINK語句和語句標號所在的目標語句必須在同一個DATA步。 語句格式語句格式LINK label;

14、 例8.20 執(zhí)行一組語句。 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 234 site_2a

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

16、在DATA步的其它地方，步的其它地方，RETURN語句讓語句讓SAS系統(tǒng)返回到系統(tǒng)返回到DATA步開頭。步開頭。例8.23 讓SAS系統(tǒng)返回到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語句被執(zhí)行。SAS系統(tǒng)添加這個觀測到數(shù)據(jù)集SURVEY，并返回到DATA步的開頭。IF語句后面的二個賦值語句沒有被執(zhí)行。 xyza1523252334 .313671694889 .CONTINUE語句語句 CONTINUE語句停止當前的這次循

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

18、MOKelly 85111 PTSmith 433 FTHMOJones 9011 PTThomas 876 PTRichards 1002 FTEye/Dental;Run; inameidnostatusbenefits13Richards1002FTEye/Dental25Smith433FTHMO32Smith433FTHMO45Richards1002FTEye/DentalLEAVE 語句語句 LEAVE 語句停止當前DO組循環(huán)或SELECT組的處理過程，并繼續(xù)執(zhí)行DO組或SELECT組后面的語句。 語句格式：LEAVE; 例例8.26 給定條件下停止給定條件下停止DO循環(huán)的處理過程循環(huán)的處理過程data week