Problème avec une boucle %if %then %do [Résolu]

[yemal]

Bonjour à tous,
j'ai un soucis au niveau de la macro test suivante. Le compilateur ne comprend pas la condition "%if (&diff<0)...".
j'aimerais que si la différence est négative, cela me renvoie la valeur absolue...
Comment y remédier ? Est ce que cela pose problème si "&diff" est négatif dans une boucle %if %then %do?
Je vous remercie beaucoup par avance

Code :

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
%macro test();                                                                                                                              
                                                                                                                                                                                                                                                                                                                                                                                                                 
%let a = 50; 
%let b = 70;                                                                                        
%let cval = 95;                                                                                                                                                                                                                                                 
%put valeur avant boucle de cval = &cval;                                                                                                   
                                                                                                                                            
                                                                                                                                            
%do %while ((&cval < 100) or (&cval >200)); 
                         
      %if (&cval < 100) %then                                                                                                              
      %do;                                                                                                                                                                                       
            %let diff=%sysevalf(&a.-&b.);
                                                                                                                                                                                                     
            %if (&diff < 0) %then                                                                                                        
            %do;                                                                                                                                                           
                  %let diff = %sysevalf(&b.- &a.);      /* Si la différence est négative je renvoie la valeur absolue */                                                                                 
            %end;                                                                                                              	                                                                                         
	    %let cval = %sysevalf(&cval.+ 0.1);                                                                                             
                                                                                                                                            
      %end;                                                                                                                             
      %put valeur après la boucle de cval = &cval;                                                                                          
                                                                                                                                   
%mend test;                                                                                                                                                                                                                                                                       
%test()

[datametric]

il te manque un %end ligne 20.

ensuite, je n'ai pas compris ce que ce code est censé faire avec ton WHILE. Le truc ne s'arrête pas quand on l'exécute.

[datametric]

tout ce résume à cela en fait ?

%let diff = %sysevalf(%sysfunc(abs(&a.- &b.)));

[olivier.decourt]

Je dirais même que ça se résume à

Code :

%let diff = %sysfunc(abs(&a.- &b.));

[datametric]

ah oui en plus

[yemal]

oui effectivement avec la macro-fonction %sysfunc cela fonctionne très bien ! Merci