Discussion :

[vicjohns]

A présent je n'ai plus d'erreur, mais je n'ai pas le résultat escompté.
Au fait j'obtiens ceci comme résultat:

PM	VL	Catégorie	annee	res	id
10	1	A	2011	AG	H
12	2	B	2011	AG	H
122	22	C	2011	AG	H
10	1	A	2011	AF	F
20	2	B	2011	AF	F
200	22	C	2011	AF	F
10	1	A	2012	AG	H
12	2	B	2012	AG	H
122	22	C	2012	AG	H
10	1	A	2012	AF	F
20	2	B	2012	AF	F
200	22	C	2012	AF	F
10	1	A	2013	AG	H
12	2	B	2013	AG	H
122	22	C	2013	AG	H
10	1	A	2013	AF	F
20	2	B	2013	AF	F
200	22	C	2013	AF	F

Alors que moi je voulais avoir:

PM	VL	Catégorie	annee	res	id
10	1	A	2011	AG	H
12	2	B	2012	AG	H
122	22	C	2013	AG	H
10	1	A	2011	AF	F
20	2	B	2012	AF	F
200	22	C	2013	AF	F

Encore merci d'avance pour l'aide.

[m.brahim]

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
data test;
input PM_A_2011 PM_B_2012 PM_C_2013 VL_A_2011 VL_B_2012 VL_C_2013  res $ ID $ ;
cards;
10 12 122 1 2 22 AG H 
10 20 200 1 2 22 AF F 
;run;
 
 
 
data test1(keep= PM VL categorie annee res id annee);
retain PM VL categorie annee res id annee;
set test;
array varr11 PM_: ;
array varr12 VL_:;
 
 
 
do i=1 to dim(varr11);
 
PM=varr11(i);
VL=varr12(i);
categorie=scan(vname(varr11(i)),2,'_');
annee=scan(vname(varr11(i)),3,'_');;
res=res;
id=id;
output;
 
end;
 
 
 
run;

[vicjohns]

Merci beaucoup pour le temps consacré. Le code marche très bien.