數(shù)據(jù)步循環(huán)與轉(zhuǎn)移控制.pptx

數(shù)據(jù)步循環(huán)與轉(zhuǎn)移控制 DO語(yǔ)句 DO語(yǔ)句必須由一個(gè)END語(yǔ)句來(lái)結(jié)束 DO和END語(yǔ)句之間的這些語(yǔ)句稱為一個(gè)DO組 DO組可以嵌套任意次 DO語(yǔ)句有5類(lèi) 簡(jiǎn)單DO語(yǔ)句 循環(huán)DO語(yǔ)句 DOOVER語(yǔ)句 DOWHILE語(yǔ)句 DOUNTIL語(yǔ)句 簡(jiǎn)單DO語(yǔ)句 語(yǔ)句格式DO 一些SAS語(yǔ)句 END 應(yīng)用舉例 例8 1IF THEN語(yǔ)句用中DO dataa setdst bclass ifage 14thendo Height 20putname sex age end run 循環(huán)DO語(yǔ)句 DO組中的語(yǔ)句需要被重復(fù)執(zhí)行時(shí)要用到循環(huán)DO語(yǔ)句 循環(huán)DO語(yǔ)句根據(jù)下標(biāo)變量重復(fù)執(zhí)行DO和END語(yǔ)句之間的語(yǔ)句語(yǔ)句格式DOindex variable specification 1 一些SAS語(yǔ)句 END 其中 index variable選項(xiàng)定義下標(biāo)變量 用于控制DO組的執(zhí)行方式和重復(fù)次數(shù) 下標(biāo)變量包含在創(chuàng)建的數(shù)據(jù)集中 可以用DROP語(yǔ)句刪除 SPECIFICATION選項(xiàng)格式 Start Specification選項(xiàng)說(shuō)明 例8 2缺省的步長(zhǎng)為1 doI 1to1000 doI 1toy 3 doI 1toexit 例8 3起始值例句 doi 5 doi 1ton doi nto1by 1 doi k 1ton 1 doi 1tok 1 k 1ton doi 2 3 5 7 11 13 17 doi 0 1to0 9by0 1 1to10by1 20to100by10 doi saturday sunday doi 01jan99 d 25feb99 d doi 01jan99 dto 01jan2000 dby1 例句子中 起始值必須全部是數(shù)值或全部是字符常數(shù) 也可以是變量 字符常數(shù)必須用引號(hào)括起來(lái) 例8 4使用表達(dá)式選項(xiàng) doi 1to10while xy doi 10to0by 1while month jan 應(yīng)用舉例 例8 5用GOTO語(yǔ)句跳出循環(huán)體 dataa inputxy ifx ythengotoskip skip是循環(huán)體外的語(yǔ)句標(biāo)號(hào) y log y x yy y 20 skip ify 0thendo putx y z log x y end cards 26535 1 run 數(shù)據(jù)集a 例8 6產(chǎn)生指定觀測(cè)值個(gè)數(shù)的數(shù)據(jù)集 dataa don 1to100 output end run 例中 產(chǎn)生一個(gè)含有100個(gè)觀測(cè)值的數(shù)據(jù)集 例8 7自然數(shù)求和 dataa t 0 don 1to100 t t n output end run 例中 求1到100的自然數(shù)之和 DOOVER語(yǔ)句 DOOVER語(yǔ)句對(duì)隱含下標(biāo)數(shù)組元素執(zhí)行DO組里的語(yǔ)句 語(yǔ)句格式DOOVERarray name 若干SAS語(yǔ)句 END 其中 選項(xiàng)array name規(guī)定一個(gè)隱含下標(biāo)數(shù)組 應(yīng)用舉例 例8 10隱含數(shù)組的所有元素乘以100 datatest inputsc01 sc05 arrayssc01 sc05 doovers 等價(jià)于do i 1to5 s s 100 end cards 95 88 99 77 56 run DOWHILE語(yǔ)句 DOWHILE語(yǔ)句使得當(dāng)條件成立時(shí)重復(fù)地執(zhí)行DO組中的語(yǔ)句 語(yǔ)句格式DOWHILE expression 選項(xiàng)expression規(guī)定任一有效表達(dá)式 應(yīng)用舉例 例8 11當(dāng)N值小于5時(shí)重復(fù)執(zhí)行DO組中的語(yǔ)句 dataa n 0 dowhile nlt5 putn n 1 end run DOUNTIL語(yǔ)句 有條件地執(zhí)行DO組中的語(yǔ)句 語(yǔ)句格式DOUNTIL expression 其中 選項(xiàng)expression規(guī)定任一有效表達(dá)式 應(yīng)用舉例 例8 12重復(fù)循環(huán)直到n 5時(shí)停止 dataa n 0 dountil n 5 putn n 1 end run END語(yǔ)句 END語(yǔ)句是組成DO組或SELECT組的最后一個(gè)語(yǔ)句 語(yǔ)句格式END 應(yīng)用舉例 DO 若干個(gè)SAS語(yǔ)句 END SELECT expression When expression SAS語(yǔ)句 OtherwiseSAS語(yǔ)句 END SELECT語(yǔ)句 SELECT語(yǔ)句選擇執(zhí)行SAS語(yǔ)句 語(yǔ)句格式SELECT WHEN when expression 1 statement statement END 選項(xiàng)說(shuō)明 應(yīng)用舉例 例8 13有SELECT表達(dá)式的SELECT語(yǔ)句 dataa setdst 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 otherwisex 1 end run 例中 根據(jù)OBS來(lái)計(jì)算新變量X的值 當(dāng)OBS為1時(shí) 執(zhí)行x x 10 當(dāng)OBS為2 4 6時(shí) X值不變 當(dāng)OBS為3 5 7 13 15 17時(shí) 執(zhí)行X X 100 OBS為其它值時(shí) 執(zhí)行x 1 例8 14沒(méi)有SELECT表達(dá)式的SELECT語(yǔ)句 data null domon jan feb mar apr may jun jul aug sep select when monin jun jul aug put summer mon when monin mar apr may put spring mon otherwiseput fallorwinter mon end end run 361data null 362domon jan feb mar apr may jun jul aug sep 363select 364when monin jun jul aug put summer mon 365when monin mar apr may put spring mon 366otherwiseput fallorwinter mon 367end 368end 369run fallorwintermon janfallorwintermon febspringmon marspringmon aprspringmon maysummermon junsummermon julsummermon augfallorwintermon sepNOTE DATA語(yǔ)句 所用時(shí)間 總處理時(shí)間 實(shí)際時(shí)間0 03秒CPU時(shí)間0 01秒 例8 15SELECT組的正確及錯(cuò)誤用法舉例 select x when x 2 put two 錯(cuò)誤用法 end select x when 2 put two 正確用法 end select when x 2 put two 正確用法 end run 例中 后兩個(gè)程序的效果相同 IF語(yǔ)句 IF語(yǔ)句的兩種類(lèi)型 條件IF語(yǔ)句 含有一個(gè)THEN子句或ELSE子句 子集IF語(yǔ)句 沒(méi)有子句 IF THEN與IF THEN ELSE語(yǔ)句表達(dá)式為真時(shí)執(zhí)行THEN后面的語(yǔ)句 表達(dá)式為假執(zhí)行ELSE后面的語(yǔ)句 語(yǔ)句格式 IFexpressionTHENexpression 子集IF語(yǔ)句 語(yǔ)句格式 IFexpression 其中 expression是任意有效的表達(dá)式 如果表達(dá)式真的 SAS語(yǔ)句對(duì)正被創(chuàng)建的觀測(cè)繼續(xù)執(zhí)行DATA步的語(yǔ)句 如果表達(dá)式是假的 SAS立即返回到DATA步的開(kāi)始對(duì)其他觀測(cè)執(zhí)行 例8 17應(yīng)用舉例 dataa setResDat Idx000001 if n 100 run 例中 選擇前99條觀測(cè)值 GOTO語(yǔ)句與語(yǔ)句標(biāo)號(hào) GOTO語(yǔ)句使SAS跳到本程序步帶有標(biāo)號(hào)的語(yǔ)句繼續(xù)往下執(zhí)行 GOTO語(yǔ)句和指定的目標(biāo)語(yǔ)句必須在同一DATA步 GOTO語(yǔ)句語(yǔ)句格式 GOTOlabel GOTOlabel Label選項(xiàng)規(guī)定語(yǔ)句標(biāo)號(hào)來(lái)指示GOTO的目標(biāo) 例8 18應(yīng)用舉例 dataa inputx if1 x 5thengotook putx count 1 ok sumx x cards 1272122422 run 例中 COUNT僅對(duì)大于5的數(shù)計(jì)數(shù) SUMX X對(duì)每個(gè)觀測(cè)都執(zhí)行 dataa inputx if1 x 5thengotook putx count 1 return ok sumx x cards 1272122422 run 例中 COUNT僅對(duì)大于5的數(shù)計(jì)數(shù) SUMX X僅對(duì)X在1和5之間的那些觀測(cè)執(zhí)行 例8 19上面兩例中用DO END語(yǔ)句替代GOTO語(yǔ)句 dataa inputx ifx5thendo putx count 1 end sum x cards 1272122422 dataa inputx ifx5thendo putx count 1 end elsesumx x cards 1272122422 語(yǔ)句標(biāo)號(hào) 語(yǔ)句標(biāo)號(hào)給出GOTO LINK FILE語(yǔ)句中的選項(xiàng)HEADER 或在INFILE語(yǔ)句中選項(xiàng)EOF 的位置 語(yǔ)句格式 LABEL statement LINK語(yǔ)句 LINK語(yǔ)句告訴SAS系統(tǒng)立即轉(zhuǎn)到由LINK語(yǔ)句指示的語(yǔ)句標(biāo)號(hào) 并從那里繼續(xù)執(zhí)行直到一個(gè)RETURN語(yǔ)句 RETURN語(yǔ)句讓SAS立即返回到LINK語(yǔ)句后面的那個(gè)語(yǔ)句并從那里繼續(xù)執(zhí)行 LINK語(yǔ)句和語(yǔ)句標(biāo)號(hào)所在的目標(biāo)語(yǔ)句必須在同一個(gè)DATA步 語(yǔ)句格式LINKlabel 例8 20執(zhí)行一組語(yǔ)句 databydro inputtype wdstation labeltype stationtype wd depthtowater elev iftype aluy thenlinkcalcu year 1985 return calcu ifstation site 1 thenelev 6650 wd ifstation site 2 thenelev 5500 wd return 返回到link語(yǔ)句下面的year 1985 語(yǔ)句 cards aluv523site 1uppa234site 2aluy666site 2 RETURN語(yǔ)句 RETURN語(yǔ)句告訴SAS系統(tǒng)在DATA步當(dāng)前位置上停止執(zhí)行語(yǔ)句 返回到一個(gè)預(yù)定位置上繼續(xù)執(zhí)行 語(yǔ)句格式RETURN RETURN語(yǔ)句的作用 在LINK語(yǔ)句后面 RETURN語(yǔ)句讓SAS系統(tǒng)立即返回到LINK后面的語(yǔ)句 并繼續(xù)往下執(zhí)行 在FILE語(yǔ)句的選項(xiàng)HEADER 中 RETURN語(yǔ)句讓SAS系統(tǒng)立即返回到開(kāi)始新頁(yè)之前執(zhí)行的最后一個(gè)語(yǔ)句后面的語(yǔ)句 并繼續(xù)執(zhí)行 在DATA步的其它地方 RETURN語(yǔ)句讓SAS系統(tǒng)返回到DATA步開(kāi)頭 例8 23讓SAS系統(tǒng)返回到DATA步開(kāi)頭 datasurvey inputxyz ifx ythenreturn x y z a x 2 cards 123334567889 例中 當(dāng)X Y時(shí) RETURN語(yǔ)句被執(zhí)行 SAS系統(tǒng)添加這個(gè)觀測(cè)到數(shù)據(jù)集SURVEY 并返回到DATA步的開(kāi)頭 IF語(yǔ)句后面的二個(gè)賦值語(yǔ)句沒(méi)有被執(zhí)行 CONTINUE語(yǔ)句 CONTINUE語(yǔ)句停止當(dāng)前的這次循環(huán)過(guò)程 繼續(xù)進(jìn)行下一次循環(huán) 語(yǔ)句格式 CONTINUE 例8 25CONTINUE語(yǔ)句停止當(dāng)前的循環(huán)過(guò)程 繼續(xù)進(jìn)行下一次循環(huán) dataa doi 1to5 inputname idnostatus ifstatus PT thencontinue 返回到下次循環(huán)的開(kāi)頭 inputbenefits 10 output end cards 接上頁(yè) Jones9011PTThomas876PTRichards1002FTEye DentalKelly85111PTSmith433FTHMOKelly85111PTSmith433FTHMOJones9011PTThomas876PTRichards1002FTEye Dental Run LEAVE語(yǔ)句 LEAVE語(yǔ)句停止當(dāng)前DO組循環(huán)或SELECT組的處理過(guò)程 并繼續(xù)執(zhí)行DO組或SELECT組后面的語(yǔ)句 語(yǔ)句格式 LEAVE 例8 26給定條件下停止DO循環(huán)的處理過(guò)程 dataweek inputname idnostartstatus dept bonu