Discussion :

[vince29]

Bonjour,

Voilà je travaille sur une édition ou je dois ressortir une liste d'identifiant composé sur une seule ligne. Pour que cela passe sur une seule ligne, je dois d'abord supprimer tous les zéros. Au lieu de faire une boucle sur les caractères de ma zone (valeur alphanumérique) et supprimer les zéro par des blanc, je souhiate supprimer complètement ces zéros. Au final au lieu d'avoir : 0000000018, j'obtienne 18 (sans blanc devant).
Après quelques recherches et des conseils, on m'avait fourni la solution suivante :

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
STRING
            VAR1
            DELIMITED BY SPACES
 
            SPACE-DELIMITER
            DELIMITED BY SIZE
 
            VAR2
            DELIMITED BY SPACES
 
            SPACE-DELIMITER
            DELIMITED BY SIZE
 
            VAR3
            DELIMITED BY SPACES
 
           INTO VAR4
           END-STRING.

Avec cette solution, j'arrive à concaténer mes valeurs en une seule variable, mais je n'arrive pas à supprimer les zéros ....

Est-ce que l'un d'entre vous aurait une solution ?

D'avance merci.

[Homer-ac]

Si on est certain que la zone est numérique, bien entendu les masques d'édition (pic z(n)9(1) par exemple)
Sinon Inspect VARn Replacing leading zero by space pour ne pas supprimer les zéros significatifs avant d'exécuter le string.

[vince29]

la zone d'édition est une zone alphanumérique qui prend toute la largeur de la plage, et je doi concaténer mes valeurs dans cette zone ..
mes données sont des alphanumériques, donc pour toi la solution serait de faire le "INSPECT VARn REPLACING ...." et après le STRING ..
Ainsi, ma première étape remplacerait les blanc par les zéros et ensuite, les blanc seraient supprimés par la fonction STRING ?
Merci

[Hédhili Jaïdane]

Bonjour.

Tu peux utiliser la fonction TRIM si elle existe dans ton Cobol, mais tu dois passer par ce que te dit Homer-ac pour que les zéros significatifs ne soient pas supprimés.

[vince29]

mais je n'ai pas la fonction TRIM ...

[fremen167]

Bonjour,

A mon avis, la solution la plus simple est la suivante (pour chaque nombre) :
1) compter le nombre de zéro (leading) de chaque nombre par INSPECT TALLYING ;
2) récupérer les chiffres significatifs (en pensant à traiter le cas 0) ;
3) ajouter le résultat obtenu à la chaîne de sortie par STRING.