Discussion :

[Manbra]

Bonjour à tous.

J'ai un problème de conversion COBOL. J'espère que quelqu'un pourrait me donner une solution simple parce que j'ai tout essayé et je ne voudrais pas passer par un INSPECT.


J'ai une variable de travaille : WS-VTOTEN01-CLMAG PIC 9(7)V9(3)
que je met ensuite dans WS-VTOTEN01-CLMAG-Z PIC ZZZZZZ9,999.
Le problème c'est qu'il me cadre à droite.

ex: WS-VTOTEN01-CLMAG -> 0000025321
WS-VTOTEN01-CLMAG-Z -> bbbbb25,321

Je veux faire un move dans un CHAR(11) en cadrant à gauche pour me permetre de faire après un DELIMITED BY SIZE.


Merci d'avance.
Manu.

[Hédhili Jaïdane]

Bonjour.

Tu veux bien nous préciser ta plateforme et ton compilateur comme indiqué dans cette discussion : Règle Tag [SystèmeExploitation-VersionCompilateur]

Que le cadrage du champ en numérique édité soit fait à droite, c'est tout à fait normal.

Si tu as les fonctions TRIM/TRIML tu peux les utiliser pour supprimer les espaces ou tout autre caractère au début ou à la chaine de caractères. Sinon il te restera le INSPECT ou une petite boucle perform en redéfinissant la chaine source et la chaine cible en tableaux ou utiliser le reference modifier

[Manbra]

Bonjour.

Tu veux bien nous préciser ta plateforme et ton compilateur comme indiqué dans cette discussion : Règle Tag [SystèmeExploitation-VersionCompilateur]

Que le cadrage du champ en numérique édité soit fait à droite, c'est tout à fait normal.

Si tu as les fonctions TRIM/TRIML tu peux les utiliser pour supprimer les espaces ou tout autre caractère au début ou à la chaine de caractères. Sinon il te restera le INSPECT ou une petite boucle perform en redéfinissant la chaine source et la chaine cible en tableaux ou utiliser le reference modifier

C'est z/OS (Mainframe). Donc il ne me reste que la soluction du INSPECT, si je comprend bien ? Comme j'ai ce problême avec 100 variables j'éspèrai pour trouver une autre solution.

[Mercure]

Regarde ici un exemple d'utilisation de la fonction REVERSE. C'est facilement adaptable à ton cas.

[Peut-êtreUneRéponse]

@Mercure : Merci pour le lien

@Manbra : Sinon avec un INSPECT sans fonction REVERSE tu peux faire quelque chose qui ressemble à ça :

Code cobol :

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
22
23
24
25
26
27
28
29
30
 WORKING-STORAGE SECTION.
 
 01 NB-SPACE             PIC S9(4) COMP.
 01 LG-EFFECTIV          PIC S9(4) COMP.
 01 WS-VTOTEN01-CLMAG    PIC 9(7)V9(3).
 01 WS-VTOTEN01-CLMAG-Z  PIC ZZZZZZ9,999.
 01 WS-JUSTIFIE          PIC X(11)

 PROCEDURE DIVISION.

* Décompte du nombre d'espace de la zone à cadrer dans compteur NB-SPACE
     INSPECT WS-VTOTEN01-CLMAG-Z TALLYING NB-SPACE                
                                 FOR ALL SPACES.      
                                              
* Calcul de la longueur effective de la zone à cadrer
     SUBTRACT NB-SPACE FROM LENGTH OF WS-VTOTEN01-CLMAG-Z GIVING LG-EFFECTIV.
     
* Transformation du nbre d'espace en position pour MOVE positionnel 
     ADD 1 TO NB-SPACE GIVING NB-SPACE.                            
     
* MOVE positionnel de la zone à cadrer dans la zone finale justifiée à gauche WS-JUSTIFIE
     MOVE WS-VTOTEN01-CLMAG-Z(NB-SPACE:LG-EFFECTIV) TO WS-JUSTIFIE.
     
* Vérification
     DISPLAY 'PIC 9(7)V9(3)    : *'  WS-VTOTEN01-CLMAG   '*'.
     DISPLAY 'PIC ZZZZZZ9,999  : *'  WS-VTOTEN01-CLMAG-Z '*'.
     DISPLAY 'JUSTIFIE         : *'  WS-JUSTIFIE         '*'.
     DISPLAY 'POSITION         : '  NB-SPACE.     
     DISPLAY 'LONG EFFECTIVE   : '  LG-EFFECTIV

.

Résultat :

Code SYSOUT :

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

1
2
3
4
5
6
7
********************************* TOP OF DATA ********
PIC 9(7)V9(3)    : *0000099230*                              
PIC ZZZZZZ9,999  : *     99,230*                             
JUSTIFIE         : *99,230     *                             
POSITION         : 0006
LONG EFFECTIVE   : 0006                                    
******************************** BOTTOM OF DATA ******

.

[Mercure]

@Manbra,

Alors, qu'as-tu fait en final ?

[EMercier]

L'option "Decimal point is comma" devrait remédier à ce problême.

Indique via le compilateur que la virgule flottante "V" du format numérique doit se caler sur le caractère "," de la zone d'édition.

A placer dans les premieres options déclaratives du Programme/Module, je ne sais plus trop ou mais genre Identification Division ou pas loin

[metalange]

Bonjour,

Merci Peut-êtreUneRéponse pour ta réponse, j'avais un problème similaire et ta solution est exactement ce que je recherchais.