1

Size: px

Start display at page:

Download "1"

おさむちとく
7 years ago
Views:

2 DATA temp SET sashelp.class(where=(sex='m')) FORMAT=weight 8.2 RUN 28 DATA temp 29 SET sashelp.class(where=(sex='m')) NOTE: SCL 30 FORMAT=weight ERROR : 1 :,!!, &, *, **, +, -, /, <, <=, <>, =, >, ><, >=, AND, EQ, GE, GT, LE, LT, MAX,MIN, NE, NG, NL, OR, ^=,,, ~=. RUN DATA girls SET sashelp.class IF sex='f' THEN OUTPUT women RUN 48 DATA girls 49 SET sashelp.class NOTE: SCL 50 IF sex='f' THEN OUTPUT women ERROR : DATA 51 RUN DATA price INPUT item $ totprice unit uprice=totprice/unit CARDS RUN 78 DATA price 79 INPUT item $ totprice unit 80 uprice=totprice/unit 81 CARDS NOTE: RULE: item= totprice=110 unit=0 uprice=. _ERROR_=1 _N_=3 NOTE: ( ) ( : ) 1 80:20 NOTE: WORK.PRICE 3

class IF sex='f' THEN OUTPUT women RUN 48 DATA girls 49 SET sashelp.

3 4 NOTE: DATA : 0.07 CPU 0.07 DATA emp_feb INPUT empno $ birthday INFORMAT birthday yymmdd10. FORMAT birthday yymmdd10. CARDS /02/ /02/ /02/ /02/02 RUN 12 DATA emp_feb 13 INPUT empno $ birthday 14 INFORMAT birthday yymmdd FORMAT birthday yymmdd CARDS NOTE: birthday RULE: /02/29 empno=00116 birthday=. _ERROR_=1 _N_=3 NOTE: WORK.EMP_FEB 4 2 NOTE: DATA : 0.05 CPU RUN DATA logic SET sashelp.class IF age > 11 THEN FLAG=1 RUN PROC CONTENTS DATA=test.prdsale RUN DATA test.prdsale2 SETS test.prdsale salespct=predict/actual label salespct='' RUN PROC CONTENTS DATA=test.prdsale RUN

15 FORMAT birthday yymmdd10. 16 CARDS NOTE: birthday 19 7-16 RULE: ----+----1----+----2----+----3----+----4 19 00116 1961/02/29 empno=00116 birthday=.

4 3 DATA test.prdsale2 1 4 SETS test.prdsale 2 5 salespct=predict/actual 6 label salespct='' 7 RUN NOTE: actual NOTE: predict NOTE: ( )( : ) 1 5:20 NOTE: NOTE: NOTE: TEST.PRDSALE OPTIONS OBS=0 NOREPLACE/* For Debug */ PROC CONTENTS DATA=test.prdsale RUN DATA test.prdsale2 SETS test.prdsale salespct=predict/actual label salespct='' RUN PROC CONTENTS DATA=test.prdsale RUN NOTE: TEST.PRDSALE2 1 3 WARNING:NOREPLACETEST.PRDSALE2 NOTE: WORK.SETS 13 NOTE: TEST.PRDSALE 1 3 WARNING: NOREPLACE TEST.PRDSALE NOTE: DATA : 0.02 CPU DATA prdsale SET sashelp.prdsale(firstobs=11 OBS=20) totact+actual RUN PROC PRINT DATA=prdsale VAR actual totact

PRDSALE 1 3 3 1 2 3 OPTIONS OBS=0 NOREPLACE/* For Debug */ PROC CONTENTS DATA=test.prdsale RUN DATA test.prdsale2 SETS test.

5 RUN 1 DATA prdsale 2 SET sashelp.prdsale(firstobs=11 OBS=20) 3 totact+actual 4 RUN NOTE: SASHELP.PRDSALE 10 1 NOTE: WORK.PRDSALE NOTE: DATA : 0.59 CPU PROC PRINT DATA=prdsale 7 VAR actual totact 8 RUN NOTE: WORK.PRDSALE 10 NOTE: PROCEDURE PRINT : 0.34 CPU 0.01 DATA emp_feb INPUT empno $ birthday INFORMAT birthday yymmdd10. FORMAT birthday yymmdd10. IF MONTH(birthday)^=2 THEN DO ERROR 'ERROR: ' DELETE CARDS /02/ /02/ /03/ /02/02 RUN 1 DATA emp_feb 2 INPUT empno $ birthday 3 INFORMAT birthday yymmdd10. 4 FORMAT birthday yymmdd10. 5 IF MONTH(birthday)^=2 THEN DO 6 ERROR 'ERROR: ' 7 DELETE 8 9 CARDS ERROR: RULE: /03/01 empno=00116 birthday= _ERROR_=1 _N_=3 NOTE: WORK.EMP_FEB 3 2 DATA booksout FORMAT bookname $40. outdate yymmdd10. duedate yymmdd10. INPUT rectype IF rectype='d' THEN outdate yymmdd10. ELSE IF rectype='b' THEN DO INPUT bookname $ 3-43 duedate=outdate+3 OUTPUT DROP rectype CARDS D 2002/10/08 B SAS B UNIXSAS D 2002/10/09 B SAS/GRAPH B SAS RUN

6 OBSbookname outdateduedate 1SAS.. 2UNIXSAS.. 3SAS/GRAPH.. 4SAS.. DATA booksout INFILE CARDS OBS=2 FORMAT bookname $40. outdate yymmdd10. duedate yymmdd10. INPUT rectype IF rectype='d' THEN DO outdate yymmdd10. PUT 'Record D: ' bookname= outdate= duedate= ELSE IF rectype='b' THEN DO INPUT bookname $ 3-43 duedate=outdate+3 PUT 'Record B: ' bookname= outdate= duedate= OUTPUT DROP rectype Record D: bookname= outdate= duedate=. Record B: bookname=sas outdate=. duedate=. NOTE: ( )( : ) DATA booksout FORMAT bookname $40. outdate yymmdd10. duedate yymmdd10. RETAIN outdate INPUT rectype DATA direct1 DO pickup=1 to totobs by 100 SET sashelp.prdsale POINT=pickup NOBS=totobs OUTPUT STOP RUN

PUT 'Record D: ' bookname= outdate= duedate= ELSE IF rectype='b' THEN DO INPUT bookname $ 3-43 duedate=outdate+3 PUT 'Record B: ' bookname= outdate= duedate= OUTPUT DROP rectype

7 1 DATA direct1 2 DO pickup=1 to totobs by SET sashelp.prdsale POINT=pickup NOBS=totobs 4 OUTPUT 5 6 STOP 7 RUN NOTE: WORK.DIRECT NOTE: DATA : 0.08 CPU 0.06 DATA direct2(drop=samppct) samppct=20 DO pickup=1 to totobs by (totobs/(totobs*(samppct/100))) SET sashelp.prdsale POINT=pickup NOBS=totobs OUTPUT STOP RUN DATA exist2 SET sashelp.class RUN DATA _null_ dsexist=exist('work.exist') IF dsexist=1 THEN PUT 'NOTE: WORK.SAMPLE' ELSE DO ERROR 'ERROR: WORK.SAMPLE' RUN %let cutoff=%sysfunc(getoption(yearcutoff)) OPTIONS yearcutoff=1900 DATA newborn IF GETOPTION('YEARCUTOFF') >= '1920' THEN DO INPUT name $ sex $ birthday:yymmdd8. FORMAT birthday yymmdd10. ELSE DO PUT 'NOTE: YEARCUTOFF' STOP CARDS FUUKA F 02/01/28 TERUAKI M 02/09/03 TAISEI M 03/01/15 RUN OPTIONS yearcutoff=&cutoff NOTE: YEARCUTOFF NOTE: WORK.NEWBORN 0 3 NOTE: DATA : 0.07 CPU 0.07

class RUN DATA _null_ dsexist=exist('work.exist') IF dsexist=1 THEN PUT 'NOTE: WORK.SAMPLE' ELSE DO ERROR 'ERROR: WORK.

8 DATA emp_feb INPUT empno $ birthday INFORMAT birthday yymmdd10. FORMAT birthday yymmdd10. IF MONTH(birthday)^=2 THEN DO ERROR 'ERROR: ' _n_ ' ' DELETE CARDS /02/ /02/ /03/ /02/02 RUN ERROR: 3 RULE: /03/01 empno=00116 birthday= _ERROR_=1 _N_=3 NOTE: WORK.EMP_FEB 3 2

1960/02/29 00116 1961/03/01 00249 1976/02/02 RUN ERROR: 3 RULE:

9 %macro check(mvar) %* mvar: %local i tmp %let dsid=%sysfunc(open(sashelp.vmacro)) %let num=%sysfunc(varnum(&dsid,name)) %do %until(&ob = -1) %let i=%eval(&i+1) %let ob=%sysfunc(fetchobs(&dsid,&i)) %let val=%sysfunc(getvarc(&dsid,&num)) %if &val = %upcase(&mvar) %then %do %let ob = -1 %let tmp=yes %end %else %do %let tmp=no %end %if &ob=-1 %then %do &tmp %end %end %let rc=%sysfunc(close(&dsid)) %mend check %put Does the macro variable exist: %check(abc) %macro check2(mvar) %* mvar: %global _exist %let _exist= proc sql noprint select count(*) into :_chk from sashelp.vmacro where name = "%upcase(&mvar)" quit %if &_chk = 0 %then %let _exist=no %else %let _exist=yes %mend check2 %check2(abc) %put &_exist WHERE string LIKE "B%"

%upcase(&mvar) %then %do %let ob = -1 %let tmp=yes %end %else %do %let tmp=no %end %if &ob=-1 %then %do &tmp %end %end %let rc=%sysfunc(close(&dsid)) %mend check %put Does the macro

10 data test input kamoku $ hantei $ *if KSUBSTR(hantei,1,1)="" /* KSUBSTR*/ if hantei = :"" /* */ cards proc print data=test noobs kamoku hantei %put %SYSGET(USERNAME) %put %SYSGET(LOGNAME) %put &SYSUSERID ^{super 2} data test /* */ input x y freq cards ODS ESCAPECHAR='^' /* */ ODS HTML FILE='c:\test.html' TITLE '_^{super 2}' /* */ proc freq data=test tables x*y/chisq weight freq ODS HTML CLOSE ^{sub 2} SAS.*MultiClickTime: SAS.*MultiClickTime:400 sas_ja -xrm "SAS.*MultiClickTime:400"

$12 1 2 21 2 1 19 2 2 31 ODS ESCAPECHAR='^' /* */ ODS HTML FILE='c:\test.$

11 /* """:"""*/ data _null_ A="1130" B=input(KTRANSLATE(A,":","","",""),TIME5.) put B= TIME5. /*OUTDESIGN=out1*/ proc glmmod data=a outdesign=out1 noprint class drug disease model y=drug disease drug*disease proc print data=out1 ods listing close /*ODS OUTPUTout2*/ ods output DesignPoints=out2 proc glmmod data=a class drug disease model y=drug disease drug*disease ods listing proc print data=out2 proc transreg data=a design model class(drug disease) output out=out3 proc print data=out3 proc transreg data=a design model class(drug disease / effect) /*EFFECT*/ output out=out4 proc print data=out4

close /*ODS OUTPUTout2*/ ods output DesignPoints=out2 proc glmmod data=a class drug disease model y=drug disease drug*disease ods listing proc print

12 data test/* */ input before cards proc ttest data=test paired after*before data test2/* */ set test diff=after-before proc univariate data=test2 /* DIFF */ var diff

15 T E L F A X JPNBooksale@sas.com

DATA Sample1 /**/ INPUT Price /* */ DATALINES

3180, 3599, 3280, 2980, 3500, 3099, 3200, 2980, 3380, 3780, 3199, 2979, 3680, 2780, 2950, 3180, 3200, 3100, 3780, 3200 DATA Sample1 /**/ INPUT Price @@ /* @@1 */ DATALINES 3180 3599 3280 2980 3500 3099