About Loko

Loko · ‎07-13-2015

Hello, data have; input Col1 1-3 col2 $ 6-8; cards; 123 123 abc 123 123 456 456 def 456 789 789 ghi 789 789 889 889 889 ; run; data want; set have; if 0 then col2_=col2; if _N_=1 then do; declare hash h(dataset:"have(where=(missing(col2_)=0) rename=(col2=col2_))"); h.definekey('col1'); h.definedata('col2_'); h.definedone(); end; if h.find() eq 0 then col3=col2_; drop col2_; run;

Loko · ‎05-07-2015

Hello, data have; input id gestage; datalines; 1 36 1 38 2 . 2 41 3 30 3 . 3 32 4 65 4 41 5 35 5 36 5 36 ; run; proc sort data=have; by id gestage; run; data want; merge have (in=h1) have(rename=(gestage=gestage_drop) where=(missing(gestage_drop) or gestage_drop lt 20 or gestage_drop gt 43) in=h2); by id; if h1 and not h2; drop gestage_drop; run;

Loko · ‎05-07-2015

Hello, Maybe this is what you are looking for: data a; a="103 Pennsylvania Ave. NW,";output; a="Washington, DC 20216" ;output; a="NY, DC 20216" ;output; run; data b; set a; b=prxparse("/103 Pennsylvania Ave\. NW|Washington, DC 20216/"); e= prxmatch(b,a); run; Check also the following link: http://support.sas.com/documentation/cdl/en/lrdict/64316/HTML/default/viewer.htm#a002295977.htm

Loko · ‎05-04-2015

Hello, Here are some useful links: https://communities.sas.com/message/180853#180853 If you have the book in electronic format could you please send it to my email address - potosi2345@gmail.com ? 10x

Loko · ‎05-04-2015

Hello, Data Have; Input Name $ 30.; cards; abcdefhg ghfedcba IJKLMNOPI qtunvjrf FgYhbder run; data want; length _c $ 30 _a $ 1; if _n_=1 then do; declare hash h(ordered:'Y'); h.definekey('i'); h.definedata('_a'); h.definedone(); call missing(_a); declare hiter hi('h'); end; i=1; set have; do while(substr(name,i,1) ne ' '); if mod(i,2) then _a=upcase(substr(strip(name),i,1)); else _a=lowcase(substr(strip(name),i,1)); _rc=h.add(); i=i+1; end; do _rc = hi.first() by 0 while (_rc = 0); _c=strip(_c)||strip(_a); _rc = hi.next(); end; h.clear(); keep name _c; run;

Loko · ‎04-27-2015

Hello, Another solution: data want; merge table1(in=a) table2(in=b rename=(city=_city)); by ID; if first.id then city=_city; if a=1; drop _city; run;

Loko · ‎04-22-2015

Dear all, For the following sample dataset I need to retrieve the last value of c within each group (variable a) from the latest b. data have; input a $1-4 b c; datalines; M31 1 2 M31 3 9 M31 2 15 M98 5 4 M98 3 6 M98 4 2 ; run; Therefore the output shall be M31 3 9 and M98 5 4. I know the classic way of sort and last but I am curious if there is any other method whivh may run faster (my dataset is big...) 10x

Loko · ‎04-20-2015

Hello, Hash will also do it: data have; input Group $ Entity $; datalines; A Prod1 A Prod2 A Prod3 B Prod2 B Prod4 ; run; data want; if _n_=1 then do; declare hash h (dataset:"have(rename=entity=entity2)", multidata:"Y"); h.definekey("group"); h.definedata("entity2"); h.definedone(); end; set have; length entity2 $ 10; rc=h.find(key:group); do while(rc=0); if entity gt entity2 then output; if rc ne 0 then call missing(entity2); rc=h.find_next(); end; drop rc; run;

Loko · ‎03-26-2015

hello, data have; input Month Geo_id $; datalines; 1 A 1 B 1 C 2 A 2 D 2 E ; proc sort data=have; by month; run; data want; if _N_=1 then do; declare hash g(ordered:'Y'); g.definekey('gr'); g.definedone(); end; set have; by month; gr=Geo_id; if g.find(key:Geo_id) ne 0 then do;g.add();end; if last.month then do;totalitems = g.num_items;output;end; keep month totalitems; run;

Loko · ‎03-13-2015

ok, 10x

Loko · ‎03-13-2015

You are right. When I have built the dataset example I have mistyped date values for that sequence. datas_ini and datef_ini should have been in the same month for process 1. I have changed the values in the example, and the code gives the expected results. 10x

Loko · ‎03-12-2015

Hello, Yes I know it is difficult to explain But your code works almost perfectly. The only problem is with 10-1, 11-1, 13-1 from the final output. This connection should not exist since 1 has been closed in the month (datas - datas_ini in JANUARY). 10x

Loko · ‎03-11-2015

Dear All, For the attached tab-delimited file I need to determine the process flow of the active processes. To identify the active process the condition is missing(datef)=1. For example Process 682 is active and it comes from 634. BUT 632 is opened and closed in the current month (datas_ini = 2JAN2015 and datef_ini=5JAN2015). Therefore we have to look back at 632 and determine where it comes from. 632 comes from 447, 510, 559. BUT since 510 is opened and closed in the current month it is ignored. Eventually the correct result is 682-447 and 682-559. The code I have build does not work for all the cases. Let's take process no 9. 9 comes from 7. BUT 7 is opened and closed in the current month. Looking back at 7 we see that 7 comes from 3, 5, 6. Since 3 is closed we look back at it and notice that 3 comes from 4. 4 is closed - we look back at it and we notice that 4 comes from 44. Therefore 7 comes from 44. BUT 7 also comes from 5 and 6 since those processes are active. Unfortunately the codes does not write to output - 7-44, 7-5 and 7-6. It only writes 7-44. The correspondence of the variables is ky-process-datef-datas and ky_ini_ini-process_ini-datef_ini-datas_ini. Here is my code: %let &data_lun_ant="31DEC2015"d; data want ; length ky_ini_hsh $ 30; if 0 then set have; if _n_ eq 1 then do; CALL MISSING(process_ini_hsh,datas_ini_hsh,datef_ini_hsh); call missing(ky_ini_hsh); declare hash ir(dataset:"have(rename=(process_ini=process_ini_hsh datas_ini=datas_ini_hsh datef_ini=datef_ini_hsh ky_ini=ky_ini_hsh ) where=(datas gt &data_lun_ant and datef gt &data_lun_ant))", multidata:'Y'); ir.definekey('ky'); ir.definedata('process_ini_hsh','datas_ini_hsh', 'datef_ini_hsh', 'ky_ini_hsh'); ir.definedone(); end; set have(where=(missing(datef)=1)); if datas_ini gt &data_lun_ant and datef_ini gt &data_lun_ant then do; rc=ir.find(key:ky_ini); do while (rc=0); if datas_ini_hsh gt &data_lun_ant and datef_ini_hsh gt &data_lun_ant then do; _ky_ini_hsh=ky_ini_hsh; _ky_ini=ky_ini; rc1=ir.find_next(key:_ky_ini); rc=ir.find(key:_ky_ini_hsh); if rc1=0 then rc=0; end; else do; conne=catx('-',process,process_ini_hsh); output; rc=ir.find_next(key:ky_ini); end; end; end; else do;conne=catx('-',process,process_ini);output;end; run;

Loko · ‎03-06-2015

Hello, data have; input Header_1 Header_2 $ Header_3 Header_4 $; datalines; 1 A 2 a 1 B 3 s 1 C 4 a 2 D 4 a 2 E 54 a 3 F 23 g 3 G 24 a 4 I 24 g ; proc sort data=have; by Header_1; run; proc sql noprint; SELECT "'"||trim(name)||"'", name INTO :all_vars separated by ',', :all_vars_miss separated by ',' FROM SASHELP.VCOLUMN WHERE libname = upcase("work") AND memtype = 'DATA' AND memname = upcase("have") and name not in ('Header_1', 'Header_2'); QUIT; data want; set have; if _N_=1 then do; declare hash ha(dataset:'have',multidata:'Y'); ha.definekey('Header_1', 'Header_2'); ha.definedata(&all_vars); ha.definedone(); end; by Header_1; _Header_2=Header_2; if first.Header_1 then do;ha.add();put _all_;call missing(&all_vars_miss);Header_2=Header_1;output;end; rc=ha.find(key:Header_1, key:_Header_2); ha.clear(); Header_2=_Header_2; output; drop Header_1 _Header_2 rc; run;

Loko · ‎03-06-2015

Hello, data have; input Header_1 Header_2 $; datalines; 1 A 1 B 1 C 2 D 2 E 3 F 3 G 4 I ; proc sort data=have; by Header_1; run; data want; set have; by Header_1; _Header_2=Header_2; if first.Header_1 then do;Header_2=Header_1;output;end; Header_2=_Header_2; output; drop Header_1 _Header_2; run;

Online Status	Offline
Date Last Visited	‎11-24-2018 03:36 AM

Force Extract Transformation to be run on DBMS

Add Cutom Tree within the Transormations Tree in SAS DI

Re: SAS Critical error

Re: SAS Critical error

Re: SAS Critical error

Re: SAS Critical error

SAS Critical error when copying file

Re: Segmentation Violation Error

Re: Segmentation Violation Error

Re: Segmentation Violation Error

Re: SAS Critical error

Re: SAS Critical error

Re: how to read a comma delimited file with human error "enter"

Re: Extract information between strings

Re: Compress Function using a decimal with range

Re: find words inside string : words inside array

Re: Proc SQL Code working in SAS 9.4 but not SAS 9.3 - nvar to variab...

Delete registerred metadata table

Re: Convert string to date mmddyy10.

Re: Arrays and Do loops

Re: How to get col3 in the output dataset

Re: How to remove a group of observations based on conditions

Re: how to use Regular expression read strings on multiple lines

Re: Converting the case of letters in a variable

Re: Converting the case of letters in a variable

Re: Merging table

Get last observation from group

Re: Create all possible combination of one variable by group of anothe...

Re: Creating cumulative counts over period of time

Re: Determine flow references

Re: Determine flow references

Re: Determine flow references

Determine flow references

Re: organising table rows/columns

Re: organising table rows/columns