About FriedEgg

FriedEgg · ‎09-07-2011

Pretty sure I am not following the concept of your data but if you provided a better outline of the intended input and output I and others could probably be more helpful. data purchase_summary; input customer_account purchase_summary; cards; 123 100.00 124 100.50 125 99.99 126 1.00 127 999.00 ; run; data customer; input customer_id customer_account; cards; 1 123 1 124 2 125 2 126 3 127 ; run; proc sql; create table total as select a.customer_id, sum(purchase_summary) as purchase_total from customer a, purchase_summary b where a.customer_account=b.customer_account group by customer_id; quit;

FriedEgg · ‎09-07-2011

14 proc format; 15 invalue myfmt (default=2) 16 0 = 88 17 99 = .U 18 other = _same_; NOTE: Informat MYFMT is already on the library. NOTE: Informat MYFMT has been output. 19 run; NOTE: PROCEDURE FORMAT used (Total process time): real time 0.00 seconds cpu time 0.00 seconds 20 21 data _null_; 22 input @1 mynum ??myfmt. 23 @1 orig $char2. 24 @3 mychar $char1.; 25 if mynum=. then mynum=.U; 26 putlog orig= mynum=; 27 cards4; orig=0 mynum=88 orig=1 mynum=1 orig=Y mynum=U orig=T mynum=U orig=. mynum=U orig=: mynum=U orig=99 mynum=U orig=9 mynum=9 orig=1. mynum=1 NOTE: The data set WORK.WANT has 9 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.00 seconds cpu time 0.00 seconds 37 ;;;; 38 run;

FriedEgg · ‎09-07-2011

data have; input _X A1 _10 _B; cards; 1 2 3 4 5 6 7 8 ; run; data _null_; set sashelp.vcolumn(where=(libname='WORK' and memname='HAVE')) end=eof; call symput('r' !! strip(put(_n_,best.)),name); if eof=1 then call symput('nobs',put(_n_,best.)); run; data _null_; length vars $512; retain vars; do i=1 to &nobs; if i=1 then vars=''; rname=compress(symget("r" !! strip(i)) !! '=var' !! i,' '); vars=catx(' ', of vars rname); if i=&nobs then call symput('vars',vars); end; run; proc datasets lib=work nolist; modify have; rename &vars; quit; run;

FriedEgg · ‎09-07-2011

I attached a copy of the dictionary file to my original posting

FriedEgg · ‎09-06-2011

This info would indeed be very nice. I haven't really looked around for it but it would come in handy. Another option to consider is DDE (Dynamic Data Exchange). I have never used this with excel but I know it is possible (not sure whether 64 bit architecture is an issue or not). The last option I can think of is using SAS/ODBC with the excel drivers to connect to an excel workbook another thing I have not done before but should be possible...

FriedEgg · ‎09-06-2011

Create a program that takes two words as input, for example: play table hair ball The program will find linkage words between the two given: play/table (playtimes, timestable) hair/ball (hairpin, pinball) In unix utilize the dictionary file ( /usr/dict/words or /usr/share/dict/words ) for your seed data. I have a solution, I wouldn't call it efficient but the code is pretty simple. I will share later in order to give everyone a blank starting point. EDIT: I have attached a gunzipped version of the dictionary file to this thread for the non-unix folks...

FriedEgg · ‎09-01-2011

%zeroones(want= ,have=0 ,flag= ); if &have>0 then do; array accum&sysindex(1) _temporary_ (0); accum&sysindex(1) + &want; if accum&sysindex(1) >= &have then do; accum&sysindex(1) = accum&sysindex(1) - &have; &flag=1; end; else &flag=0; end; %mend; data want; do i=1 to 100; %zeroones(want=25,have=100,flag=x4); output; end; run;

FriedEgg · ‎09-01-2011

You could use a modulo operation. It isn't 'random' but would assign a give a evenly distributed binary set. It is repeatable and distributable across the sort of the set... x4=mod(_n_,2) /* outputs values of 0 or 1 based on record number */

FriedEgg · ‎09-01-2011

I feel like the site could benefit from having the ability to send private (user->user) messages, I have found a few instances already during my short time here where this would be beneifical and support the sense of user community at this forum.

FriedEgg · ‎09-01-2011

Would be nice to have a place for more generalized chat as well, could be a shared place for these types of not necessarily off-topic postings that don't really have a place currently.

FriedEgg · ‎09-01-2011

post the outout of proc setinit; run;

FriedEgg · ‎09-01-2011

Thanks _null_, I had forgotten about nlevels!

FriedEgg · ‎09-01-2011

By using the $7. format in your put statement you are corrupting your numeric values. The outout of the put statement is always character so you should be using a proper numeric format to not obscure your result (basically you are rounding the the integer level instead of the the hundreth as you want). To avoid the 'spaces' try using encasing your calculation in a strip(). data _null_; do month=1,2,3; do day=2,3,4,7,11,13,17; if mod(day,2)=0 then year=2000; else year=2001; servicedate=mdy(month,day,year); currentdate=today()-day; yrdif=strip(put(round(yrdif(servicedate,currentdate,'ACT/ACT'),.01),best.)); put yrdif=; end; end; run;

FriedEgg · ‎09-01-2011

filename tmp temp; ods xml file=tmp; /* using ods will add some tags you may not want by default, I do not know of options to remove these tags but it doesn't mean they don't exist, possibly using proc template... */ proc print data=sashelp.class; run; ods xml close; Reference materials concerning the SAS XML Libname Engine: http://support.sas.com/rnd/base/xmlengine/index.html

FriedEgg · ‎09-01-2011

PROC MIGRATE: http://support.sas.com/documentation/cdl/en/proc/61895/HTML/default/viewer.htm#a002592164.htm

Online Status	Offline
Date Last Visited	‎03-31-2025 06:28 PM