Discussion :

[Gaadek]

Bonjour à tous,

Cela fait pas mal de temps que je fais du SAS, et je viens de tomber sur un problème assez intéressant à résoudre, et malheureusement, je n'ai pas encore trouvé de solution élégante à ce problème

Savez vous comment faire pour vérifier qu'un numérique peut s'écrire sous un format donné?

Prenons un exemple simple. Je désire vérifier que des données numériques dans un dataset peuvent s'écrire avec un format 6.2:

123.45 => OK
1.011 => NOK
12345 => NOK
0.45 => OK

La seule solution que j'ai pu trouver, pour le moment, c'est de convertir les données en chaine de caractères, afin d'utiliser la fonction SCAN me permettant d'extraire les composantes entières et décimales de mes numériques. Ensuite, en testant la taille de ces composantes, je détermine si le numérique peut être ou non représenté sous un format donné.

Exemple:
1) conversion de 123.45 => "123.45"
2) Utilisation de la fonction SCAN pour récupérer les composantes entières ("123") et décimales ("45")
3) Utilisation de la fonction LENGTH pour déterminer que la taille de la composante entière est inférieure à 4 et que la taille de la composante décimale est inférieure à 3.

Bref, beaucoup d'étapes à mon sens pour faire une simple vérification

Si vous avez mieux, je suis preneur !!!

Merci

[RemiBousquet]

Voilà une alternative, plus "mathématique" et avec je pense moins de temps de traitement
1/ Definition des macros variables :

Code :

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

1
2
3
%let format = 6.2 ;
%let decimal = %scan(&format.,2,.);
%let dizaine = %eval (%scan(&format.,1,.) - &decimal) ;

2/ Vérification

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
data test ;
    i =   123.45  ; output ;
    i =     1.011 ; output ; 
    i = 12345     ; output ;
    i =     0.45  ; output ;
run ;
data test2 ;
    set test ;
    PB_DIZAINE = ( i >= 10 ** &dizaine. ) ;
    PB_DECIMAL = (i ne round (i, 10 ** (- &decimal)) );
    PB = PB_DIZAINE or PB_DECIMAL ;
    put i= @15 PB= @20 '( ' PB_DIZAINE= PB_DECIMAL= ' )' ;
run ;

[xav2229]

je propose une solution plus simple:

tu transforme en caractere et puis tu relis le caractere avec l'informat:

Exemple sur le format 6.2

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
proc sql;
   create table WORK.NUMS
   (n num)
   ;
   insert into WORK.NUMS
   values(123.45)
   values(1.011)
   values(12345) 
   values(0.45)
   values(12345678900)
   ;
quit;
 
data _NULL_;
   set WORK.NUMS;
   test = (n = input(put(n, 6.2), ?? 6.2));
   put test = n=6.2;
run;

Exemple sur le format ddmmyy10.

Code :

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

1
2
3
4
5
6
7
 
data _NULL_;
   set WORK.NUMS;
   n = int(n * 100);
   test = (n = input(put(n, ddmmyy10.), ?? ddmmyy10.));
   put test = n= ddmmyy10.;
run;

le problème : l'informat n'existe pas forcement pour tous les formats

xav