%macro exclude(count); %local x; %do x=1 %to &count;   e&x.monthago=intnx('month',edateset,-&x); %end; %mend; %macro mexclude(count); %local x; %do x=1 %to &count;   %let e&x.monthago=%sysfunc(intnx(month,"&edateset"d,-&x),date9.);   %put &&e&x.monthago; %end; %mend; data want; input edateset yymmdd8.; call symput('edateset',put(edateset,date9.)); %exclude(6) format e: date9.; put _all_; cards; 110930 ; run; %mexclude(6) ... View more

Glad you liked it Ksharp.  You should check out my new post about creating a text cipher. http://communities.sas.com/thread/31296?tstart=0 ... View more

I rewrote again trying to just shorten the program to a single datastep.  I cheated a little by just seeding the 9 numbers to the nbr array, with a few additional loops it could be simulated to calculate then I guess.  data _null_; array nbr[9] (12321 12544 13225 33124 34225 35344 44521 52441 55225); array nfreq[5]; array freq[5]; length u $256; retain u ''; array kfreq[5]; do i=1 to comb(9,3);   call allcomb(i,3,of nbr );   yes=0;   do ii=1 to 5;    nfreq[ii]=length(compress(cats(of nbr1-nbr3),ii,'k'));    freq[ii]=nfreq[ii];    if nfreq[ii] ne ii then yes+1;    if nfreq[ii]=1 then k=ii;   end;   call sortn(of nfreq );   if yes=5 and cats(of nfreq )='12345' then    do;     do j=1 to 5;      if freq =1 then u=cats(of u j);     end;     do kk=1 to 5;      kfreq[kk]=length(compress(u,kk,'k'));      if kfreq[kk]=1 then call symput('k',kk);     end;     output;    end; end; proc print noobs; var nbr1-nbr3; where k=&k; run; Updated, had an error in original posting; ... View more

I'm not sure I met all of your requirements or not, but this should give you enough direction to hopefully fill in the blanks. proc format; value my_tf_fmt   0 = 'false'   1 = 'true'   other = '***ERROR***'; ; run; data have; format dhms datetime. date mmddyy10. time time5. amount dollar8.2 risky blocked my_tf_fmt.; infile cards dsd dlm=','; input name :$4. date :mmddyy10. time :time5. amount :6.2 risky blocked; dhms=dhms(date,hour(time),minute(time),'0'); cards; Bill,1/1/2011,02:30,1.00,1,0 Bill,1/1/2011,02:33,100.00,1,1 Bill,1/2/2011,02:15,300.00,1,0 Bill,1/3/2011,02:20,200.00,1,1 Bill,1/3/2011,03:30,100.00,1,1 Bill,1/3/2011,09:45,150.00,0,0 Bill,1/3/2011,10:00,200.00,1,1 Jane,1/1/2011,01:00,50.00,1,1 Jane,1/1/2011,01:30,50.00,1,1 ; run; proc sort data=have; by name dhms; run; data want; set have; by name; retain cb cnb tb tnb d; if first.name then   do;    cycles=0;   end;   cycle: if blocked=1 and d=. then    do;     d=dhms;           tnb=0;     tb=-amount;           cnb=0;           cb=-1;           cycles+1;    end;   if intck('hour',d,dhms)<=24 then    do;     if blocked=1 then      do;       tb=tb+amount;       cb+1;      end;     else      do;       tnb=tnb+amount;       cnb+1;      end;    end;   else    do;     d=.;     go to cycle;    end; if last.name then   do;    d=.;    output;   end; keep name tnb cnb tb cb cycles; format tnb tb dollar8.2 cnb cb cycles comma8.; label name='Account Name'        tnb='Total Amount - Non-Blocked'        cnb='Count - Non-Blocked'        tb='Total - Blocked'        cb='Count - Blocked'        cycles='Nbr of 24hour Cycles Since 1st Blocked'; run;                               Obs    name          cb         cnb          tb         tnb      cycles                                1     Bill           2           1     $300.00     $150.00           2                                2     Jane           1           0      $50.00       $0.00           1 ... View more

Good thinking Ksharp, I do believe this is the method the OP was trying to ask about utilizing.  However, I do not think he understands it's use or implementation. ... View more

Very nice KSharp, glad you liked it. Your code will complete it comprable time with the other methods I can actually run (no SAS/OR or SAS/IML here). By changing you seed data to a more limited set that fits the end result better the runtime improves dramatically: data temp; array a[5]; do i=100 to 236;   x=i**2;   do d=1 to dim(a);    a =substrn(x,d,1);   end;   if max(of a )<=5 and min(of a )>0 then    do; j+1;     call symput('vmax',j);     output;    end; end; keep x a1-a5; run; You are actually still missing the 6th condition to weed the 7 results you have down to a single answer.  I missed this clue myself at first. ... View more

Good information Art.  I cannot claim to be very familiar with EG administation (even though I do it sometimes, yikes!) ... View more

data _null_; array opt[3] $5 ('xcmd' 'xsync' 'xwait'); do i=1 to 3; call execute('proc options option=' || strip(opt) || '; run;'); end; run; xcmd is the most important.  If it is not defined you, or your sas administator will have to enable it in the config file for the server you are connecting to.  It is probably not enabled for a reason, which means you are out of luck... ... View more

Check your options: xcmd, xsync, xwait ... View more

x rm -f /location/of/file; /* exact sytax would differ by operating system */ ... View more

Side note... Guessing from you name, are you in Colorado?  I am in Boulder. ... View more

proc datasets library=word; /* you could also use the kill option to delete all datasets from a library */   delete blah; run; ... View more