[COBOL ANS85] Résultat en sortie

**eagleleader** · 10/04/2007, 09h12

Bonjour à toutes et tous,

Je (re)débute en Cobol et voici mon problème :

Fichier en entrée :

Code :

1
2
3
FD entree.
01 struct-entree.
  02 texte PIC X(10).

Je voudrais placer chacune des expressions triées par ordre alphabétique dans le fichier de résultat :

Code :

1
2
3
4
FD resultat.
01 struct-sortie.
  02 recu PIC X(10).
  02 FILLER PIC XXX VALUE " ok".

-> il exécute le tri via SORT mais le problème est qu'il ne veut pas écrire le FILLER.
fichier de tri :

Code :

1
2
3
SD fichier-tri
01 struct-tri.
  02 texte-tri PIC X(10).

Code :

1
2
3
4
programme.
    SORT fichier-tri ON ASCENDING KEY texte-tri
    USING entree GIVING resultat.

Pouvez-vous m'aider ?

**HRS** · 10/04/2007, 10h06

Code :

1
2
3
SORT fichier-tri ON ASCENDING KEY texte-tri
USING entree GIVING resultat.

avec cette syntaxe, le fichier resultat a la même syntaxe qu'entree

vous pouvez utiliser la syntaxe suivante, pour un traitement plus élaboré

Code :

1
2
3
SORT fichier-tri ON ASCENDING KEY texte-tri
INPUT PROCEDURE entree-section OUTPUT PROCEDURE resultat-section.

je vous laisse potasser votre manuel COBOL. Recontactez-nous si
besoin

**eagleleader** · 10/04/2007, 10h45

Pardon, je me suis mal exprimé.
En effet j'ai utilisé la procédure OUTPUT PROCEDURE en lui précisant :

Code :

1
2
3
MOVE texte-tri TO recu.
WRITE struct-sortie.

Mais ceci ne fonctionne pas. J'ai cherché plusieurs façon mais je ne trouve pas.

**eagleleader** · 10/04/2007, 10h46

J'ai essayé aussi ce genre de code :

Code :

WRITE struct-sortie FROM struct-tri

dans l'OUTPUT PROCEDURE mais rien n'y fait. Les résultats sont triés mais le fichier de résultat n'affiche pas ce que je souhaite ...

**HRS** · 10/04/2007, 11h18

Code :

1
2
3
4
5
FD resultat.
01 struct-sortie.
  02 recu PIC X(10).
  02 FILLER PIC XXX VALUE " ok".

les value en FD ne fonctionnent pas. faire

Code :

1
2
3
4
5
FD resultat.
01 struct-sortie.
  02 recu PIC X(10).
  02 ok PIC XXX.

Code :

1
2
3
4
MOVE texte-tri TO recu.
MOVE " ok" to ok
WRITE struct-sortie.

**eagleleader** · 10/04/2007, 11h22

Merci, je suis vraiment une tête en l'air

Je l'avais lu en plus

Cobol