About slchen

slchen · ‎05-05-2015

You are right, if not even length of string, it should be modified as Data Have; Input Name $ 30.; _name=prxchange('s/(\w)(\w)?/\U$1\L$2/i',-1,name); cards; abcdefh ghfedcba IJKLMNOP qtunvjrf FgYhbde ; run;

slchen · ‎05-04-2015

I did this as Patrick suggested, maybe it will be helpful. data joseph_balances; input name$ 1-6 @13 amount dollar7. /string $50.//; datail=prxchange('s/(.*)\s(?=\d{1,2}\/\d{1,2}\/\d+).*/$1/i',-1,string); date=put(input(prxchange('s/.*\s(\d{1,2}\/\d{1,2}\/\d+).*/$1/',-1,string),anydtdte.),mmddyy8.); time=put(input(prxchange('s/.*\s(\d+:\d+ (AM|PM))/$1/',-1,string),time8.),time8.); drop string; cards; joseph paid $18.96 DTE March 15 5/4/15 12:19 PM for: All joseph paid $25.00 Internet March 15 4/10/15 8:54 PM for: All joseph paid $26.18 DTE Feb 2/24/15 7:28 AM for: All joseph paid $610.00 Rent March 15 2/21/15 10:43 AM for: All joseph paid $25.00 Internet Jan 15 2/11/15 12:11 PM for: All joseph paid $610.00 Rent Feb 15 2/3/15 2:42 PM for: All joseph paid $26.54 DTE Jan 15 1/21/15 11:55 AM for: All joseph paid $25.00 Internet December 14 1/15/15 3:27 PM for: All joseph paid $72.00 Book 1/8/15 3:27 PM for: All joseph paid $23.47 DTE Dec 13 1/4/15 3:47 PM for: All joseph paid $610.00 Rent Jan 2015 1/1/15 8:28 PM for: All joseph paid $25.00 Internet November 12/2/14 8:28 PM for: All joseph paid $610.00 Rent Dec 12/2/14 8:28 PM for: All joseph paid $23.77 DTE November 11/19/14 8:03 PM for: All joseph paid $610.00 Rent November 11/2/14 1:08 PM for: All edith gave $102.00 Debt settlement 10/28/14 8:51 PM to: joseph joseph paid $55.00 Internet Sep Oct 10/27/14 4:35 PM for: All joseph paid $24.59 DTE oct 10/23/14 10:05 PM for: All joseph paid $102.00 Licence 10/1/14 3:39 PM for: edith joseph paid $610.00 Rent oct 10/1/14 12:08 PM for: All joseph paid $23.63 DTE sept 9/19/14 3:45 PM for: All ; proc print; run;

slchen · ‎05-04-2015

Not sure whether this is what you need: %macro aid (v); %let i=1; %do %while (%scan(&v,&i)ne); %let var=%scan(&v,&i); proc sql; create table p&var. as select distinct agencyid, sum(answer='yes') as yes_count, sum(answer='yes')/24 as numerator, count(distinct unitid) as denominator, ((calculated numerator/calculated denominator)*100) as proportion from test1 where questionid in ('Q1','Q3','Q5') and agencyid=&var.; quit; %let i=%eval(&i+1); %end; %mend aid; %aid(%str(18 19 36))

slchen · ‎05-04-2015

Data Have; Input Name $ 30.; _name=prxchange('s/(\w)(\w)/\U$1\L$2/i',-1,name); cards; abcdefhg ghfedcba IJKLMNOP qtunvjrf FgYhbder ; run;

slchen · ‎04-30-2015

data want; set have; length string $200.; retain string; if index(string,catx('-',com1,com2))=0 then output; string=catx(',',string,catx('-',com2,com1)); drop string; run;

slchen · ‎04-10-2015

data want; length new_value $50.; do i=0 to 12 by 3; do p=1 to nobs; set have point=p nobs=nobs; num=i-value; _value=lag(value); if num<0 then do; new_value=catt(_value,' (picking this value is <', _value,')'); output; leave; end; end; end; stop; keep i new_value; run;

slchen · ‎04-08-2015

data have; input ID BIRTH_YR birth_num; cards; 10 2005 1 10 2010 3 12 2006 1 12 2008 2 14 2004 1 14 2006 2 14 2008 3 ; data want; do until(last.id); set have; by id; if birth_num=2 and lag(birth_num)=1 then flag=1; end; do until(last.id); set have; by id; if flag=1 then do; n+1; if n<=2 then output; end; end; call missing(n); drop n flag; run;

slchen · ‎04-08-2015

If I understand your question correctly, you could define other hash table, do like this: data results; set basedata; if _n_=1 then do; declare hash hs1(dataset:'hashdata'); hs1.definekey('key1','key2'); hs1.definedata('value'); hs1.definedone(); declare hash hs2(dataset:'hashdata'); hs2.definekey('key2'); hs2.definedata('value'); hs2.definedone(); end; if rc=hs1.find()=0 then output; else do; if hs2.find()=0 then output; end; run;

slchen · ‎04-06-2015

data have; informat product $20.; input product &; newfield=prxchange('s/.*(\w)/$1/',-1,product); cards; 1 YEAR TERM 10 YEAR TERM 15 YEAR TERM UNKNOWN ; run;

slchen · ‎04-03-2015

data have; pid=prxparse('/(\w+) (\w+\.?) (\w+)\,?(\D+)/'); input fullname $50.; if prxmatch('/^\S\b/',fullname)>0 then fullname=prxchange('s/^(\S\b)(\s\w+)(\s.*)/$2 $1$3/',-1,fullname); if prxmatch(pid,fullname) then firstname=prxposn(pid,1,fullname); middlename=prxposn(pid,2,fullname); lastname=prxposn(pid,3,fullname); suffix=prxposn(pid,4,fullname); cards; LAWRENCE P POWERS, III David R. Fox ROBERT STEVEN SHAPIRO JOHN E KIRK, IV A JOHN KIRK ; proc print; run;

slchen · ‎03-24-2015

Flag variable: data have; input string $20.; _string=findw(string,'yes','_','ik')>0; cards; yes yes no yes-book yes-internet no no_book New YES ; run; Change variables names: data want; set have; array chars _character_; array nums _numeric_; do over chars; chars=translate(chars,'Q', '_'); end; do over nums; nums=translate(nums,'Q', '_'); end; run;

slchen · ‎03-23-2015

This is also one of methods. %macro sort_names/parmbuff; filename clip clipbrd; data _null_; file clip dlm=','; put "&syspbuff"; data vars; infile clip dlm=','; input name $ @@; name=compress(name,'()'); run; proc sql; select name into:result separated by ',' from vars order by name; quit; %let result=(&result); %mend; %put %sort_names(x,a,d); %put %sort_names(x1, x2 ,B,C);

slchen · ‎03-16-2015

There is no date function in SAS; and first two lines of SAS codes were hard to understand. You could try something like this: %GLOBAL MYDATE; %LET MYDATE=%sysfunc(inputn(%sysfunc(putn(%substr(&sysparm,3,8),yymmdd8.)),date9.)); %MACRO GetTRX(DBASE,TABLE,MYDATE); PROC SQL NOPRINT; CONNECT TO DB2(SSID=DBID1); CREATE TABLE &TABLE AS SELECT * FROM CONNECTION TO DB2 (SELECT * FROM &DBASE...&TABLE WHERE TRXDT BETWEEN %sysfunc(putn(%sysfunc(intnx(day,"&MYDATE"d,-7)),date9.)) AND &MYDATE ); DISCONNECT FROM DB2; QUIT; %MEND GetTRX

slchen · ‎03-14-2015

Something like this. data want; set have; array num_vars _numeric_; array char_vars _character_; do over num_vars; if num_vars=? then call missing(num_vars); end; do over char_vars; if char_vars='?' then call missing(char_vars); end; run;

slchen · ‎03-13-2015

data test; date=19821031; sasdate=input(put(date,8.),yymmdd8.) ; year=year(sasdate); month=month(sasdate); format sasdate yymmddn8.; run;

Online Status	Offline
Date Last Visited	‎07-12-2017 03:27 PM

Re: How to exclude some names when use proc sql to create macrolist?

Re: Counting character variable in array with substr

Re: DATETIME variable stored as a string

Re: Moving observations in the required position

Re: Number Format to Date Format

Re: Extracting keywords and corresponding number

Re: Extract conditional information from text

Re: %do without using %to

Re: How do I combine multiple columns with missing data and prioritizi...

Re: Counting the number of occurrences for a grouped variable

Re: Last 5 characters from string(irrespective of the length)

Re: Replacing " " with a "_" for variable names in a given file

Re: ODS graphics with more than 5000 points have been suppressed

Re: How to exclude some names when use proc sql to create macrolist?

Re: Moving observations in the required position

Re: Converting the case of letters in a variable

Re: Help for reading messy data

Re: proc sql performing repeat calculations and creating a table of t...

Re: Converting the case of letters in a variable

Re: retaining unique combinations

Re: pick the closet value aginst time period

Re: how to retain ordered records

Re: Hash Object Use Selected Key Only

Re: Right function in excel how to convert to sas

Re: Variable split

Re: extract part of character string to create new varaible

Re: Sort list stored as comma separated string in macro variable

Re: How to use &SYSPARM date string yymmdd for PROC SQL DB2 select

Re: Changing ? to missing in all variables (character and numeric)

Re: Generate year from sas date (YYMMDDN8.)