Discussion :

[casgr1]

bonjour,

j'aimerais pouvoir en COBOL réaliser le STRING (ou un équivalent) suivant :

Code :

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

1
2
3
4
5
STRING 'LIBRAIRIE CONTIENT ' DELIMITED BY SIZE 
           NBLIVRES DELIMITED BY SIZE
           ' LIVRES' DELIMITED BY SIZE 
           INTO MSG-OUT

Seulement voila :
NBLIVRES est déclaré en 9(3) et peut de ce fait être précédé de quelques zéros.
Quelle est la méthode la plus légère pour les supprimer?

[qi130]

As-tu essayé avec une variable ayant une picture d'édition (ZZ9) ?

[casgr1]

Oui,
et ca me pose un problème à la compilation losrque je fait un
ADD 1 TO NBLIVRES

nblivre doit etre numérique est non en Z..

[TheLeadingEdge]

bonjour,

Et qque chose comme ça ?

Code :

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

1
2
3
4
5
 
nn NBLIVRES 9(3).
nn NBLIVRES-Z redefines NBLIVRES ZZ9.
 
STRING ... NBLIVRES-Z DELIMITED BY SIZE ...

[Luc Orient]

Oui,
et ca me pose un problème à la compilation losrque je fait un
ADD 1 TO NBLIVRES

nblivre doit etre numérique est non en Z..

Effectivement, une PICTURE d'édition n'est qu'un masque d'édition est doit toujours être réservée pour une variable terminale ...

Ma solution (désolé, j'ai pas trouvé plus simple ... ) :
- utiliser une variable avec une PICTURE d'édition
- alimenter cette variable
- comme dans cette variable les blancs seront à gauche il suffit d'inverser la chaîne de caractères ainsi obtenue
- en tenir compte dans l'ordre STRING

Soit :

Déclaration :

Code :

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

1
2
3
4
5
6
1 NBLIVRES   PIC 999. 
1 NBLIVRES-E PIC ZZ9. 
1 NBLIVRES-R REDEFINES NBLIVRES-E 
             PIC XXX.
1 NBLIVRES-S PIC XXX.

Coding :

Code :

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

1
2
3
4
5
6
7
8
MOVE NBLIVRES TO NBLIVRES-E 
MOVE FUNCTION REVERSE(NBLIVRES-R) TO NBLIVRES-S 
MOVE SPACE TO MSG-OUT
STRING 'LIBRAIRIE CONTIENT ' DELIMITED BY SIZE
     NBLIVRES-S DELIMITED BY SPACE
     ' LIVRES' DELIMITED BY SIZE
     INTO MSG-OUT

Et ça a l'air de marcher ...
J'ai testé sur Mainframe IBM sous z/OS
Compilateur COBOL: COBOL for OS/390 & VM V2R2

[casgr1]

En effet, ca marche!

Merci beaucoup!