m.brahim

Bonjour,

Je partage avec vous ce code qui a pour but de réduire si nécessaire le nombre de colonnes d'une table.

L'étape 1 : Décaler les données vers la gauche de la table

Etape 2: Supprimer les colonnes vides.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 tab1;
input id x1 x2 x3 x4 x5;
cards;
1 3 2 2 . 1
1 . 1 1 3 2
1 9 . 3 9 6
1 8 . 7 3 2
1 8 2 . 6 .
1 6 5 . . 9
2 1 3 . 8 . 
2 2 5 8 . .
2 3 3 11 . .
2 4 3 9 . 10
;
run;


/*Etape 1*/

data tab2(drop=rc i j);
set tab1;
array X(*) x:;
do i=1 to dim(x);
   if x(i)=. then do;
   rc=i;
   do j=rc to dim(x);
   if x(j) ne . then do;
   x(i)=x(j);
   x(j)=.;
   leave;
 
   end;  
  end;
 end;
end;
run;

/*Etape 2*/

ods select none;
ods output nlevels=tab3;
proc freq data=tab2 nlevels;
 tables _all_;
run;
proc sql;
 select tablevar into : drop separated by ','
  from tab3
   where NNonMissLevels=0;
   
  alter table tab2
   drop &drop; 
quit;

Cordialement