Discussion :

[mthibs78]

Bonjour, alors voila je m'explique, Je possède une base de données de 52 table ce qui donne au total un peu plus de 9000 variables. J'ai donc ecrit un programme qui me permet d'avoir une base cahier de variable avec le nom le libeller le format de chaque variable de chaque base, je cherche maintenant a faire un peu la meme mais avec les valeurs manquantes.

pour cela j'ai un code qui me permet d'avoir les valeurs manquantes de chaques variables pour une base :

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
 
proc sort data=caye0014.cahiervar nodupkey out=table_unique ; by table ;  run ; 
 
%macro CalculNmiss();
 
data _null_ ;
set  table_unique ;
if _n_=1 ; 
call symput("tab_entree",table) ;
run ; 
 
data inter ;
 set caye0014.&tab_entree.;
 array cha _character_;
 array num _numeric_;
do over cha;
 if missing(cha) then do;
 NAME=vname(cha);
 output;
 end;
end;
do over num;
 if missing(num) then do;
 NAME=vname(num);
 output;
 end;
end;
run;
 
 
proc sql;
create table NA_1 as
select distinct NAME, count(*) as nmiss
from inter
group by NAME
;
quit;
 
data NA_1 ; set NA_1 ; table="&tab_entree." ; run ;
 
%Mend CalculNmiss;
%CalculNmiss ();

je cherche maintenant a ce que cette macro le fasse automatiquement de base1 a base52

Merci d'avance !

Bien cordialement

[flo00154]

Bonjour,

Une solution pour ton problème :

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
proc sort data=caye0014.cahiervar nodupkey out=table_unique ; 
by table ;  
run ; 
 
%macro CalculNmiss();
 
data _null_ ;
set  table_unique ;
call symputx (compress("tab_entree"||_n_), table) ;
Call symputx ("Tot",_n_);
run ; 
 
%Do i = 1 %To &Tot;
	data inter ;
	set caye0014.&&tab_entree&i.;
	array cha _character_;
	array num _numeric_;
	do over cha;
		if missing(cha) then do;
			NAME=vname(cha);
			output;
		end;
	end;
	do over num;
		if missing(num) then do;
			NAME=vname(num);
			output;
		end;
	end;
	run;
 
	proc sql;
	create table NA_1 as
	select distinct NAME, count(*) as nmiss
	from inter
	group by NAME;
	quit;
 
	data NA_1 ; 
		set NA_1 ; 
		table="&&tab_entree&i." ; 
	run ;
%End;
%Mend CalculNmiss;
%CalculNmiss ();

Je croyais que la boucle DO OVER n'étais plus utilisable sous SAS, à moins que tu ne sois sur une ancienne version ?

Flo00154