/*******************************************************************\ | Copyright (C) 2012 by SAS Institute Inc., Cary, NC, USA. | | | | SAS (R) is a registered trademark of SAS Institute Inc. | | | | This program sets up practice data for some of the examples | | in the Certification Prep Guide: Base Programming for SAS 9. | | | | Last updated: July 8, 2015 | \*******************************************************************/ options nosource nonotes nocardimage validvarname=V7 replace; /* create sample data */ data _null_; /* determine fileref paths, delimiters, file options */ length fileno fileyes $18 fileset $ 1024; oshost=trim(substr(symget('sysscp'),1,2)); filepath=trim(pathname("sasuser")); if (oshost = "OS") and (length(symget('sysscp'))=2) then do; filepath=scan(filepath,1); dlm="."; fileno="disp=(new,catlg)"; fileyes="disp=(old,catlg)"; end; else do; host=trim(substr(symget('sysscp'),1,3)); if (host in ('WIN','OS2')) then do; filepath=trim(pathname("sasuser")); dlm="\"; fileno=""; fileyes=""; end; else if (host = "VMS") then do; filepath=""; dlm=""; fileno=""; fileyes=""; end; else do; filepath=trim(pathname("sasuser")); dlm="/"; fileno=""; fileyes=""; end; end; /* assign filerefs */ array filelst1{8} $ filesas1-filesas8 ('accnt','accnt01','accnt02', 'accnt03', 'accnt04','activity','fee', 'printfee'); do i=1 to dim(filelst1); if (host = "CMS") then fileset=trim(filelst1(i)) || " sas *"; else fileset=trim(filepath) || dlm || trim(filelst1(i)) || ".sas"; isfile=fileexist(fileset); if isfile=1 then fileopts=trim(fileyes); else fileopts=trim(fileno); rc=filename(filelst1(i),fileset,"",fileopts); end; array filelst2{48} $ filedt1-filedt48 ('admit','aprdata','aug99dat', 'bookdata','cardata','census','choldata','citydata','credit2','credit3', 'credit4','credit5','creditc','creditcr','cc','cccomma','data97', 'empdata','excdata1', 'excdata2','excdata3','exer','group3','invent','invent1','invent2', 'jan98dat','loan','memdata','newloans','orderdat','patdata','personel', 'phonsurv','powerdat','pubdata','rawdata','salary','saledata','satdata1','satdata2', 'stordata','survey1','tempdata','tests','tests2','topten', 'vandata'); do i=1 to dim(filelst2); if (host="CMS") then fileset=trim(filelst2(i)) || " data *"; else fileset=trim(filepath) || dlm || trim(filelst2(i)) || ".dat"; isfile=fileexist(fileset); if isfile=1 then fileopts=trim(fileyes); else fileopts=trim(fileno); rc=filename(filelst2(i),fileset,"",fileopts); end; run;
... View more