I have one summarized time-series dataset with two cat-vars, and like to do n-by-M plot with SGPLOT.   data _temp; do grp1=1 to 3; do grp2=1 to 3; do ind=1 to 100; y=grp1*10+grp2+sin(ind/10); output; end; end; end; run;quit; ods layout gridded columns=3 rows=3 advance=proc; proc sgplot data=_temp; by grp1 grp2; series x=ind y=y/ lineattrs=( color=red thickness=2 pattern=solid); run;quit; ods layout end; Somehow show up and 1*(n*m). Anyone can help?! ... View more

I have a zipped file with thousands of text files, and just need readin a few of them.    How to readin text file inside a zipped file without zipping?! Is that possible? Say the zipped file name is filezipped.zip and the file inside need be readin is file_0001.txt.  What would be the sample code?!   I know how to unzip the file within SAS and readin text file.  ... View more

I have one macro, can be invoked.  The number 10295 is the outcome which is right.  Somehow when I run inside the macro test() below, the macro appears not invoked and complains.   Anyone can help?!   %get_min_st_ind(zz500, 0827, 6, 0.1);   25006 %macro get_min_st_ind(indexout, dt, i_mm_ind, th_pct); 25007 %local _st_ind_lp_off_mm; 25008 %let _st_ind_lp_off_mm=0; 25009 proc sql noprint; 25010 select mm_ind into: _t_mm_ind from &indexout._&dt._mm_ind where i=&i_mm_ind.; 25011 select lp_st_ind into: _t_st_ind from &indexout._&dt._mm_ind where i=&i_mm_ind.; 25012 select lp_end_ind into: _t_end_ind from &indexout._&dt._mm_ind where i=&i_mm_ind.; 25013 quit; 25014 25015 data _index_temp; 25016 set &indexout._&dt._pout_wt(where=(ind between &_t_end_ind. and &_t_mm_ind.)); 25017 run; 25018 25019 proc sort data=_index_temp ; by DESCENDING ind; run;quit; 25020 25021 data _index_temp; set _index_temp; 25022 retain index_max index_off_max_max; 25023 if _N_=1 then do; 25024 index_max=&indexout.; index_off_max_max=0; 25025 end; 25026 else do; 25027 if &indexout.>index_max then index_max=&indexout.; 25028 index_off_max=index_max-&indexout.; 25029 if index_off_max>index_off_max_max then index_off_max_max=index_off_max; 25030 end; 25031 run;quit; 25032 25033 /*proc sgplot data=_index_temp; 25034 series x=ind y=index_off_max_max / lineattrs=( color= black thickness=2 25034! pattern=solid); 25035 series x=ind y=index_off_max / lineattrs=( color= blue thickness=2 pattern=solid); 25036 series x=ind y=index_max / lineattrs=( color=red thickness=2 pattern=solid); 25037 series x=ind y=&indexout. / y2axis lineattrs=( color=lime thickness=2 25037! pattern=solid); 25038 refline 0.1/axis=y lineattrs=(color=lime thickness=2 pattern=solid); 25039 run;quit; 25040 proc sort data=_index_temp ; by ind; run;quit;*/ 25041 25042 proc sql noprint; 25043 select ind into: _st_ind_lp_off_mm from _index_temp where index_off_max_max<&th_pct. having 25043! &indexout.=max(&indexout.); 25044 quit; 25045 25046 &_st_ind_lp_off_mm 25047 %mend; 25048 25049 %get_min_st_ind(zz500, 0827, 6, 0.1); MLOGIC(GET_MIN_ST_IND): Beginning execution. MLOGIC(GET_MIN_ST_IND): Parameter INDEXOUT has value zz500 MLOGIC(GET_MIN_ST_IND): Parameter DT has value 0827 MLOGIC(GET_MIN_ST_IND): Parameter I_MM_IND has value 6 MLOGIC(GET_MIN_ST_IND): Parameter TH_PCT has value 0.1 MLOGIC(GET_MIN_ST_IND): %LOCAL _ST_IND_LP_OFF_MM MLOGIC(GET_MIN_ST_IND): %LET (variable name is _ST_IND_LP_OFF_MM) MPRINT(GET_MIN_ST_IND): proc sql noprint; MPRINT(GET_MIN_ST_IND): select mm_ind into: _t_mm_ind from zz500_0827_mm_ind where i=6; MPRINT(GET_MIN_ST_IND): select lp_st_ind into: _t_st_ind from zz500_0827_mm_ind where i=6; MPRINT(GET_MIN_ST_IND): select lp_end_ind into: _t_end_ind from zz500_0827_mm_ind where i=6; MPRINT(GET_MIN_ST_IND): quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.01 seconds cpu time 0.00 seconds MPRINT(GET_MIN_ST_IND): data _index_temp; MPRINT(GET_MIN_ST_IND): set zz500_0827_pout_wt(where=(ind between 7449 and 10747)); MPRINT(GET_MIN_ST_IND): run; NOTE: There were 3299 observations read from the data set WORK.ZZ500_0827_POUT_WT. WHERE (ind>=7449 and ind<=10747); NOTE: The data set WORK._INDEX_TEMP has 3299 observations and 25 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds MPRINT(GET_MIN_ST_IND): proc sort data=_index_temp ; MPRINT(GET_MIN_ST_IND): by DESCENDING ind; MPRINT(GET_MIN_ST_IND): run; NOTE: There were 3299 observations read from the data set WORK._INDEX_TEMP. NOTE: The data set WORK._INDEX_TEMP has 3299 observations and 25 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.02 seconds cpu time 0.00 seconds MPRINT(GET_MIN_ST_IND): quit; MPRINT(GET_MIN_ST_IND): data _index_temp; MPRINT(GET_MIN_ST_IND): set _index_temp; MPRINT(GET_MIN_ST_IND): retain index_max index_off_max_max; MPRINT(GET_MIN_ST_IND): if _N_=1 then do; MPRINT(GET_MIN_ST_IND): index_max=zz500; MPRINT(GET_MIN_ST_IND): index_off_max_max=0; MPRINT(GET_MIN_ST_IND): end; MPRINT(GET_MIN_ST_IND): else do; MPRINT(GET_MIN_ST_IND): if zz500>index_max then index_max=zz500; MPRINT(GET_MIN_ST_IND): index_off_max=index_max-zz500; MPRINT(GET_MIN_ST_IND): if index_off_max>index_off_max_max then index_off_max_max=index_off_max; MPRINT(GET_MIN_ST_IND): end; MPRINT(GET_MIN_ST_IND): run; NOTE: There were 3299 observations read from the data set WORK._INDEX_TEMP. NOTE: The data set WORK._INDEX_TEMP has 3299 observations and 28 variables. NOTE: DATA statement used (Total process time): real time 0.00 seconds cpu time 0.00 seconds MPRINT(GET_MIN_ST_IND): quit; MPRINT(GET_MIN_ST_IND): proc sql noprint; MPRINT(GET_MIN_ST_IND): select ind into: _st_ind_lp_off_mm from _index_temp where index_off_max_max<0.1 having zz500=max(zz500); NOTE: The query requires remerging summary statistics back with the original data. MPRINT(GET_MIN_ST_IND): quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.00 seconds MPRINT(GET_MIN_ST_IND): 10295 MLOGIC(GET_MIN_ST_IND): Ending execution. %macro test(); %if %checkds(_index_temp) eq 1 %then %do; %put "file exists"; %end; %if %get_min_st_ind(zz500, 0827, 6, 0.1) eq 10295 %then %do; %put "FINE"; %end; %mend; %test(); 25050 %macro test(); 25051 %if %checkds(_index_temp) eq 1 %then %do; 25052 %put "file exists"; 25053 %end; 25054 %if %get_min_st_ind(zz500, 0827, 6, 0.1) eq 10295 %then %do; 25055 %put "FINE"; 25056 %end; 25057 %mend; 25058 25059 %test(); MLOGIC(TEST): Beginning execution. MLOGIC(CHECKDS): Beginning execution. MLOGIC(CHECKDS): Parameter DSN has value _index_temp MLOGIC(CHECKDS): %LOCAL DS_EXIST MLOGIC(CHECKDS): %LET (variable name is DS_EXIST) MLOGIC(CHECKDS): %IF condition %sysfunc(exist(&dsn)) is TRUE MLOGIC(CHECKDS): %LET (variable name is DS_EXIST) MLOGIC(CHECKDS): Ending execution. MLOGIC(TEST): %IF condition %checkds(_index_temp) eq 1 is TRUE MLOGIC(TEST): %PUT "file exists" "file exists" MLOGIC(GET_MIN_ST_IND): Beginning execution. MLOGIC(GET_MIN_ST_IND): Parameter INDEXOUT has value zz500 MLOGIC(GET_MIN_ST_IND): Parameter DT has value 0827 MLOGIC(GET_MIN_ST_IND): Parameter I_MM_IND has value 6 MLOGIC(GET_MIN_ST_IND): Parameter TH_PCT has value 0.1 MLOGIC(GET_MIN_ST_IND): %LOCAL _ST_IND_LP_OFF_MM MLOGIC(GET_MIN_ST_IND): %LET (variable name is _ST_IND_LP_OFF_MM) ERROR: A character operand was found in the %EVAL function or %IF condition where a numeric operand is required. The condition was: %get_min_st_ind(zz500, 0827, 6, 0.1) eq 10295 MLOGIC(GET_MIN_ST_IND): Ending execution. ERROR: The macro TEST will stop executing. MLOGIC(TEST): Ending execution. ... View more

I know how to assign MVar like below.    %let ref_mm_ind=100; %let ref_mm_ind_stind=%sysfunc(max(10,%eval(&ref_mm_ind.-150*4))); Now I have another macro variable, mmnote, which can be max or min.   Now I need if mmnote=max, assign 400 to  ref_mm_ind_stind; if mmnote=min, keep untouch  as above. How to do with just %let lines?! Thanks,  ... View more