Discussion :

[Carlozi]

Bonjour,

J'ai besoin d'un tuyau sur l'ordre INSPECT.

Je cherche : à incrémenter un compteur COUNTI à chaque fois qu'une variable A est 'similaire' à une variable B...

Je fais :

Code :

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

INSPECT <VARIABLE_A> TALLYING <COUNTI> FOR ALL <VARIABLE_B>

NB : VARIABLE_A et VARIABLE_B ont même format et même longueur X(100).

Je pense que mon code est faux...

Merci pour votre aide,

Cordialement,

Carlozi.

[Pico-----]

Salut,

Je comprends pas vraiment ce que tu veux faire ...

Tu veux compter le nombre de caractères communs aux deux variables ?
si oui, la position importe ou pas ?

[Carlozi]

Bonjour,

Je souhaite :

incrémenter un compteur COUNTI à chaque fois qu'une variable A est 'similaire' à une variable B

Peu importe les espace, etc...

A chaque fois qu'il rencontre la variable A PIC X(100) dans la variable B PIC X(100) , il doit incrémenter COUNTI...

Peut-être que mon code est bon?

Carlozi.

Edit : je dois faire un test, je verrais ce que ça donne

[Hédhili Jaïdane]

Bonjour,

Je souhaite :

incrémenter un compteur COUNTI à chaque fois qu'une variable A est 'similaire' à une variable B

Peu importe les espace, etc...

A chaque fois qu'il rencontre la variable A PIC X(100) dans la variable B PIC X(100) , il doit incrémenter COUNTI...

Peut-être que mon code est bon?

Carlozi.

Edit : je dois faire un test, je verrais ce que ça donne

Bonjour.

Tel que tu as fait ton INSPECT, COUNTI va être égal à 1 si et seulement si VARIABLE-A = VARIABLE-B, les 2 variables ayant la même longueur.

Si tu ne veux pas tenir des espaces inutiles des fins de zones, il faudrait que tu les élimines par exemple par :

Code :

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

1
2
3
4
5
6
            PERFORM VARYING I FROM 100 BY -1 UNTIL I = 0 
                                       OR VARIABLE-A(I:1) NOT = SPACE
           END-PERFORM.
           MOVE 0 TO COUNTI.
           INSPECT VARIABLE-B tallying COUNTI for all VARIABLE-B(1:I).

Par contre si tu ne veux pas tenir de tous les espaces, il faudrait que tu les élimines par exemple par :

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
           move spaces to VARIABLE-A1.
           move 0 to J. 
           perform varying I from 1 by 1 until I > 100
               if VARIABLE-A(I:1) not = space
                  add 1 to J
                  move VARIABLE-A(I:1) to VARIABLE-A1(J:1)
               end-if
           end-perform.
           move J to A.
           move 0 to J.
           move spaces to VARIABLE-B1.
           perform varying I from 1 by 1 until I > 100
               if VARIABLE-B(I:1) not = space
                  add 1 to J
                  move VARIABLE-B(I:1) to VARIABLE-B1(J:1)
               end-if
           end-perform.
           move J to B. 
           move 0 to COUNTI.
           INSPECT VARIABLE-A1 tallying COUNTI for all VARIABLE-B1(1:B).

[Carlozi]

En effet, ta première solution était très bonne.

Cependant, j'utilise "PAC-Base pour les boulets" (et encore, version allégée), je ne peux donc pas me permettre de faire un varying....

J'ai trouvé une solution alternative à tout cela avec un curseur utilisant un like et quelques unstring pour tronquer la variable...

Merci pour votre aide,

Carlozi

[Hédhili Jaïdane]

...J'ai trouvé une solution alternative à tout cela avec un curseur utilisant un like et quelques unstring pour tronquer la variable...

Merci pour votre aide,

Carlozi

Bien joué. C'est une excellente solution.
Merci de nous avoir fait part de la solution trouvée et retenue, et d'avoir pensé au tag [Résolu]

[Carlozi]

En effet, ta première solution était très bonne.

Cependant, j'utilise "PAC-Base pour les boulets" (et encore, version allégée), je ne peux donc pas me permettre de faire un varying....

Je reviens sur ces propos, il est posible de réaliser la première solution en PAC-BASE. Je l'afficherai dans ce poste prochainement.

Carlozi.