problème avec %sysfunc

[aminao]

Bonjour,
J'ai un problème avec la macro %sysfunc, elle me retourne un nombre inexact qui vaut tjrs 0, merci bien de m'aider à trouver ou se trouve le problème.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
%macro calcul_ind;
proc sql noprint;
SELECT DISTINCT formule INTO :formule1 separated BY ';' FROM sasuser.etape1 ORDER BY code_ind;
SELECT COUNT(*) INTO :NB_Enreg FROM sasuser.etape1;
quit;
DATA _null; 
%DO i=1 %TO &NB_Enreg;  
formule&i=SCAN("&formule1",&i,';');
ch&i=prxchange("s/[\/ + \- *]{1,}/\//",-1,strip(formule&i));
%let x&i=%sysfunc(count(ch&i,/));
%DO j=1 %TO &&x&i+1;
....
%end;

La table sasuser.etape1 :
code_ind | formule
Ind0 | etape1.Ind0+etape0.Ind1
Ind1 | etape1.Ind3-etape0.Ind3
Ind2 | etape1.Ind1*etape1.Ind5
Ind3 | etape0.Ind2/etape0.Ind4
Ind5 | etape0.Ind5

[L0007]

Jai l'impression de voir déjà une petite erreur:

Code :

formule&i=SCAN("&formule1",&i,';');

N'oublie pas que tu es dans une macro:
donc:

Code :

1
2
%sysfunc(scan
ou %scan

A vérifier...

[Manoutz]

Bonjour,

as tu essaye sans le mode macro et est ce que ca marche? Tu cherches a compter quoi? Tu as essaye avec un quote:

Code :

%let x&i=%sysfunc(count(ch&i,'/'));

[bahraoui]

Bonjour,

Tu veux faire quoi?

Salah

[aminao]

Bonjour,

Merci d'abord pour vos réponses, mais je les ai déjà essayées, ca marche pas.
voilà mon programme ce que doit faire :

par exemple pour la formule "etape0.Ind0+etape0.Ind1-etape0.Ind2", il doit remplacer les opérateurs "+-*/" par des "/" j'obtiens comme résultat
"etape0.Ind0/etape0.Ind1/etape0.Ind2" puis je veux obtenir le nombre de "/" pour l'utiliser dans une boucle , quand j'utilise :

Code :

1
2
3
x&i=count(ch&i,'/'); ca marche mais lorsque j'utilise ce compteur dans ma boucle
%DO j=1 %TO x&i; 
%end;

il me renvoie cette erreur :

Code :

1
2
3
A character operand was found IN the %EVAL FUNCTION OR %IF condition WHERE a numeric operand IS required. The condition was: x&i 
ERROR: The %TO value of the %DO J loop IS invalid.
ERROR: The macro CALCUL_IND will stop executing.

c'est pourquoi j'ai passé par la macro %sysfunc, sauf qu'elle me retourne tjrs 0.

[Manoutz]

j'essaierai un

Code :

%DO j=1 %TO %sysevalf(&&x&i+1);

[s_a_m]

Hello;

je n'ai pas trop compris ce que tu veux faire ;
mais comme tu teste des macro variables , le DATA "_null"(data _null_), n'a aucun interêt ici; dans le code macro , il faut utiliser des %sysfunc pour toutes les fonctions.


Utilises le COUNTC et non pas le count , et entoure ton / de quôtes.
exemple

Code :

1
2
3
4
 
%let a = %sysfunc (countc('a/b/c/d','/'));
 
%put aaaa &a.;

et ... et...

[aminao]

J'ai déjà utilisé %sysevalf mais elle retrourne tjrs 0 (un nombre inexact)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
%macro calcul_ind;
proc sql noprint;
SELECT DISTINCT formule INTO :formule separated BY ';' FROM etape1 ORDER BY code_ind;
SELECT COUNT(*) INTO :NB_Enreg FROM etape1;
quit;
%DO i=1 %TO &NB_Enreg;  
%let formule&i=%sysfunc(scan("&formule",&i,';'));
%let ch&i=%sysfunc(prxchange("s/[\/ + \- *]{1,}/\//",-1,strip(formule&i)));
%let x&i=%sysfunc(countc(ch&i,'/'));
%DO j=1 %TO &&x&i+1;
comp&i.&j=scan(ch&i,&j,'/');
%END; 
%END;
%mend;

J'ai supprimé le data _null et j'ai utilisé des %sysfunc mais il me donne l'erreur suivante :

Code :

1
2
ERROR: Literal contains unmatched quote.
ERROR: The macro CALCUL_IND will stop executing.

[aminao]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
%macro calcul_ind;
proc sql noprint;
SELECT DISTINCT formule INTO :formule separated BY ';' FROM etape1 ORDER BY code_ind;
SELECT COUNT(*) INTO :NB_Enreg FROM etape1;
quit;
%DO i=1 %TO &NB_Enreg;  
%let formule&i=%sysfunc(scan("&formule",&i,';'));
%let ch&i=%sysfunc(prxchange("s/[\/ + \- *]{1,}/\//",-1,strip(&&formule&i)));
%let x&i=%sysfunc(countc(&&ch&i,"/"));
%DO j=1 %TO %sysevalf(&&x&i+1);
comp&i.&j=scan(&&ch&i,&j,"/");
%END; 
%END;
%mend;

tjrs même erreur:

Code :

1
2
ERROR: Literal contains unmatched quote.
ERROR: The macro CALCUL_IND will stop executing.

[bahraoui]

ajoute l'option

Code :

1
2
 
OPTION mprint;

Avant d'exécuter ton code, comme ça tu aura le code qui va être exécuté.
Cela facilitera la recherche de l'erreur.

[bahraoui]

Envoyé par aminao

Bonjour,

Merci d'abord pour vos réponses, mais je les ai déjà essayées, ca marche pas.
voilà mon programme ce que doit faire :

par exemple pour la formule "etape0.Ind0+etape0.Ind1-etape0.Ind2", il doit remplacer les opérateurs "+-*/" par des "/" j'obtiens comme résultat
"etape0.Ind0/etape0.Ind1/etape0.Ind2" puis je veux obtenir le nombre de "/" pour l'utiliser dans une boucle , quand j'utilise :

Code :

il me renvoie cette erreur :

Code :

c'est pourquoi j'ai passé par la macro %sysfunc, sauf qu'elle me retourne tjrs 0.

Est ce que c'est ça ce que tu cherches?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
DATA etape1;
code_ind="Ind0";formule="etape1.Ind0+etape0.Ind1";output;
code_ind="Ind1";formule="etape1.Ind3-etape0.Ind3";output;
code_ind="Ind2";formule=" etape1.Ind1*etape1.Ind5";output;
code_ind="Ind3";formule=" etape0.Ind2/etape0.Ind4";output;
code_ind="Ind5";formule=" etape0.Ind5";output;
run;
DATA t;
SET etape1;
t=translate(formule,'/','*','/','+','/','-');
nb_slash=count(t,'/');
run;

[s_a_m]

Ah oui si c'est sa , peut être mieux avec les Expressions Régulières:

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
26
27
28
29
30
31
 
DATA etape1;
INFILE cards dlm='|' ;
input 
code_ind $4. @8 formule $25.;
cards;
Ind0 | etape1.Ind0+etape0.Ind1
Ind1 | etape1.Ind3-etape0.Ind3
Ind2 | etape1.Ind1*etape1.Ind5
Ind3 | etape0.Ind2/etape0.Ind4
Ind5 | etape0.Ind5 
Ind0 | etape1.Ind0+*etape0.Ind1
Ind1 | etape1.Ind3-+*etape0.Ind3
Ind2 | etape1.Ind1**etape1.Ind5
;
run;
 
 
DATA tab1;
SET etape1;
var_new= prxchange("s/[\/ + \- *]{1,}/\//",-1,strip(formule));
nbr=countc(var_new,"/");
run;
 
 
 
DATA t;
SET etape1;
t=translate(formule,'/','*','/','+','/','-');
nb_slash=count(t,'/');
run;

[aminao]

Merci d'abors pour les réponses, mais mon problème c'est comment utiliser le compteur de "/" (aprés remplacement) dans la boucle %do

[bahraoui]

Est ce que le code présenter répond à ton premier besoin?
Si oui tu fais quoi dans la boucle.
Si on put le faire sans macro langage ça sera plus simple à lire et corriger par la suite.

[aminao]

Bjr,
Je vous explique en gros ce que je veux faire:
normalement j'ai deux tables etape0(code_ind,libelle,formule) et etape1(code_ind,libelle,formule) comme suit:

etape0

code_ind | formule
Ind0 | 1230
Ind1 | 1000
Ind2 | 500
Ind3 | 4569

etape1

code_ind | formule
Ind0 | etape0.Ind0
Ind1 | etape1.Ind2+etape0.Ind3
Ind2 | etape1.Ind0+etape1.Ind1
comme vous pouvez remarquer, les indicateurs de l'etape1 se calculent en fonction de l'etape0 comme ca peut etre en fonction des indic de l'etape0 et de l'etape1. En premier temps, je veux identifier les indicateurs de l'etape1 qui sont en fonction seulement de l'etape0 et les caluler, puis traiter les indics=f(etape0.Indi,etape1.Indj) rempler les etape1.indj par des etape0.indi et les calculer après. Pour identifier les indicateursqui sont en fonction que des indics de l'etape0, je dois décomposer la formule de l'etape1 :
par exemple :
etape1.Ind0=etape0.Ind0+etape0.Ind1 je la décompose :
etape0.Ind0/etape0.Ind1 (remplacer l'opérateur)
etape0.Ind0 (chercher le premier composant et tester si le prefixe etapei=etape0 si oui tester le deuxième composant)
donc j'aurais besoin de savoir le nbre de composants dans chaque formule et l'utiliser dans une boucle

[bahraoui]

J'ai modifié la structure de la table.
Est ce que sous cette format c'est plus simple de traiter ton problème?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DATA etape1;
code_ind="Ind0";formule="etape1.Ind0+etape0.Ind1";output;
code_ind="Ind1";formule="etape1.Ind3-etape0.Ind3";output;
code_ind="Ind2";formule=" etape1.Ind1*etape1.Ind5";output;
code_ind="Ind3";formule=" etape0.Ind2/etape0.Ind4";output;
code_ind="Ind5";formule=" etape0.Ind5";output;
run;
DATA t4;
SET etape1;
t=translate(formule,'/','*','/','+','/','-');
nb_slash=count(t,'/');
do i=1 TO nb_slash+1;
put i nb_slash;
	k=scan(t,i,'/');output;
end;
 
run;

[aminao]

nn ca répond pas à mon besoin, puisqu'il ne me ramène que le dernier composant de la fomrule, en fait chaque formule a un nbre variable de composants (séparés pard des opérateurs) et je dois traiter chaque composant de chaque formule à part.

[bahraoui]

tu as bien contrôler le nombre de ligne?

[aminao]

yep, mais ca marche po

[bahraoui]

si j'ai bien compris tu veux comparer etape1.Ind0 avec etape0.Ind1
les comparaison sont a faire sur les éléments de la même ligne.
tu peux t'inspirer de cette exemple pour résoudre ton problème.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
DATA t4;
SET etape1;
t=translate(formule,'/','*','/','+','/','-');
nb_slash=count(t,'/');
array tab{30} $30. _TEMPORARY_; /*on initialise un tableau de 30 éléments*/
 
/*boucle pour alimenter mon tableau*/
do i=1 TO nb_slash+1;
	tab[i]=scan(t,i,'/');/*Alimentation du tableau*/
end;
/*boucle pour comparer les éléments*/
do i=2 TO nb_slash+1;
	IF tab[i]= tab[i-1] then top=1;
	else top=0;
end;
run;