Thanks! ... View more

Looks good to me. Maybe try ending the proc sql with "quit;" instead of ending it with "run;". ... View more

data example; input id visit$ visit_num var1 var2 var3; datalines; 1 Visit1 1 20 30 35 1 Visit2 2 75 35 45 2 Visit1 3 99 15 34 2 Visit2 4 55 38 48 ; run; data ex_2; set example; array my_arr[3] var1-var3; do i=1 to 3; if not(40<my_arr[i]<70) then do; TOTAL=cats("Score",i,'(',my_arr[i],')'); output; end; end; drop var1-var3 i; run; proc print;   ... View more

If you have many categories your code will be hard to maintain if you use the if-else approach.   * my solution; data degree; length degree $20.; infile datalines dsd; input degree $ educ $; datalines; "< 3 yrs old",0 "no school",1 "nursery school",2 "Profess. degree",15 16 "Doctorate degree",15 17 ; run; data person; input id educ; datalines; 1 1 2 15 3 17 4 15 ; run; data degree; set degree(rename=(educ=educ_old)); drop nwords i educ_old; nwords=countw(educ_old); do i=1 to nwords; educ=input(scan(educ_old, i), 2.); output; end; run; proc sql; create table sol_1 as select person.*, degree.degree from person natural join degree; quit; proc print; title 'sol 1'; * (sol 1); * if you don't want to use sql/join; proc sort data=degree; by educ; data degree; length degree $40.; retain degree; drop degree_old; set degree(rename=(degree=degree_old)); by educ; if first.educ then degree=degree_old; else degree=catx('; ', degree, degree_old); if last.educ then output; run; proc sort data=person; by educ; data sol_2; merge person(in=in_person) degree; by educ; if in_person; run; proc print; title 'sol 2'; * which could serve your purposes (sol2); data sol_3; merge person(in=in_person) degree; by educ; if in_person; retain degrees; drop degrees nword i; if first.educ then degrees=degree; nword=countw(degrees, ';'); do i=1 to nword; degree=scan(degrees, i, ';'); output; end; run; proc print; title 'sol 3';   which produces this output: Notice solution 3 might fail if you have many records per person; in that case, it would need additional tuning; ... View more

after running: data test; set prolease1812(keep=operacion operorigen database); run; proc sort data=test nodup; by _ALL_; proc sort data=test nodupkey; by operacion database; data test; modify test ext_new; by operacion database; run; (SAS block code in this web doesn't seem to preserve my indenting).     my tables look like this:       proc contents data=test; proc contents data=ext_new;       The CONTENTS Procedure     Data Set Name WORK.TEST Observations 347852 Member Type DATA Variables 3 Engine V9 Indexes 0 Created 01/11/2019 09:13:44 Observation Length 44 Last Modified 01/11/2019 09:16:21 Deleted Observations 0 Protection   Compressed NO Data Set Type   Sorted YES Label       Data Representation SOLARIS_X86_64, LINUX_X86_64, ALPHA_TRU64, LINUX_IA64     Encoding latin1 Western (ISO)         Engine/Host Dependent Information Data Set Page Size 65536 Number of Data Set Pages 235 First Data Page 1 Max Obs per Page 1484 Obs in First Data Page 1435 Number of Data Set Repairs 0 Filename *** Release Created 9.0401M4 Host Created Linux Inode Number 18612318 Access Permission rw-rw-r-- Owner Name franriv File Size 15MB File Size (bytes) 15466496     Alphabetic List of Variables and Attributes # Variable Type Len 2 DataBase Char 4 3 OperOrigen Char 20 1 Operacion Char 20     Sort Information Sortedby Operacion DataBase Validated YES Character Set ASCII Sort Option NODUPKEY     The CONTENTS Procedure     Data Set Name WORK.EXT_NEW Observations 11066 Member Type DATA Variables 3 Engine V9 Indexes 0 Created 01/11/2019 09:09:13 Observation Length 44 Last Modified 01/11/2019 09:09:13 Deleted Observations 0 Protection   Compressed NO Data Set Type   Sorted YES Label       Data Representation SOLARIS_X86_64, LINUX_X86_64, ALPHA_TRU64, LINUX_IA64     Encoding latin1 Western (ISO)         Engine/Host Dependent Information Data Set Page Size 65536 Number of Data Set Pages 8 First Data Page 1 Max Obs per Page 1484 Obs in First Data Page 1434 Number of Data Set Repairs 0 Filename *** Release Created 9.0401M4 Host Created Linux Inode Number 18614142 Access Permission rw-rw-r-- Owner Name franriv File Size 576KB File Size (bytes) 589824     Alphabetic List of Variables and Attributes # Variable Type Len Format Informat Label 3 database Char 4       1 operacion Char 20 $11. $11. OperDest 2 operorigen Char 20 $11. $11. OperOri     Sort Information Sortedby operacion database Validated YES Character Set ASCII Sort Option NODUPKEY     This is just me testing to learn how to use the MODIFY statement; I am expecting the same output as a merge statement (provided operorigen is not null for any entry in the ext_new table), but faster execution.   merge statement does work NOTE: Writing TAGSETS.SASREPORT13(EGSR) Body file: EGSR 22 23 GOPTIONS ACCESSIBLE; 24 data test2; 25 merge test ext_new; 26 by operacion database; 27 run; NOTE: There were 347852 observations read from the data set WORK.TEST. NOTE: There were 11066 observations read from the data set WORK.EXT_NEW. NOTE: The data set WORK.TEST2 has 347853 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.27 seconds cpu time 0.26 seconds   but modify statement won't do it; NOTE: Writing TAGSETS.SASREPORT13(EGSR) Body file: EGSR 22 23 GOPTIONS ACCESSIBLE; 24 25 data test; 26 modify test ext_new; 27 by operacion database; 28 run; NOTE: The DATA step has been abnormally terminated. NOTE: There were 1 observations read from the data set WORK.TEST. NOTE: The data set WORK.TEST has been updated. There were 6563 observations rewritten, 0 observations added and 0 observations deleted. NOTE: There were 6564 observations read from the data set WORK.EXT_NEW. NOTE: DATA statement used (Total process time): real time 2:32.11 cpu time 2:30.86     ... View more