Discussion :

[Invité]

Je suis confronté à un problème que voici :
j'ai un fichier en entrée qui fait 13000 octets de long et qui contient 400 données.
Les données de longueur variable sont séparées par des séparateurs point virgule ';'

Je dois créer un programme qui doit supprimer les séparateurs et mettre les données au format fixe.
En sortie du programme j'aurai donc un fichier sans séparateur et avec les données au format fixe.

Pouvez-vous, svp, m'aider pour la mise en oeuvre de ce traitement ?

[Hédhili Jaïdane]

Bonjour.

Est ce que tu peux nous préciser :
- la plateforme et le compilateur
- et est ce que les zones en sortie sont identiques en type et longueur pour qu'on puisse utiliser, par exemple, un tableau ?

Pense au UNSTRING.

Si ce n'est pas obligatoire de faire ça en Cobol, les outils des plateformes sont capables de le faire.

[Invité]

Je ne connais pas la version du compilateur (c'est du IBM Z/OS).
Et il s'agit d'un pgm COBOL à développer.

Voici le type de description en sortie :
une COPY avec 400 données ; la longueur totale de la COPY fait 13000 octets.
Ce ne sont que des données de format alphanumérique avec des longueurs différentes.

exemple :
NOM PIC X(20)
PRENOM PIC X(20)
VILLE PIC X(32)
PAYS PIC X(10)

etc

le fichier en entrée est de cette forme (données au format variable)

DURAND;EMILIE;PARIS;FRANCE

En sortie du programme, voici ce que cela doit donner :
DURAND (suivi de 14 SPACE) EMILIE (suivi de 14 SPACE) PARIS (suivi de 27 SPACE) FRANCE (suivi de 4 SPACE)


Je ne maitrise pas les tableaux et UNSTRING.

Quelles sont les instructions à coder ?

[Hédhili Jaïdane]

Bonjour.

Ok, je ne suis pas sur du z/OS mais pas trop loin, ça devrait marcher.

Dans ton cas c'est simple mais fastidieux, tu vas devoir pisser les 400 lignes des zones en sortie :

Code :

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

1
2
3
4
5
6
7
8
9
           unstring LIGNE-ENTREE             
              delimited by ";"         
              into                     
                   NOM                 
                   PRENOM              
                   VILLE               
                   PAYS                
           end-unstring.

[Invité]

merci l'instruction unstring fonctionne.

Autre question : j'ai un champ MONTANT en PIC X (23).

Après le UNSTRING, voici un exemple de contenu de ce champ :
456.23
autre exemple : 85647.58

Je souhaite que ces valeurs soient mise dans une zone en numérique avec suppression du point (qui matérialise la virgule).
Cette zone serait en PIC 9(16)V9(2).

Comment procéder ?

[Hédhili Jaïdane]

Bonjour.
Regarde cette discussion : https://www.developpez.net/forums/d1...e/#post8506076

[Invité]

Bonjour,

J'ai une autre question.
Le fichier en entrée comporte 2 données :
NOM PIC X(32)
PRENOM PIC X(32)

Ces 2 données peuvent être valorisées comme suit :
NOM --> DURAND
PRENOM --> JEAN HUGUES

En sortie du programme, j'ai la donnée DESTINATAIRE en PIC X(24) qui doit être valorisée par la concaténation du NOM et PRENOM.

Quel est le code à écrire pour obtenir comme valeur dans la donnée DESTINATAIRE --> DURAND JEAN HUGUES

Si je fais un STRING NOM PRENOM DELIMITED BY SIZE INTO DESTINATAIRE

j'obtiens cette valorisation --> DURAND

Je n'ai pas le JEAN HUGUES

Merci pour aide

[Hédhili Jaïdane]

Bonjour.
Un truc comme ça devrait marcher :

Code :

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

1
2
3
4
5
6
000650     string NOM     delimited by "^^ "
000000            "^"
000000            PRENOM delimited "^^"
000000       into DESTINATAIRE.
000000*   "^^" = 2 espaces, "^" = 1 espace

Pense à utiliser, éventuellement, les fonctions TRIM, TRIML et TRIMR si elles existent chez toi.

[Invité]

merci beaucoup tout fonctionne