Discussion :

[maria.lonovo]

bonjour,


j'ai un fichier en sortie (variable) :

Code :

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

1
2
3
4
5
6
7
8
9
01 W-ZONE.
    05 ZONE-1       PIC X(01).
    05 FILLER        PIC X(01)  value '|'.
    05 ZONE-2       PIC X(20).
    05 FILLER        PIC X(01)  value '|'.
    05 ZONE-3       PIC X(05).
    05 FILLER        PIC X(01)  value '|'.
    05 ZONE-4       PIC X(20).
    05 FILLER        PIC X(01)  value '|'.

j'alimente directement fichier en sortie (programme) :
MOVE 'A' TO ZONE-1.
MOVE 'AZERT' TO ZONE-2.
MOVE '12345' TO ZONE-3.
MOVE 'TIT' TO ZONE-4.


Résultat j'ai :

Code :

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

A|AZERT               |12345|TIT                  |

comment faire pour supprimer l'espace a droit de fichier en sortie ? soit par JCL ou cobol
Résultat attendu :

Code :

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

A|AZERT|12345|TIT|

merci d'avance

[Darkzinus]

Bonjour, pour ce que tu veux faire le plus simple serait de ne pas fixer en working les séparateurs mais de concaténer tes zones avec des instructions "delimited by SPACE". L'instruction est de ce type :

STRING ZONE-1 delimited by SPACE '|' delimited by size ZONE-2 delimited by SPACE '|' delimited by size …
into W-VAR-SORTIE

[maria.lonovo]

merci pour l'info