Boucle sur une Table SAS

Version imprimable

Bonjour,
je débute sur SAS, j'ai un problème. En fait je vais faire une boucle sur une table pour changer les valeur des ses cellules : Voici mon code mais ça marcha pas .
Merci.
Code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 proc sql; select distinct count(*) into: &nbr. from &TABLE.; quit; %put NBRL = &nbr.; DATA &TABLE.; %do j=1 %to 26; %DO i=1 %TO &nbr.; %if &Table.{i,j}=' ' or &Table.{i,j}='.' %then "bloquant"; %end %else %if &Table.{i,j} NOT = ' ' or &Table.{i,j} NOT ='.' %then "NON"; %end; %end; %end; RUN;

Bonjour,
Je te propose cette solution en supposant que la table de départ est composée de colonnes numériques et caractères:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
data test;
input var var1 var2  $ var3 $;
cards;
. 2 3 a b
2 3 4 . C
2 . 4 l .
;
run;
 
 
/*Dans le cas ou tu as des caratères et numerique dans la table */
 
/*Convert les colonnes numeriques en caractères*/
 
proc sql;
select case type
         when 'num'  then catx (   ' ' 
                                , 'left( put ('
                                , name
                                , ','
                                , case
                                   when format is null then 'best12.' 
                                   else format
                                   end
                                , ') ) as'
                                , name
                            )
 
 
 
when 'char' then name
        else             catx (   ' '
                                , quote('Error on type')
                                , 'as'
                                , name
                              )
        end        
 into : selections separated by ' , '
 from dictionary.columns
 where libname='WORK' and memname='TEST';
 
create table allchar as select &selections from test;
 
quit;
 
data allchar1(drop=i); 
set allchar;
array char _all_;
do i=1 to dim(char);
if  char(i)=' ' or char(i)='.' then char(i) = "bloquant"; else  char(i) = 'NON';
end;
run;

Cordialement

Merci beaucoup ! ça marche très bien, serait il possible de vous poser un autre question ? sur cette table que je l'ai crée (des 'non' et des 'bloquant') les lignes sont indexées et sans titres , je veux créer des titres pour les lignes à partir de la table d'origine.
je fais ça mais il m'a rien donné . :/
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 %macro Tab_CNTR(TABLE); /*Créer la colonne des noms des BO*/ proc sql noprint; select LB_BO, case when LB_BO = 'RIVAGE' then 'BO_RIVAGE' when LB_BO = 'PROGRES' then 'BO_PROGRES' when LB_BO = 'VIE2000' then 'BO_VIE2000' when LB_BO = 'GPAT' then 'BO_GPAT' when LB_BO = 'CAPI' then 'BO_CAPI' when LB_BO = 'GPREV' then 'BO_GPREV' when LB_BO = 'NOCE' then 'BO_NOCE' end as NOM_BO from &TABLE.; quit; %mend

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
data test;
input lb_bo :$20. var var1 var2  $ var3 $;
cards;
RIVAGE . 2 3 a b
PROGRES 2 3 4 . C
VIE2000 2 . 4 l .
;    
run;
 
proc sql;
select case type
         when 'num'  then catx (   ' ' 
                                , 'left( put ('
                                , name
                                , ','
                                , case
                                   when format is null then 'best12.' 
                                   else format
                                   end
                                , ') ) as'
                                , name
                            )
 
 
 
when 'char' then name
        else             catx (   ' '
                                , quote('Error on type')
                                , 'as'
                                , name
                              )
        end        
 into : selections separated by ' , '
 from dictionary.columns
 where libname='WORK' and memname='TEST'  ;
 
 
  create table  allchar as select  &selections from test;
 
 
 select name  
 into : selection1 separated by '  '
 from dictionary.columns
 where libname='WORK' and memname='ALLCHAR' and name ne 'lb_bo' ;
 
quit;
 
 
data allchar1(drop=i); 
retain LB_BO &selection1.;
set allchar;
array char &selection1.;
do i=1 to dim(char);
if  char(i)=' ' or char(i)='.' then char(i) = "bloquant"; else  char(i) = 'NON';
end;
if LB_BO = 'RIVAGE' then LB_BO='BO_RIVAGE';
if LB_BO = 'PROGRES' then LB_BO = 'BO_PROGRES';
if LB_BO = 'VIE2000' then LB_BO = 'BO_VIE2000';
run;

Cordialement

15/05/2019, 14h54
salahsassi

Bonjour,
Merci vous m'avez aidé beaucoup, en faite la colonne LB_BO est la colonne numéro 2 , savez vous comment faire pour la translaté(devenir colonne numero 1) avant de faire les derniers if ?
Merci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
data test;
input var lb_bo :$20.  var1 var2  $ var3 $;
cards;
. RIVAGE 2 3 a b
2 PROGRES 3 4 . C
3 VIE2000 . 4 l .
;    
run;
 
 
 
data test1;
retain lb_bo var var1 var2 var3;
set test;
run;

Cordialement

15/05/2019, 15h04
salahsassi

oui, mais pour moi mes données sont beaucoup plus volumineuses et j'ai beaucoup des colonnes du coup je peux pas faire ça

Code:

1
2
3
4
5
6
7
8
9
proc sql;
 select name  
 into : rest_var separated by ','
 from dictionary.columns
 where libname='WORK' and memname='TEST' and name ne 'lb_bo' ;
 
 create table order_var as select lb_bo,&rest_var. from test;
 
 quit;

Cordialement

15/05/2019, 16h04
salahsassi

Merci beaucoup :D :D :D