Discussion :

[ion_ion]

Bonjour

Mon intitulé n'est pas très clair, mais voici mon problème :

j'ai une table de deviation, chaque patient peux avoir une ou plusieurs deviation, j'ai donc plusieurs colonnes dev1 à dev12.
au maximum un patient à 4 deviations

Je voudrais faire un listing sans avoir à mettre mes 12 colonnes et donc dire que si ma dev1 est vide je regarde quelle prochaine deviation est remplie et la mettre en dev1

ex :
ce que j'ai
pat_id dev1 dev2 dev3 dev4 dev5 dev6
123 pas de b pas de c



ce que je voudrais
pat_id devnew1 devnew2 devnew3 devnew4
123 pas de b pas de c


j'ai testé l'option missing qui fonctionne très bien mais dès que je le mets dans une boucle cela ne fonctionne plus.
Peux être existe t il une autre solution mais au cas où voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
data inter.deviation; set pd4;
attrib devnew1 length=$50;
attrib devnew2 length=$50;
attrib devnew3 length=$50;
attrib devnew4 length=$50;
attrib devnew5 length=$50;
array dev[11] dev1-dev11;
array devf[5] devnew1-devnew5;
do i=1 to 11;
do j=1 to 5;
if missing(dev[i]) then devnew[j]=dev[i]+1;
end;
end;

merci d'avance pour vos retour
marion

[jlp65]

Bonjour,

Je pense que cela répond à ta question :

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
 
data pd4;input pat_id $ dev1 $ dev2 $ dev3 $ dev4 $ dev5 $ dev6 $;cards;
id1 . 20 . 40 . 60
id2 11 21 31 . . .
id3 . 22 32 . 52 . 
id4 . 23 . 43 . 63
;
 
data deviation(drop=i j); set pd4;
	attrib devnew1 length=$50;
	attrib devnew2 length=$50;
	attrib devnew3 length=$50;
	array dev[6] dev1-dev6;
	array devnew[3] devnew1-devnew3;
	j=1;
	do i=1 to 6;
		if not missing(dev[i]) then do;devnew[j]=dev[i];j+1;end;
	end;
run;
proc print;run;