Discussion :

[tassia]

Bonjour à tous,


voici mon petit exemple:

table a:
NOM TYPE IDENT_DOUB
MELISSA U 1170000001
NADI U 1170000002
TARA U 1170000003
SARA U 1170000004
MASSA U 1170000005
ASSIA P 9170000001
ASSIA S 9170000001
NAILA P 9170000002
NAILA S 9170000002
NAILA S 9170000002
SAMI P 9170000003
SAMI S 9170000003


je voudrais créer la colonne IDENT_DOUB
voici mon programme qui ne marche pas:

Code :

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

1
2
3
4
5
6
7
8
9
10
data a;
set a;
by IDINDIVIDU;
PR_IND_KEY1=9170000001;
PR_IND_KEY2=1170000001;
retain PR_IND_KEY;
if TYPE_IND ne 'U'  then PR_IND_KEY=PR_IND_KEY1+1;
else PR_IND_KEY2+1;
 
run;

Merci pour votre aide.

[tassia]

j'ai oublié de préciser que j'ai un identifiant unique:

identifiant
001
002
003
004
005
etc
...
...
..

[m.brahim]

Bonjour,

Je te propose cette solution:

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
 
data test1;
input id NOM $	TYPE	$;
cards;
1 MELISSA	U	
2 NADI	U	
3 TARA	U	
4 SARA	U	
5 MASSA	U	
6 ASSIA	P	
7 ASSIA	S	
8 NAILA	P	
9 NAILA	S	
10 NAILA	S	
11 SAMI	P	
;
run;
proc sort data =test1; by type;run;
 
data test2;
set test1;
by type ;
retain PR_IND_KEY;
if first.type and TYPE = 'U' then do;
PR_IND_KEY=1170000000;
end;
PR_IND_KEY+1;
if type='U';
run;
data test3;
set test1;
by type ;
retain PR_IND_KEY;
if first.type and  TYPE ne 'U' then do;
PR_IND_KEY=917000000;
end;
PR_IND_KEY+1;
if type ne 'U';
run;
data fin;
set test2 test3;
run;
 
proc sort data=fin; by id; run;

Cordialement