About chang_y_chung_hotmail_com

chang_y_chung_hotmail_com · ‎12-05-2012

Wonder if you find these two macros of mine handy: %*-- two utilities --*; %macro date2num(date, informat=anydtdte.); %*-- strip quotations and postfix d from date literal if any. --*; %*-- quotations are intentionally doubled to prevent unmatched error --*; %let date=%sysfunc(prxchange(s/[''""]d?//i,-1,&date)); %sysfunc(inputn(&date,&informat)) %mend date2num; %macro num2date(num, format=date10., literal=1); %local n; %let n = %sysfunc(putn(&num,&format)); %if &literal %then "&n"d; %else &n; %mend num2date; %*-- usage example --*; %let date1 = 30nov2012; %let barry = %sysfunc(putn("&date1"d-1, date9.)); %let chang = %num2date(%date2num(&date1) - 1, literal=0); %put barry=&barry chang=&chang; %*-- on log barry=29NOV2012 chang=29NOV2012 --*;

chang_y_chung_hotmail_com · ‎11-26-2012

I would suggest not creating name_i macro variable at all. Here is a simple example. Hope this helps a bit. /* create test datasets */ proc sql; create table have as select name, height, weight from sashelp.class; create table names as select name, age from sashelp.class; quit; /* given an age, create a dataset want that subsets indirectly through name */ %macro ageOf(age, data=have, out=want, names=names, debug=0); %if %superq(age)= %then %return; %local print; %if &debug %then %let print = %nrstr(select &age as age, * from &out;); proc sql; create table &out as select * from &data as d where d.name in (select name from &names where age = &age); %unquote(&print) quit; %mend ageOf; %ageOf(10, debug=1) %*-- on log NOTE: Table WORK.WANT created, with 0 rows and 3 columns. --*; %ageOf(11, debug=1) %*-- on lst age Name Height Weight -------------------------------------- 11 Joyce 51.3 50.5 11 Thomas 57.5 85 --*;

chang_y_chung_hotmail_com · ‎11-19-2012

I disagree with RichardinOz since proc fcmp solution is straight-forward. See below. This is efficient as well, because the hash is loaded only once. hth. proc fcmp outlib=work.funcs.age; function age(name $); declare hash h(dataset:"sashelp.class"); rc=h.definedata("age"); rc=h.definekey("name"); rc=h.definedone(); ok = 0; if h.find() = ok then return(age); else return(.); endsub; quit; options cmplib=work.funcs; data _null_; set sashelp.class(keep=name); age = age(name); put name= age=; run; /* Name=Alfred age=14 Name=Alice age=13 ... Name=William age=15 */

chang_y_chung_hotmail_com · ‎11-13-2012

@Astounding: if so, then the strip would return "101", when the input was "10001," wouldn't it? @Art: Thanks for the correction. I've got confused. Astounding and you are absolutely correct. strip(...) is equivalent to trimn(left(...))

chang_y_chung_hotmail_com · ‎11-13-2012

Another prx solution, handling the "00000" separately. ods _all_ close; ods listing; options nocenter; data test; Input textchar : $5.; cards; 00100 00101 01010 10100 10101 11111 10001 00011 11000 00000 ; run; data chang; set test; length new4 $5; if textchar = "00000" then new4 = "0"; else new4 = prxchange("s|^0*(.*?)0*$|$1|", -1, textchar); run; proc print data=chang; run; /* on lst Obs textchar new4 1 00100 1 2 00101 101 3 01010 101 4 10100 101 5 10101 10101 6 11111 11111 7 10001 10001 8 00011 11 9 11000 11 10 00000 0 */

chang_y_chung_hotmail_com · ‎11-09-2012

%include is not a macro invocation, but rather something like a "compiler directive" in other computer languages. This affects the timing when exactly the source is "included," which is earlier than the timing expected by a macro invocation. Anyway, I agree with Arthur in that there may be a better way to implement what you are trying to do. But, if you insist, then here is something close to what you asked for. /* save this file as c:\temp\test.sas before you submit it */ x cd "c:\temp\"; %macro bulk(ok); %put this is the <bulk> &=ok; %mend bulk; data _null_; if not symexist("ok") then do; call execute('%global ok; %let ok=0;'); call execute('%bulk(ok=&ok);'); call execute('%let ok=1;'); call execute('%include "c:\temp\test.sas";'); end; else do; call execute('%bulk(ok=&ok)'); call execute('%symdel ok;'); end; run; /* on log -- some notes removed this is the <bulk> OK=0 ... this is the <bulk> OK=1 */

chang_y_chung_hotmail_com · ‎10-22-2012

@DanielSantos: sas macro does not have the lexical scope. thus no need to nest a macro definition inside the other. This case does not require calling the main function recursively either. Checking for a dash and "un-dashing" if necessary should be enough. %*-- "undash" a dashed list of a v# - v# type --*; %macro undash(dashed); %local prx from prefix1 prefix2 to i; %let prx = ^\s*([_A-Za-z]+)(\d+)\s*[-]\s*([_A-Za-z]+)(\d+)\s*$; %let prefix1 = %sysfunc(prxchange(s|&prx|$1|, 1, &dashed)); %let from = %sysfunc(prxchange(s|&prx|$2|, 1, &dashed)); %let prefix2 = %sysfunc(prxchange(s|&prx|$3|, 1, &dashed)); %let to = %sysfunc(prxchange(s|&prx|$4|, 1, &dashed)); %*-- if something is wrong then return nothing --*; %if &prefix1 ^= &prefix2 or &to < &from %then %return; %do i = &from %to &to - 1; %*;&prefix1&i %*;%str( ) %end; %*;&prefix1&to %mend undash; %*-- main --*; %macro doOver(varlist); %if %index(&varlist,-) %then %let varlist = %undash(&varlist); %if &varlist= %then %return; %local i n var; %let n = %sysfunc(countc(&varlist, %str( ))) + 1; %do i = 1 %to &n; %let var = %scan(&varlist, &i, %str( )); %*;%exec(&var) %end; %mend doOver; %*-- check --*; %*-- this is our macro to call with each var --*; %macro exec(var); %put do something with &var; %mend exec; %doOver(a1-a3) %doOver(b1 b3 b5) %*-- on log do something with a1 do something with a2 do something with a3 do something with b1 do something with b3 do something with b5 --*;

chang_y_chung_hotmail_com · ‎10-22-2012

You don't have to use the DoW or any other programming patterns until you feel comfortable with the data step. Here is a non-DoW version. ods _all_ close; ods listing; options nocenter; /* test data */ data one; input bank date :date9. acc $ bal prod :& $13. band :& $7.; format date date10.; cards; 10 31DEC2010 4444444444 25 Personal Loan NPNA 10 31MAR2011 4444444444 18 Personal Loan NPNA 10 31JAN2011 4444444444 18 Personal Loan 1 - 30 10 31MAY2011 4444444444 85 Personal Loan Current 10 30APR2011 4444444444 18 Personal Loan NPNA 10 28FEB2011 4444444444 18 Personal Loan NPNA 10 28FEB2010 4444444444 25 Personal Loan NPNA ; run; proc sort data=one out=two; by bank acc date; run; /* flag the last date where the account changes to npna */ data three; set two; by bank acc band notsorted; retain since .; if first.acc then call missing(since); if first.band and band = "NPNA" then since = date; if last.acc then output; keep bank acc since; format since date10.; run; proc print data=three; run; /* on lst Obs bank acc since 1 10 44444444 28FEB2011 */

chang_y_chung_hotmail_com · ‎10-16-2012

@Art: Thanks for the link to the wiki page. I've read this with much interest and appreciate of it a lot that you and Don put this useful discussion together! As the title of the wiki page reads, however, this is a matter of style, not of a syntactic correctness. As such, I am just expressing my preference of a more consistent style of using dots all the time to using it only when necessary. Maybe I am more tolerant of the dots, than most 🙂 I also think it is easier to teach a macro novice to start using it all the time (and tell them that the dot can be dropped when there is other suitable thing(s) in the place for the parser to rely on in getting the desired token, i.e., blanks, semicolons, and so on.), since then you don't have to explain why you need to put two dots in your two-word dataset name when the library name is substituted with a macro var reference: like: data &myLib..one; Or in between a filename and a filetype like: infile "&myFileName..dat";

chang_y_chung_hotmail_com · ‎10-16-2012

ballardw wrote: > This thread https://communities.sas.com/thread/35661 has an example where at least in some versions of SAS it can cause a problem. It would surprise me if it was the dot(.) that caused the problem. I see an unbalanced double quotes in the OP's code (of that thread you mention): %Let monyyyy = %sysfunc(putn(%sysfunc(today()),monyy7.)); %Macro chk; Data _null_; if not fileexist("C:\Reports\&monyyyy.\&sysdate.") then rc=system("mkdir "C:\Reports\&monyyyy.\&sysdate."); /* <-- */ Run; %Let fpath = C:\Reports\&monyyyy.\&sysdate.; libname rep "&fpath."; %Mend; %Chk;

chang_y_chung_hotmail_com · ‎10-16-2012

I think the OP's question is a bit biased already. Correctly understood/used, the optional trailing dot does not cause any trouble at all, thus no reason to avoid it intentionally. In some cases, we must not avoid using it! I would rather regard a macro coder highly if the person uses trailing dots consistently, including the two trailing dots to end an indirect reference like this: %let i = 1; %let a1 = x; %put &&a&i..; %*-- on log x --*; I would rather suspicious of the coder if he/she insists that three or more consecutive ampersands are absolutely necessary.

chang_y_chung_hotmail_com · ‎10-04-2012

I agree with Ahmed on using hash. Here is a working example. hth. ods _all_ close; ods listing; options nocenter; %let seed = 1234567; /* 1.6M id^s */ data one; do id = 1 to 1.6e6; output; end; run; /* 4M id^s and a var written out to a text file */ data two; do id = 1 to 4e6; x = ceil(4e6 * ranuni(&seed)); output; end; run; data _null_; file 'work.temp.two.source' catalog; set two; put (id x) (7.0); run; /* reading only the two obs whose id matches first -- using hash */ data three; if _n_ = 1 then do; dcl hash h(dataset:"one"); h.definekey('id'); h.definedone(); call missing(id); end; infile 'work.temp.two.source' catalog; input id 7.0 @; if h.find() = 0 then do; input x 7.0 @; output; end; input; run; /* check */ proc sort data=three; by id; run; proc compare base=two(where=(id<=1.6e6)) compare=three; run; /* on lst NOTE: No unequal values were found. All values compared are exactly equal */

chang_y_chung_hotmail_com · ‎08-21-2012

This simple prx approach does the right thing except for one line: "XXXXX Finance Corp. 0%" ods _all_ close; ods listing; options nocenter; /* test data */ data one; infile cards truncover; input line $char100.; cards4; 0.0028 "XXXXX U.S. FUNDING DCP, 08/01/2012 / " 0.140000% "Xxxxxx Health & Educational Facilities Authority, NATL-RE" 0.430000% 0.450% Due 12/06/12 14633 - 0.520% 16438 0.65% 01/26/13 XXXXXX FINANCE LTD (Q21, Q) 0.646852% BANK OF XXXXXXX .12% YCD 0.12% BANK OF XXX XXXXXX XXX CO NY00.090% 08/07/2012 CP BANK OF XXXXXX XXXX XXX LTD (NY BRANCH) 0.52 XX&X CORP Xxxxxxx Xxxxx Xxxxxxxx Ltd./LLC 0.253506% Xxxxxx Dev. Auth. Poll. Cont. Rev., 0.45% Bonds (New England Pwr. Co. Proj.) Series 1999, tender 08/15/2012, CP Mode Xxxxx Xxxxxx Capital Co.;0.501% Xxxxx Xxxxx Xxxxxx, 0.4% X X X X X X X 0.375 12/28/2012 XXXX Xxxxx Xxxxx, A1+/P1 Series, 0.420%, 1/15/2013 XXX XXXX XX XXXXXX XX 2012-8-17 0.0008 XXXXXXX XXXXX XXXXXX XXXX 00.2300 01/14/2013 XXX XXXXXXX CP 0.17% XXXXXXX XXXXXXX CORP. 0.220 In a joint trading account with XXXXX Xxxxx (USA), Inc. at 0.16%, dated 7/31/2012 due 08/01/2012 XXXX BANK-NEW YORK 0.4 XXXXX Finance Corp. 0% XXXXX & XXXXXX XXXXXXXX (THE)00.140% 08/07/2012 CP 144A Xxx Xxxxxx C D 0.500 09/04/2012 REPO XXXXX XXXXX 0.31 08/22/2012 XXXXX XXXXX CORP00.190% 10/10/2012 CP Xxxxxx Xxxx Xxxx 0.300% Var .310% Due 01/24/13 XXXXX XXXX CORP.-0.580 XXX XXX XXX CO 98137RH29 DCP 08/02/2012 U.S. TREASURY NOTES-4.327 MUNICIPAL GAS AUTH-1.967 New York City NY GO 5.000000% ;;;; run; /* extract percentages */ data two; set one; length s $20; s = prxchange("s/^.*?((\-{0,1}\d*\.\d+)).*$/$1/", 1, line); if not missing(s) then pct = input(s, ?? best.); put (line pct) (/=) /; run; /* line=0.0028 pct=0.0028 line="XXXXX U.S. FUNDING DCP, 08/01/2012 / " 0.140000% pct=0.14 line="Xxxxxx Health & Educational Facilities Authority, NATL-RE" 0.430000% pct=0.43 line=0.450% Due 12/06/12 pct=0.45 line=14633 - 0.520% pct=0.52 line=16438 0.65% 01/26/13 pct=0.65 line=XXXXXX FINANCE LTD (Q21, Q) 0.646852% pct=0.646852 line=BANK OF XXXXXXX .12% YCD 0.12% pct=0.12 line=BANK OF XXX XXXXXX XXX CO NY00.090% 08/07/2012 CP pct=0.09 line=BANK OF XXXXXX XXXX XXX LTD (NY BRANCH) 0.52 pct=0.52 line=XX&X CORP pct=. line=Xxxxxxx Xxxxx Xxxxxxxx Ltd./LLC 0.253506% pct=0.253506 line=Xxxxxx Dev. Auth. Poll. Cont. Rev., 0.45% Bonds (New England Pwr. Co. Proj.) Series 1999, ten der 08/ pct=0.45 line=Xxxxx Xxxxxx Capital Co.;0.501% pct=0.501 line=Xxxxx Xxxxx Xxxxxx, 0.4% pct=0.4 line=X X X X X X X 0.375 12/28/2012 pct=0.375 line=XXXX Xxxxx Xxxxx, A1+/P1 Series, 0.420%, 1/15/2013 pct=0.42 line=XXX XXXX XX XXXXXX XX 2012-8-17 0.0008 pct=0.0008 line=XXXXXXX XXXXX XXXXXX XXXX 00.2300 01/14/2013 pct=0.23 line=XXX XXXXXXX CP 0.17% pct=0.17 line=XXXXXXX XXXXXXX CORP. 0.220 pct=0.22 line=In a joint trading account with XXXXX Xxxxx (USA), Inc. at 0.16%, dated 7/31/2012 due 08/01/2 012 pct=0.16 line=XXXX BANK-NEW YORK 0.4 pct=0.4 line=XXXXX Finance Corp. 0% pct=. line=XXXXX & XXXXXX XXXXXXXX (THE)00.140% 08/07/2012 CP 144A pct=0.14 line=Xxx Xxxxxx C D 0.500 09/04/2012 pct=0.5 line=REPO XXXXX XXXXX 0.31 08/22/2012 pct=0.31 line=XXXXX XXXXX CORP00.190% 10/10/2012 CP pct=0.19 line=Xxxxxx Xxxx Xxxx 0.300% pct=0.3 line=Var .310% Due 01/24/13 pct=0.31 line=XXXXX XXXX CORP.-0.580 pct=-0.58 line=XXX XXX XXX CO 98137RH29 DCP 08/02/2012 pct=. line=U.S. TREASURY NOTES-4.327 pct=-4.327 line=MUNICIPAL GAS AUTH-1.967 pct=-1.967 line=New York City NY GO 5.000000% pct=5 */ Message was edited by: Chang Y. Chung in order to read the whole line (thanks data _null_!); to fix the prx to read the leading negative sign; and to add three more data lines with pct > 1.

chang_y_chung_hotmail_com · ‎08-20-2012

Interesting! So OP would rather put: (nothing) But OP's boss (or the one who is scolding OP) wants OP to put: QUIT; And the Enterprise Guide puts (twice, in fact): QUIT; RUN; Finally, Vince puts the following at the end of every PROC (including PROC PRINT): RUN; QUIT;

chang_y_chung_hotmail_com · ‎08-16-2012

If the maximum possible number of phones (per person) is small enough, then the simplest approach works fastest. /* test data set */ data one; input id $ phone1-phone3; cards; A 111 222 111 B . 444 444 C 111 . 222 ; run; /* dedup phone numbers within a person -- straight-forward approach */ %macro missout1(max); %local i j; %do i = &max. %to 2 %by -1; %*;if %do j = 1 %to %eval(&i - 1); %if &j > 1 %then %*; |; %*; phone&i = phone&j %end; %*; then phone&i = .; %end; %mend missout1; data chang1; set one; %missout1(3) run; proc print data=chang1; run; /* on lst Obs id phone1 phone2 phone3 1 A 111 222 . 2 B . 444 . 3 C 111 . 222 */ /* an alternative solution using overlapping definition of arrays -- inspired by Ksharp^s solution using "in" operator, and by Art297^s reversed array definition */ %macro missout2(max); %local i j; %do i = 1 %to &max; array p&i. phone& i. - phone1; %end; %do i = &max %to 2 %by -1; %let j = %eval(&i - 1); if p&i[1] in p&j. then p&i[1] = .; %end; %mend missout2; data chang2; set one; %missout2(3) run; /* check */ proc compare base=chang1 compare=chang2; run; /* on lst NOTE: No unequal values were found. All values compared are exactly equal. */

Online Status	Offline
Date Last Visited	‎09-01-2015 07:11 AM

Re: How to create a macro date9 variable that's one day less than anot...

Re: Conditional Check if Macro variable value not resolved?

Re: Macro within data step

Re: Remove leading and trailing zeros from character field

Re: Remove leading and trailing zeros from character field

Re: Including a program within itself

Re: Repeat a macro

Re: Could you help to understand this DoW loop code?

Re: Is it ever important not to use a period behind a macro variable?

Re: Is it ever important not to use a period behind a macro variable?

Re: Datalines VS Cards.

Re: Macro within data step

Re: Extracting a part of the string

Re: Assigning a random numeric ID within a series of numbers

Re: Usage of macro variables in data step and table name

Re: Convert Long filename to Short (Dos) filename

Re: how to find the execution plan of proc sql?

Re: Remove leading and trailing zeros from character field

Re: Conditionally reading in very large data sets from raw data

Re: Assign a variable name to a variable in the data step

Re: How to create a macro date9 variable that's one day less than anot...

Re: Conditional Check if Macro variable value not resolved?

Re: Macro within data step

Re: Remove leading and trailing zeros from character field

Re: Remove leading and trailing zeros from character field

Re: Including a program within itself

Re: Repeat a macro

Re: Could you help to understand this DoW loop code?

Re: Is it ever important not to use a period behind a macro variable?

Re: Is it ever important not to use a period behind a macro variable?

Re: Is it ever important not to use a period behind a macro variable?

Re: Conditionally reading in very large data sets from raw data

Re: Extracting a part of the string

Re: Why use QUIT; with proc SQL?

Re: de-dup array