Jump to content

[Resolu] Unstring en cobol


Recommended Posts

Bonjour, je dois faire un programme en cobol, dans ce programme je lis un enregistrement dans un fichier, les champs sont séparés par une tabulation horizontale et je dois utiliser unstring pour extraire les champs.

Seulement meme si la lecture est correcte, l'extraction me reenvoie le premier champs correctement et ensuite uniquement des espaces et je vois pas trop pourquoi.

La partie de code concernée :

// affichage de l'enregistrement lu.
          display "[" di1 "]".
// extraction.
          unstring di1 delimited by all X'09'
          into code-titre-di1 nom-di1 nom-firme-di1
               adresse-firme-di1 cp-firme-di1 numtel-firme-di1.
// affichage du résultat                
          display "[" code-titre-di1 nom-di1 nom-firme-di1
               adresse-firme-di1 cp-firme-di1 numtel-firme-di1 "]".

et voila les données et résultat

données :

F	DELALIEUX	POLYDATA	1 B2 BOULEVARD ANSPACH	1000	022183020

résultat :

[F       DELALIEUX       POLYDATA        1 B2 BOULEVARD ANSPACH  1000    0221830
20                 ]
[F
           ]

Si vous voulez je peux mettre le fichier de données complet.

Si quelqu'un voit d'ou vient le problème merci mais je me doute que doit pas y avoir des masses de programmeurs cobol ici...

Résolu : Il manquait un pour le fichier de données a cause des tab.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...