I changed my code and forgot about 'when' statement because of running out of time. I thought I will give the results to my colleague. Because she needs to work on that to finished this project. And in meanwhile I will rethink this part of the code. Because I should use select when statement or I don't know something connected with "when"...  Oh my! This project is killing me... I had only 5 classes about SAS - really basic stuffs. I write my code using information from the net, blogs etc. I don't have any experience working with SAS. So...   Forget about my code if you think it's terrible and let's start from the beginning. I have two datasets: one main dataset (vin2) and second one with conditions (podzialy_numeryczne). I want to change my main dataset using the conditions from the second dataset. How can I do that in the most simple way? ... View more

My numeric dataset is bit of a challenge. I thought I'll just change a little bit your code but conditions are much different that in character dataset. Could you give last look on that?    I can't divide the condition values cause it's the whole statement that I need. If I use the extra apostrophes then nothing happens.  My code:   proc sort data=PROJEKT.PODZIALY_NUMERYCZNE out=PROJEKT.PODZIALY_NUMERYCZNE; by zmienna grp; quit; /* zmienna */ Proc sql noprint; Select zmienna into :zm2 separated by ' ' from PROJEKT.PODZIALY_NUMERYCZNE; quit; %put &zm2.;   /* warunek */ Proc sql noprint; Select cats("'",war,"'") into :war2 separated by ' ' from PROJEKT.PODZIALY_NUMERYCZNE; quit; %put &war2.;   /* grupa */ Proc sql noprint; Select cats("'",grp,"'") into :grp2 separated by ' ' from PROJEKT.PODZIALY_NUMERYCZNE; quit; %put &grp2.; data vin_grp2(drop=i);           set PROJEKT.vin2_sample;                         array warunek (&ilosc2) $100 _temporary_ (&war2.);                         array grupa (&ilosc2) $1 _temporary_ (&grp2.);                         array zmienna (&ilosc2) &zm2.;                        put warunek{1};                        put warunek{3};                   do i = 1 to &sqlobs;                             warunek{i}=tranwrd(warunek{i}, "'", "");                             if warunek{i} then zmienna{i}=grupa{i};                   end; run;     Information from the log: NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 120:8 120:24 2.3491298167 < act12_n_arrears <= 2.3491298167 2.3491298167 < act12_n_arrears <= 2.3491298167 NOTE: Invalid numeric data, '2.3491298167 < act12_n_arrears <= 2.3491298167' , at line 120 column 8. (...) ... View more

Thank you for all your help. Now I will try to modify this code for numeric dataset and conditions :] ... View more

Yes it's working. Thanks. But I still don't understand why if I using select statement there are some problems with array called zmienna(i) ? Now everything is allright. Hmn.   PS; Maybe it will be a stupid question but is there different statement using "when" than "select when" statement? My teacher said we should used "when" ... I thought he meant 'select when'. But you said that it's way more complicated and now I wounder.... ... View more

Yes, you're right. I change the code to check something and I forgot to change it again after while. Now it's "&sqlobs" there. Unfortunately I have to use 'select when' statement, so I can't throw that away 😞   EDIT: But If you have time and you want to you can also show me  a different method - 'less heavy' for the processor. But on my classes I have to use 'select when' ... View more

Oh sorry. I missed that spot! What's now?     1 OPTIONS NONOTES NOSTIMER NOSOURCE NOSYNTAXCHECK; 61 62 PROC surveyselect data=PROJEKT.vin 63 out=vin_sample 64 method=srs sampsize=3000;/* simple random sample - srs */ 65 run;   NOTE: The data set WORK.VIN_SAMPLE has 3000 observations and 9 variables. NOTE: PROCEDURE SURVEYSELECT used (Total process time): real time 0.34 seconds cpu time 0.15 seconds     66 67 data expanded; 68 set PROJEKT.PODZIALY_ZNAKOWE; 69 do k=1 to countw(war, ','); 70 war_expanded = scan(war, k, ','); 71 output; 72 end; 73 drop war k; 74 rename war_expanded=war; 75 run;   NOTE: There were 18 observations read from the data set PROJEKT.PODZIALY_ZNAKOWE. NOTE: The data set WORK.EXPANDED has 21 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.02 seconds cpu time 0.01 seconds     76 77 /* sortuje tabele po zmiennych i warunkach */ 78 proc sort data=expanded out=expanded; 79 by zmienna war; 80 quit;   NOTE: There were 21 observations read from the data set WORK.EXPANDED. NOTE: The data set WORK.EXPANDED has 21 observations and 3 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.00 seconds cpu time 0.00 seconds     81 82 83 /*czytam wszystkie wiersze w kolejnosci, zeby odpowiadaly sobie nawzajem przy warunkach */ 84 /* zmienna */ 85 Proc sql noprint; 86 Select zmienna into :zm separated by ' ' 87 from expanded order by zmienna; 88 quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.01 seconds     89 90 %put &zm.; app_char_branch app_char_branch app_char_branch app_char_branch app_char_branch app_char_cars app_char_cars app_char_city app_char_city app_char_city app_char_city app_char_gender app_char_gender app_char_home_status app_char_home_status app_char_job_code app_char_job_code app_char_job_code app_char_marital_status app_char_marital_status app_char_marital_status 91 %let ilosc=&sqlobs; /*sqlobs - liczba obserwacji z proc sql */ 92 %put &ilosc.; 21 93 94 /* warunek */ 95 Proc sql noprint; 96 /* Select cats('"',war,'"') */ 97 Select war into :war separated by ' ' 98 from expanded order by zmienna; NOTE: The query as specified involves ordering by an item that doesn't appear in its SELECT clause. 99 quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.00 seconds     100 101 %put &war.; 'Computers' 'DiY' 'Empty' 'Fenitures' 'Radio-TV' 'No' 'Owner' 'Big' 'Large' 'Medium' 'Small' 'Female' 'Male' 'Owner' 'Rental' 'Owner company' 'Permanent' 'Retired' 'Divorced' 'Maried' 'Widowed' 102 103 /* grupa */ 104 Proc sql noprint; 105 Select cats("'",grp,"'") 106 into :grp separated by ' ' 107 from expanded; 108 quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.01 seconds     109 110 %put &grp.; '1' '2' '3' '1' '1' '1' '2' '1' '3' '1' '2' '1' '2' '1' '2' '1' '3' '2' '3' '1' '2' 111 112 113 /* tworze nowa tabele na bazie starej z vin znakowym uzywajac sformulowania select when */ 114 data vin_grp(drop=i); 115 set vin_sample; 116 117 /*tworze tablice ktore przechowaja mi zmienne stworzone przez proc sql */ 118 array zmienna (&ilosc.) &zm.; 119 array warunek (&ilosc.) $100 _temporary_ (&war.); 120 array grupa (&ilosc.) $1 _temporary_ (&grp.); 121 122 put zmienna(1); 123 put zmienna(5); 124 125 126 /* lece w petli ze wzgledu na tablice */ 127 do i = 1 to 5; 128 129 /* wyswietlam w logach wartosci, zeby sledzic co jest nie tak */ 130 put warunek(i); 131 put zmienna(i); 132 put grupa(i); 133 134 select (zmienna(i)); 135 when (warunek(i)) zmienna(i)=grupa(i); /*jezeli zachodzi warunek to zmienna przyjmuje wartosc grupy */ 136 137 /* jesli warunek nie zajdzie, to w logach wyrzuca nam informacje o problemie z obserwacja */ 138 otherwise put 'PROBLEM OBSERVATION'; 139 end; 140 end; 141 run;   Empty Empty Computers Empty 1 PROBLEM OBSERVATION DiY Empty 2 PROBLEM OBSERVATION Empty Empty 3 Fenitures 3 1 PROBLEM OBSERVATION Radio-TV 3 1 PROBLEM OBSERVATION Empty Empty Computers Empty 1 PROBLEM OBSERVATION DiY Empty 2 (...)    ... View more

I changed my code and I did like you said. But still get the same problem with array called "zmienna" as in my code in earlier post. What's going on..?? 😞     1 OPTIONS NONOTES NOSTIMER NOSOURCE NOSYNTAXCHECK; 61 62 PROC surveyselect data=PROJEKT.vin 63 out=vin_sample 64 method=srs sampsize=3000;/* simple random sample - srs */ 65 run;   NOTE: The data set WORK.VIN_SAMPLE has 3000 observations and 9 variables. NOTE: PROCEDURE SURVEYSELECT used (Total process time): real time 0.20 seconds cpu time 0.11 seconds     66 67 data expanded; 68 set PROJEKT.PODZIALY_ZNAKOWE; 69 70 do k=1 to countw(war, ','); 71 72 war_expanded = scan(war, k, ','); 73 74 output; 75 76 end; 77 78 drop war k; 79 80 rename war_expanded=war; 81 82 run;   NOTE: There were 18 observations read from the data set PROJEKT.PODZIALY_ZNAKOWE. NOTE: The data set WORK.EXPANDED has 21 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.00 seconds     83 84 85 /* sortuje tabele po zmiennych i warunkach */ 86 proc sort data=expanded out=expanded; 87 by zmienna war; 88 quit;   NOTE: There were 21 observations read from the data set WORK.EXPANDED. NOTE: The data set WORK.EXPANDED has 21 observations and 3 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.05 seconds cpu time 0.00 seconds     89 90 91 /*czytam wszystkie wiersze w kolejnosci, zeby odpowiadaly sobie nawzajem przy warunkach */ 92 93 /* zmienna */ 94 Proc sql noprint; 95 Select zmienna into :zm separated by ' ' 96 from expanded order by zmienna; 97 quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.00 seconds     98 99 %put &zm.; app_char_branch app_char_branch app_char_branch app_char_branch app_char_branch app_char_cars app_char_cars app_char_city app_char_city app_char_city app_char_city app_char_gender app_char_gender app_char_home_status app_char_home_status app_char_job_code app_char_job_code app_char_job_code app_char_marital_status app_char_marital_status app_char_marital_status 100 %let ilosc=&sqlobs; /*sqlobs - liczba obserwacji z proc sql */ 101 %put &ilosc.; 21 102 103 /* warunek */ 104 Proc sql noprint; 105 /* Select cats('"',war,'"') */ 106 Select war into :war separated by ' ' 107 from expanded order by zmienna; NOTE: The query as specified involves ordering by an item that doesn't appear in its SELECT clause. 108 quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.00 seconds cpu time 0.00 seconds     109 110 %put &war.; 'Computers' 'DiY' 'Empty' 'Fenitures' 'Radio-TV' 'No' 'Owner' 'Big' 'Large' 'Medium' 'Small' 'Female' 'Male' 'Owner' 'Rental' 'Owner company' 'Permanent' 'Retired' 'Divorced' 'Maried' 'Widowed' 111 112 /* grupa */ 113 Proc sql noprint; 114 Select cats("'",grp,"'") 115 into :grp separated by ' ' 116 from PROJEKT.PODZIALY_ZNAKOWE order by zmienna; NOTE: The query as specified involves ordering by an item that doesn't appear in its SELECT clause. 117 quit; NOTE: PROCEDURE SQL used (Total process time): real time 0.01 seconds cpu time 0.01 seconds     118 119 %put &grp.; '2' '3' '1' '1' '2' '1' '3' '2' '1' '2' '1' '2' '1' '3' '2' '3' '1' '2' 120 121 122 /* tworze nowa tabele na bazie starej z vin znakowym uzywajac sformulowania select when */ 123 data vin_grp(drop=i); 124 set vin_sample; 125 126 /*tworze tablice ktore przechowaja mi zmienne stworzone przez proc sql */ 127 /* array zmienna (5) app_char_branch app_char_branch app_char_branch app_char_cars app_char_cars; */ 128 array zmienna (&ilosc.) &zm.; 129 array warunek (&ilosc.) $100 _temporary_ (&war.); 130 array grupa (&ilosc.) $1 _temporary_ (&grp.); WARNING: Partial value initialization of the array grupa. 131 132 put zmienna(1); 133 put zmienna(5); 134 /* lece w petli ze wzgledu na tablice */ 135 do i = 1 to 5; 136 137 /* przy warunkach dodalam podwojne uszy ("), zeby zlaczyc 138 wiele obserwacji, teraz musze je usunac */ 139 /* warunek(i)=tranwrd(warunek(i), '"', ''); */ 140 141 /* wyswietlam w logach wartosci, zeby sledzic co jest nie tak */ 142 put warunek(i); 143 put zmienna(i); 144 put grupa(i); 145 146 147 select (zmienna(i)); 148 when (warunek(i)) zmienna(i)=grupa(i); /*jezeli zachodzi warunek to zmienna przyjmuje wartosc grupy */ 149 150 /* jesli warunek nie zajdzie, to w logach wyrzuca nam informacje o problemie z obserwacja */ 151 otherwise put 'PROBLEM OBSERVATION'; 152 end; 153 end; 154 run;   Empty Empty Computers Empty 2 PROBLEM OBSERVATION DiY Empty 3 PROBLEM OBSERVATION Empty Empty 1 Fenitures 1 1 PROBLEM OBSERVATION Radio-TV 1 2 (...) ... View more

Okay, but this code of mine also working... Or It will be problem later with it? I mean that part     /* warunek */ Proc sql noprint; Select cats('"',war,'"') into :war separated by ' ' from PROJEKT.PODZIALY_ZNAKOWE order by zmienna; quit; %put &war.;   I add extra apostrophes to keep multiple observations together. proc sql have the right number of observations. And later I reduce this double apostrophes.   data vin_grp(drop=i); set vin_sample; array warunek (&sqlobs) $100 _temporary_ (&war.); array grupa (&sqlobs) $1 _temporary_ (&grp.); array zmienna (&sqlobs) &zm.; do i = 1 to &sqlobs; warunek(i)=tranwrd(warunek(i), '"', '');                      /* HERE I come back to the original text */ put warunek(i)                                                          /* everything is fine in logs */ select (zmienna(i)); when (warunek(i)) zmienna(i)=grupa(i); otherwise put 'PROBLEM OBSERVATION'; end; end; run;     But after this change I have problems with array zmienna and I don't know why... The two rest arrays keep good observations. But array "zmienna" doesn't have values from variable &zm. ... Why? 😞 ... View more

Tom thank you for your code. I didn't write it before but I have to use 'select when' construction. It's for my SAS classes and I don't have a choice. ... View more

I want something like this.   data vin_grp(drop=i); set PROJEKT.vin_sample; select (app_char_branch); when ('DiY') app_char_branch='3'; when ('Computers') app_char_branch='2'; when ('Fenitures','Radio-TV','Computers') app_char_branch='1'; when ('Empty') app_char_branch = '4'; otherwise put 'PROBLEM OBSERVATION'; end; select (app_char_cars); when ('No') app_char_cars='1'; when ('Owner') app_char_cars='2'; otherwise put 'PROBLEM OBSERVATION'; end; run; ... View more

I'm sorry maybe it's because of language barrier but sometimes it's dificult to understand the whole meaning of your messages and also It's hard to write to us what's in my mind... I'm from Europe and english is my second language... 😞   I just wanted to say that in select when statement is this construction  select when ('something', 'something2', ... , 'somethingn')   And in my dataset there are no observation like this:  'Fenitures,Radio-TV,Computers' , but there are three diferent observations like   'Fenitures' or 'Radio-TV' or 'Computers'. Maybe it's more clear now? What I meant .   I want something like this at the end.   PROC surveyselect data=PROJEKT.vin out=PROJEKT.vin_sample method=srs sampsize=3000; /* simple random sample - srs */ run;   data vin_grp(drop=i); set PROJEKT.vin_sample; select (app_char_branch); when ('DiY') app_char_branch='3'; when ('Computers') app_char_branch='2'; when ('Fenitures','Radio-TV','Computers') app_char_branch='1'; when ('Empty') app_char_branch = '4'; otherwise put 'PROBLEM OBSERVATION'; end; select (app_char_cars); when ('No') app_char_cars='1'; when ('Owner') app_char_cars='2'; otherwise put 'PROBLEM OBSERVATION'; end; run; ... View more

Seriously I just need a function to replace apostrophe ( " ) from each value from array "warunek" (condition) in this place.    EDIT: Oh, I find it. I write this line of code: warunek(i)=tranwrd(warunek(i), '"', ''); And it works fine, but something else in my code are still wrong. Cause zmienna(i) - variable's name - now have the names from conditions array. I don't get it ...   PROC surveyselect data=PROJEKT.vin out=vin_sample method=srs sampsize=3000; /* simple random sample - srs */ run; proc sort data=PROJEKT.PODZIALY_ZNAKOWE out=PROJEKT.PODZIALY_ZNAKOWE; by zmienna war; quit;   /* zmienna */ Proc sql noprint; Select zmienna into :zm separated by ' ' from PROJEKT.PODZIALY_ZNAKOWE order by zmienna; quit; %put &zm.; %let ilosc=&sqlobs; %put &ilosc.;   /* warunek */ Proc sql noprint; Select cats('"',war,'"') into :war separated by ' ' from PROJEKT.PODZIALY_ZNAKOWE order by zmienna; quit; %put &war.;   /* grupa */ Proc sql noprint; Select cats("'",grp,"'") into :grp separated by ' ' from PROJEKT.PODZIALY_ZNAKOWE order by zmienna; quit; %put &grp.;     data vin_grp(drop=i);                set vin_sample;                            array zmienna (&sqlobs) &zm.;                            array warunek (&sqlobs) $100 _temporary_ (&war.);                            array grupa (&sqlobs) $1 _temporary_ (&grp.);                           do i = 1 to &sqlobs;                                        warunek(i)=tranwrd(warunek(i), '"', '');                                        put warunek(i);                                        put zmienna(i);                                        put grupa(i);                                         select (zmienna(i));                                                  when (warunek(i)) zmienna(i)=grupa(i);                                       otherwise put 'PROBLEM OBSERVATION';                                       end;                           end; run; ... View more