Data have; input subjid week product $; cards; 101  21  x1 101  22  x1 101  23  x1 101  24  x1 102  19  x1 102  20  x1 102  22  x1 102  23  x1 102  24  x1 ; data temp;   set have;   if subjid=lag(subjid) and dif(week)>1 and week ne 24 ; data want(drop=n); merge have temp(in=a rename=(week=n)); by subjid; if a and week<n; proc print;run; ... View more

data out; infile cards; input; keepit = _infile_; cards; Y10800542 YEARLY MARS PLAN Vriddhi Mr. Surendra gita Kumar 100.4 Y10800543 YEARLY MARS PLAN Vriddhi Mr. Rahul kapu  Man 969.83 Y10800539 YEARLY MARS Family REVENUE Builder Mrs. sina Manahattan 970 Y10800539 YEARLY MARS LifeLONG BEST Mr Virag Bashmukh 86 Y10800539 YEARLY MARS LifeLONG BEST Mr. Tricky behoshi H 94.5 Y10800539 YEARLY MARS Young Scholar Secure Mr. Joyton Flavian sequence 500 Y10800543 YEARLY MARS Family REVENUE Builder Mr. Suraj putraJoban 5000 Y10800543 YEARLY MARS PLAN Varsha Ms. Mahalakshmi krishnanram 504 Y10800543 YEARLY MARS PLAN Vriddhi Mr. Himanshu Pahwa 3003.75 Y10800543 YEARLY MARS PLAN Vriddhi Mr. Sanjay Vaarma 213.54 Y10800543 YEARLY MARS PLAN Vriddhi Mrs. Jane Saggarwal 3327 Y10800543 YEARLY MARS LIVE SMART Mr Syed husain Jasmeet 800 Y10800543 YEARLY MARS PLAN Vriddhi Mr Rajesh babr 1000.69 Y10800543 YEARLY MARS PLAN Vriddhi Mr. Rajan visal 241.53 ; data want;   set out; ref_no=scan(keepit,1,' '); mode=scan(keepit,2,' '); call scan(keepit,-1,p1,l1,' '); call scan(keepit,3,p2,l2,' '); n=max(find(keepit,'Mr'),find(keepit,'Ms'),find(keepit,'Mrs')); amont=scan(keepit,-1,' '); name=substr(keepit,n,p1-n); plan=substr(keepit,p2,n-p2); drop p1 p2 l1 l2 n keepit; proc print;run; ... View more

Data have; input a b; datalines; 1 3 1 3 1 3 2 4 2 5 2 4 2 4 2 4 3 2 3 2 4 7 4 8 5 1 5 1 5 1 5 1 6 8 6 7 6 7 6 7 ; proc sql;   create table want     as select *, case                  when min(b)=max(b) then 'no'      else 'yes'      end as change from have group by a;    quit; proc print;run; ... View more

/* find a way to put all the IDs in a dataset */ data have; input cid $@@; cards; 000361  000957   001031 001055 001204 00163U ; /* create macro variable clist */ proc sql noprint; select quote(cid) into :clist separated by ',' from have ; quit; /******************************/ libname mylib "C:\Data"; rsubmit; data stockprice; set crsp.dsf; where cusip in (&clist); keep prc cusip ret; run; . . . . and so on ... View more