About yabwon

yabwon

And by the way the selected part should be deleted: What's the point to rewrite HAVE when you already have it? B.

yabwon

I still see some missing %END;

yabwon

Fingers crossed for your quick back to SASsy life. Thank you for all you shared with us! Bart

yabwon

1) Show us more of your log 2) Try execute each set in separate statement, and without the semicolon inside, like: execute ( set tez.am.resource.memory.mb=12288 ) by hadoop; Bart

yabwon

Did you tried execute? PROC SQL; connect to hadoop( ); execute ( set tez.am.resource.memory.mb=12288; set hive.tez.container.size=12288; set tez.runtime.io.sort.mb=1638; set hive.tez.java.opts=-Xmx8192M; ) by hadoop; /* create table query goes here */ disconnect from hadoop; quit; Doc: https://documentation.sas.com/doc/en/pgmsascdc/9.4_3.5/sqlproc/n0tpd3yaqvep53n1g8wahav3hgco.htm

yabwon

Call it like this: %unquote(%ild_out) Read this article to learn why: https://stats.oarc.ucla.edu/wp-content/uploads/2016/02/bt185.pdf Bart

yabwon

One more approach: proc sql; create table testc as select have.*, formula as CODE from have,formula_tbl ; quit; proc sql; create table code_b as select distinct QUOTE(strip(code)) as q, count(code) as cc from testc order by cc desc ; ; quit; filename testb2 TEMP lrecl=2000; data _null_; file testb2; length _X_ $ 2000; put "data testb2;"; put "set testc;"; put "select;"; do until(EOF); set code_b end=EOF; _X_ = "when (code = " || strip(q) || ") do; result = (" || dequote(q) || "); end;"; put _X_; end; put "otherwise;"; put "end;"; put "run;"; stop; run; %include testb2 / SOURCE2; filename testb2; proc print data=testb2; run;

yabwon

Try this: data have; infile cards dlm="|"; input OriginalBalance :$32. LoanCount CurrBalance :comma12. ContribIOBalance :comma12.; OB2 = scan(OriginalBalance,2,'[( -)]'); format CurrBalance ContribIOBalance dollar12.2; cards; (25,000 - 50,000]|1|116,294|7,412|0.0|4.47|317 (50,000 - 75,000]|12|711,046|43,812|0.2|4.52|337 (75,000 - 100,000]|33|2,906,308|186,190|0.8|4.49|331 (100,000 - 125,000]|24|2,651,113|144,296|0.6|4.48|332 (125,000 - 150,000]|1|5,807,462|383,168|1.7|4.51|331 (150,000 - 175,000]|59|9,304,718|643,080|2.9|4.52|329 (175,000 - 200,000]|83|15,377,836|984,286|4.4|4.50|342 (200,000 - 225,000]|69|14,498,236|889,785|4.0|4.50|340 (225,000 - 250,000]|84|19,678,015|1,278,485|5.7|4.50|340 (250,000 - 275,000]|76|19,644,538|1,156,395|5.2|4.50|339 (275,000 - 300,000]|1|20,128,657|1,117,135|5.0|4.50|343 ; run; proc print; run; data have2; do n=1 by 1 until(LoanCount>1 or _E_); set have end=_E_; grp++(1=n); grp+-(_E_=LoanCount); output; end; run; proc print; run; data want; length OriginalBalance2 $ 32; call missing(OriginalBalance2, n, cumB, cumIOB, cumLC); do until(last.grp); set have2 end=_E_; by grp; if first.grp then OB1 = scan(OriginalBalance,1,'[( -)]');; cumB+CurrBalance; cumIOB+ContribIOBalance; cumLC+LoanCount; end; OB2 = scan(OriginalBalance,2,'[( -)]'); OriginalBalance2 = cats("(",OB1,"-",OB2,"]"); drop CurrBalance ContribIOBalance LoanCount OriginalBalance OB1 OB2 n grp; rename cumB=CurrBalance cumIOB=ContribIOBalance cumLC=LoanCount OriginalBalance2=OriginalBalance ; format cumB cumIOB dollar12.2; run; proc print; run;

yabwon

Try this, conditional DOW-loop should do the job: data have; infile cards dlm="|"; input OriginalBalance :$32. LoanCount CurrBalance :comma12. ContribIOBalance :comma12.; OB2 = scan(OriginalBalance,2,'[( -)]'); format CurrBalance ContribIOBalance dollar12.2; cards; (25,000 - 50,000]|1|116,294|7,412|0.0|4.47|317 (50,000 - 75,000]|12|711,046|43,812|0.2|4.52|337 (75,000 - 100,000]|33|2,906,308|186,190|0.8|4.49|331 (100,000 - 125,000]|24|2,651,113|144,296|0.6|4.48|332 (125,000 - 150,000]|1|5,807,462|383,168|1.7|4.51|331 (150,000 - 175,000]|59|9,304,718|643,080|2.9|4.52|329 (175,000 - 200,000]|83|15,377,836|984,286|4.4|4.50|342 (200,000 - 225,000]|69|14,498,236|889,785|4.0|4.50|340 (225,000 - 250,000]|84|19,678,015|1,278,485|5.7|4.50|340 (250,000 - 275,000]|76|19,644,538|1,156,395|5.2|4.50|339 (275,000 - 300,000]|1|20,128,657|1,117,135|5.0|4.50|343 ; run; proc print; run; data want; length OriginalBalance2 $ 32; call missing(OriginalBalance2, n, cumB, cumIOB, cumLC); do n=1 by 1 until(LoanCount>1); set have; if 1=n then OB1 = scan(OriginalBalance,1,'[( -)]');; cumB+CurrBalance; cumIOB+ContribIOBalance; cumLC+LoanCount; end; OB2 = scan(OriginalBalance,2,'[( -)]'); OriginalBalance2 = cats("(",OB1,"-",OB2,"]"); drop CurrBalance ContribIOBalance LoanCount OriginalBalance OB1 OB2 n; rename cumB=CurrBalance cumIOB=ContribIOBalance cumLC=LoanCount OriginalBalance2=OriginalBalance ; format cumB cumIOB dollar12.2; run; proc print; run; But calculation of: Contrib%, WAC, and WAM you have to do yourself. Bart

yabwon

code for your case: Data have; input x y z; cards; 10 20 30 15 20 200 10 30 40 ; run; data formula_tbl; input formula $ 12.; cards; x+y-0.1*x ; run; options dlcreatedir; libname x "%sysfunc(pathname(work))\spde\"; libname x SPDE "%sysfunc(pathname(work))\spde\"; proc sql; create table x.testc as select have.*, formula as CODE from have,formula_tbl ; quit; /* options nonotes; */ /* odkomentuj zeby miec czysty log */ data testc3; set x.testc curobs=curobs indsname=indsname end=end ; if missing(code) then do; output; end; else do; length strX $ 1024; strX = cat( strip(indsname) , '(startobs = ', curobs /* <-- */ , ' endobs = ', curobs /* <-- */ , ' where = (', strip(code), '))' ); declare hash H(dataset:strX); rc = H.defineKey("code"); rc = H.defineDone(); if H.num_items > 0 then output; rc = H.delete(); end; if end then put _N_=; run; /*options notes;*/

yabwon

This might help: https://communities.sas.com/t5/Polish-SAS-Users-Group/Kolejny-pow%C3%B3d-by-pokocha%C4%87-hash-tablice/m-p/640297#M22 The comment is in Polish but I'm sure google translator will help you. And the code is in SAS so you should be able to understand it. Bart

yabwon

Short note about macro functions. If you are interested in quick creation of bunch of "macro functions" that use %sysfunc "wrapping" you could look at the %generateOneLiners() macro, it's component of the basePlus package. You can run it like: %GenerateOneLiners(prefix=my_ , listOfFunctions=DATETIME TODAY YEAR QTR MONTH WEEK DAY HOUR MINUTE SECOND ) and you can enjoy convenient macro functions like: %put %my_YEAR(%my_TODAY()); %put %my_MONTH(%my_TODAY()); There are some other useful functions in the basePlus too. And if you are interested in FCMP functions mimicking data struuctures like FIFO queue, LIFO queue, etc. check out the DFA package (documentation) All the best Bart

yabwon

options LOCALE=fr_FR; data _null_; mon_jour=datetime(); x = put(datepart(mon_jour),NLDATEMN.); put x=; run; options LOCALE=en_US;

yabwon

I would go even one step further asking both for SAS Studio and SAS EG.

yabwon · ‎11-29-2024

Hi SAS-C! The SAS Packages Framework, version 20241129, is ready. This is 100th release! The framework is, as usual, available at GitHub: https://github.com/yabwon/SAS_PACKAGES This time the release is "sponsored" by letters B and F, and the number 4. And, as some may suspect, they are not about Black Friday sale and a four percent discount. 😉 After all, the SAS Packages Framework is free, open source, MIT licensed, and 100% pure SAS coded. The "B" is for Bugs, the "F" is for Fixing, and 4 is the number of bug fixes. I encourage you to installation of the latest version. Details about the release: https://github.com/yabwon/SAS_PACKAGES/releases Found this information useful. Share! Like the SPF? Go to the GitHub repository, mark it with a start, and be a stargazer!!

Online Status	Online
Date Last Visited	10 hours ago