data want; set test; format z_char $5.; /* Remove leading */ z_char=strip(put(input(strip(textchar), 5.), 5.)); /* Remove trailing */ P=findc(z_char, "0", 'K', -length(z_char)); if P then Y = substr(z_char, 1, P); run; ... View more

Hi,  Here is another good one: data email_data; input email $50.; datalines; user@example.com another_user@test.org invalid_email ; run;   data matched_emails; set email_data; if prxmatch('/\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Z|a-z]{2,}\b/', email) > 0; run; ... View more

THanks. The code really helped me to get cartesian type prod ... View more

Great, works for me, thanks! ... View more

Problem The original code from the question: data sales; input EmployeeID $ 1-9 Name $ 11-29 @30 HireDate date9. Salary HomePhone $; format HireDate date9.; datalines; 429685482 Martin, Virginia 09aug1990 34800 493-0824 244967839 Singleton, MaryAnn 24apr1995 27900 929-2623 996740216 Leighton, Maurice 16dec1993 32600 933-6908 675443925 Freuler, Carl 15feb1998 29900 493-3993 845729308 Cage, Merce 19oct1992 39800 286-0519 ; proc print data=sales; run; This code produces the following incorrect output:   Solution The correct code for the 'name' var defines the input with an "&" and requires rows to have two spaces between columns. SAS reads in the next variable when the space between columns is more than two (>2): data sales1; input EmployeeID $9. Name & $29. HireDate date9. Salary HomePhone $; format HireDate date9.; datalines; 429685482 Martin, Virginia 09aug1990 34800 493-0824 244967839 Singleton, MaryAnn 24apr1995 27900 929-2623 996740216 Leighton, Maurice 16dec1993 32600 933-6908 675443925 Freuler, Carl 15feb1998 29900 493-3993 845729308 Cage, Merce 19oct1992 39800 286-0519 ; proc print data=sales1; run; The following output shows what I think you're looking for: For more information, see Method 3 here: HOW DO I READ IN A CHARACTER VARIABLE WITH VARYING LENGTH IN A SPACE DELIMITED DATASET? | SAS FAQ  ... View more

How did you make the comments so well aligned on the right-hand side? Did you use any keyboard shortcut? ... View more

This will show how to Split SAS Output into multiple Sheets of excel. Change data set as per your data set name and break final output in your desired tab. For ex. my final output was 2104183 rows and I did split data in to 6 tabs because Excel tabs has limit of 100,000 rows for each tab.    Split data in to 3 tabs   DATA SNF_EXTRACT_1       SNF_EXTRACT_2       SNF_EXTRACT_3; SET work.SNF_EXTRACT_FINAL;    if _n_ < 400001     then output SNF_EXTRACT_1;    else       if _n_ < 900001  then output SNF_EXTRACT_2;         else                output SNF_EXTRACT_3;   RUN;   Split data in to 4 tabs DATA PA_DATA_1       PA_DATA_2       PA_DATA_3      PA_DATA_4; SET work.PA_DATA;        if _n_ < 700001 then output  PA_DATA_1; else if _n_ < 800001  then output PA_DATA_2; else if _n_ < 900001  then output PA_DATA_3; else                       output PA_DATA_4;                                         RUN;   Split data in to 5 tabs DATA  PA_DATA_1       PA_DATA_2       PA_DATA_3        PA_DATA_4        PA_DATA_5; SET work.PA_DATA;        if _n_ < 800001   then output PA_DATA_1; else if _n_ < 1600001  then output PA_DATA_2; else if _n_ < 2400001  then output PA_DATA_3; else if _n_ < 3200001  then output PA_DATA_4; else                       output  PA_DATA_5;                                         RUN; ... View more

Awesome. Simple and Straightforward. ... View more

The PRXMATCH function, for Perl Regular Expressions Match, can do it if prxmatch("m/abc|sas|hi/oi",string) > 0 then flag=1; else found=0; see https://support.sas.com/kb/38/719.html ... View more

In my recent blog post Shifting a date by a given number of workdays  I address this problem using SAS user-defined format dayoff. and user-defined function shiftwd(). The approach takes into account business days excluding weekends and holidays, and it is not specific for any country or jurisdiction.   Using this function, adding (or subtracting) business days to a date will look like this:   data EVENTS_WITH_SHIFTS; set EVENTS; BEFORE_DATE = shiftwd(EVENT_DATE,-10); /* Decrement EVENT_DATE by 10 workdays */ AFTER_DATE = shiftwd(EVENT_DATE, 12); /* Increment EVENT_DATE by 12 workdays */ format BEFORE_DATE AFTER_DATE date9.; run;   There is also a SAS macro solution described there: data EVENTS_WITH_SHIFTS; set EVENTS; %shiftwd(fromvar=EVENT_DATE,endvar=BEFORE_DATE,wdays=10,sign=-); /* Decrement EVENT_DATE by 10 workdays */ %shiftwd(fromvar=EVENT_DATE,endvar=AFTER_DATE, wdays=12,sign=+); /* Increment EVENT_DATE by 12 workdays */ format BEFORE_DATE AFTER_DATE date9.; run  See the blog post for more details: Shifting a date by a given number of workdays . ... View more

So simple. Thanks! ... View more

Also  libname _all_;  works to deassigned libraries ... View more

The SQL solution, though probably not the most efficient one, is quite elegant in my opinion:   proc sql; select * from EMP as e1 where 2 = (select count(distinct e2.Salary) from EMP as e2 where e1.empcode = e2.empcode and e2.Salary > e1.Salary); quit; ... View more

data zerobal restdata; set have; if balance=0 then output zerobal;else output restdata; run; data zerobal (drop = balance rename=( newdt=snapt_dt)); set zerobal; format newdt mmddyy10.; newdt=mdy(month(snapt_dt),day(snapt_dt),year(snapt_dt)-1); run; proc sql; create table zerobal as select a.*,b.v1 as balance from zerobal a left join have b on a.newdt=b.snapt_dt and a.region=b.region; quit; data final; set restdata zerobal(drop=newdt); run; ... View more