hi Ksharp... it is 1 in my example (although a zero could work, but should never be 2,or 3). I've struggled in perl with making count of example (ii) identical to count of (i) (and that is related to how /b function operates i believe ... View more

I agree, but it is what the OP showed as the desired output. ... View more

  %let dir1=%str(/new/dirct/loct/userLoc/logfiles/); %let pgmname=%str(SchdDent_20170615); %let date=&sysdate; %let time=&systime; %let ext1=%str(log); %let break=%str(-); %let final1=&dir1&pgmname&date&break&time..&ext1; %put &final1; %let key1 = %nrstr(kd94hf93k423kf44&pfkkdhi9sl3r4s00) ; proc printto log="&final1"; run; quit; * can be a physical file using;filename inc temp; data _null_; file inc; input @; put _infile_; cards4; filename cp temp; proc groovy classpath=cp; add sasjar="commons_codec" version="1.4.0.0_SAS_20100917120335"; *version is specific to SAS Installation and may differ from this; submit parseonly; import javax.crypto.Mac import javax.crypto.spec.SecretKeySpec import org.apache.commons.codec.binary.Base64 class SASHash { String base64hmacsha256(String key, String message) { def mac = Mac.getInstance("HmacSHA256") mac.init(new SecretKeySpec(key.getBytes(), "HmacSHA256")) def hash = Base64.encodeBase64String(mac.doFinal(message.getBytes())) return hash } } endsubmit; quit; options set=classpath "%sysfunc(pathname(cp,f))"; ;;;; run; * generic macro that can be expanded to include additional methods; %macro SASHash(action,key=key,message=message,return=hash,include=inc); %goto &action; %compile: %include &include; %return; %declare: if _n_=1 then declare javaobj SASHash('SASHash'); %return; %base64hmacsha256: SASHash.callStringMethod("&action",strip(&key),strip(&message),&return); %return; %mend; *key can be set per user's need; %let key = sklnvhjsz34545456dfbzdaldmgd3; %SASHash(compile,include=inc) options nocenter ls=132 ps=32000 obs=50 compress=char; libname in3 '/new/dirct/loct/userLoc/dss20170615/'; *Macro to read in one month of Sched Dent; %macro readSchdDent(fy); libname inscen&fy. "/mainDb/publs/SchdDent/"; data SchdDent&fy.; set inscen&fy..header; /*(keep = fldName) */ /*if FM='01' */ run; proc append base = in3.SchdDent_step1 data = SchdDent&fy. (compress=char); run; proc datasets; delete SchdDent&fy.; run; data in3.SchdDent_step1; %SASHash(declare) length ssnhsh $ 128; set in3.SchdDent_step1 ; %SASHash(base64hmacsha256,key="&key",message=ssn,return=ssnhsh) /* Add more flds to be encrypted by copying/pasting the code above and then replace the fld name */ /* ssn = put(md5(upcase(trim(coalesce(ssn,''))) || '^' || '703617'),$hex32.); */ run; filename out1 "/new/dirct/loct/userLoc/dss20170615/SchdDent_FY&fy..txt"; proc export data=in3.SchdDent_step1 outfile=out1 dbms=dlm replace; /* putnames=yes; */ delimiter='|'; run; data in3.SchdDent_step1; set in3.SchdDent_step1 (obs=0); run; %let glbFY = &fy.; data _null_ ; fyx = "&glbFY"; command = 'pkzipc -add -passphrase=$@gR!xdgdfSAg /new/dirct/loct/userLoc/dss20170615/SchdDent_FY'||fyx||'.zip /new/dirct/loct/userLoc/dss20170615/SchdDent_FY'||fyx||'.txt'; call system (command); run; %mend readSchdDent; data _null_; do i=14 to 17 by 1; command1 ='%nrstr(%readSchdDent('||strip(i)||'))'; call execute (command1); end; run; The code above incorporates FriedEgg's excerpt successfully and it returns 4 txt files and their zipped counterparts populated with an ssn hashed with HMAC SHA256 for 4 Fiscal Yrs   Sharing just in case someone else has a similar wonder. S-   ... View more

Thank you so much sir! ... View more

I want to do exactly that, but for 240 groups 0- 0.5  0.5-1.0 1.0-1.5  and so on 119.5-120.0   Do you have any solution for that (without writing 240 lines)?     ... View more

I have been using a macro variable with a comma delimited list of variables i want to sent to md5. so it looks like   %let keyvars = %bquote(subjid, lbrefid, lbreqno, lbtestr, lbdat, lbtpt, lbrptid, lbmethod);   to make it easier to live with I use a put function in creating the checksum variable.   data x;   set y;   length checksum $32;   checksum = put(md5(strip(compress(catx(&labkeys),,'c'))), hex20.); run;   I found it helpful to compress out control characters, forget why at this point   I was using this to create a composite key to be used to join or compare datasets, It has proven quite reliable until I discovered just this week that two datasets may have the same variable names, labels and values but if the length is different in any of the variables the checksum values will be different.  That kind of blew things up.  I was looking around today and came on this post about a new SHA256 function available in SAS 9.4 M1.   http://blogs.sas.com/content/sasdummy/2014/01/18/sha256-function-sas94/   ... View more

Thank you Art297 for this program. I was having the same problem and I tried using your program. I had following errors and in addition, the program returns incorrect dates, for example,  For example for today's date in SH calendar : 1396/05/03  it should return 2017/07/25 but instead it returns 07MAY2002   See log attached for errors See output attached for incorrect results See SAS codes downloaded from forum.   Thank yo very much for your help and advise in this regard.   Shams ... View more

OK. I don't know if the following could work.   data have; infile cards truncover ; input have_str $500.; cards; Firm A advises on the Volkswagen settlement with US authorities regarding emissions from diesel engines Firm A advises The Carlyle Group on its $3.2bn acquisition of Atotech advising Coca Cola Deutsche Bank, Bank of America, Merrill Lynch and Morgan Stanley on National Grid's £3.3 billion equity offering ; run; data want; set have; temp=have_str; p=prxmatch('/\b(advises|advised|advising)\b/i',temp); if p=0 then do; name=substr(temp,1,prxmatch('/\bon\b/i',temp)-1); output; end; else do; do while(p); temp=substr(temp,p); temp=substr(temp,findc(temp,' ')+1); name=catx(' ',scan(temp,1,' '),scan(temp,2,' '),scan(temp,3,' ')); output; p=prxmatch('/\b(advises|advised|advising)\b/i',temp); end; end; drop temp p; run; ... View more