Discussion :

[tassia]

Bonjour,


je veux avoir un champ sur 7 caractères qui s'incrémente ex : P000001,P000002,P000003 ......etc
Voici mon programme qui ne marche pas car mon je n'ai pas de zréos sur mon champ IDENTIFIANT.

Code :

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

1
2
3
4
5
6
7
8
9
10
data "Z:\tmp\spf\LOT123456789ok";
set "Z:\tmp\spf\LOT123456789";
format identi  Z6.;
if fic ne '010' then do;
if _n_=1 then identi="000001";
identi+1;
identifiant=P!!identi;
end;
if fic = '010' then identifiant=ident;
run;

merci beaucoup.

[hossward]

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
data test ;
input fic $ ;
cards ;
020
010
010
050
010
070
010
010
; run ;  
 
data test1;
set test;	retain identifiant ;
if _n_=1 or fic ne '010' then do; 
identi+1 ;
identifiant=cats('P', put(identi, z6.)) ;
end ; 
run ;

Cdt
Ward

[hossward]

Ou bien comme ça :

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
 
data test1;
set test;	
retain identifiant ;
 
if _n_=1 then do ; identi+1 ; 
   if fic ne '010' then identifiant=cats('P', put(identi, z6.)) ;
   else 	            identifiant=put(identi, z6.) ;	
        end ;
 
else if fic ne '010' then do; 
identi=identi+1 ;
identifiant=cats('P', put(identi, z6.)) ;
                   end ; 	 
else 	 identifiant=put(identi, z6.) ;	 
run ;

[tassia]

merci beaucoup.