Exemple projet SAS AF

**Steubla** · 08/08/2014, 10h57

Bonjour,

Est ce que quelqu'un qui se souviens / ou qui utilise SAS AF à un mini projet/exemple à faire partager ?

**xav2229** · 08/08/2014, 14h42

Code :

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

1
2
3
4
5
6
7
8
9
 
INIT:
Return;
 
MAIN:
Return;
 
TERM:
Return;

**Steubla** · 08/08/2014, 14h56

Quel chambreur ce xav2229 !

**xav2229** · 08/08/2014, 15h46

bah quoi c'est un début

apres tu compiles en debug et tu run et tu vois ce qu'il se passe

**Steubla** · 08/08/2014, 19h12

Xav, il se passe que rien ne se passe en fait

Et si par exemple, j'ai envie de calculer mon age, avec le programme source si dessous

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
 
init:                                                                                                                                                                                                                            
control error;                                                                                                                                              
datjour=today();                                                                                                                                       
RETURN;                                                                       
 
main:                                                                                                                                                      
if modified(datnai) then do;                                                                                                                              
if datnai eq _blank_ then do;                                                                                                                             
message ='indiquez votre date de naissance';                                                                                                            
return;                                                                                                                                                   
end;                                                                          
 
if error(datnai) then do;                                                                                                                                  
message=" indiquez la date sous la forme JJ/MM/AA";                                                                                                       
end;                                                                          
 
 
else do;                                                                                                                                                 
diff=datjour-datnai+1;                                                                                                                                     
message= " vous etes agé aujourd'hui de " !!diff!! " jours";                                                                                             
end; end ;                                                                                                                                              
return;