Problème de reformatage d'enregistrements [Résolu]

[sigfried321]

Bonjour à tous,

Dans un JCL, je souhaite reformater les enregistrements d'un fichier comportant une zone (zone 2) de longueur inconnue.

Exemple du fichier en entrée:
..Zone1(Char17);Zone2(Char5)..;Zone3(Char20);
..Zone1(Char17);Zone2(Char10)..;Zone3(Char20);
..Zone1(Char17);Zone2(Char9)..;Zone3(Char20);
(les points sont des low-value et c'est ce que je cherche à supprimer)

Fichier en sortie:
Zone1;Zone2;Zone3;
Zone1;Zone2;Zone3;
Zone1;Zone2;Zone3;

J'ai essayé par SORT et IEBGENER mais j'ai l'impression que les deux imposent de définir la longueur de la zone ou la chaine de caractères à copier. Et je n'ai aucune de ses deux infos.

Auriez-vous une solution sans passer par un Rexx?

[Luc Orient]

Je verrai bien un OUTFIL avec un FINDREP moi ...

Par exemple :

Code :

1
2
3
4
5
6
7
8
9
//S2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
...
...
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL FINDREP=(IN=X’00’,OUT=C’’)

Non testé vu l'heure ...
Et demain absent du bureau (RTT) ...
Dîtes nous si ça fonctionne ...

[bernard59139]

Bonjour

Tu complète la réponse de Luc Lorient avec cet exemple en changeant ENDBEFR de ' ' à ';'.
Tu devrais avoir un beau fichier en sortie

[benchab]

Regarde le post ici : http://www.developpez.net/forums/d99...ement-fichier/

ca marche avec des zones fixes mais j'ai vu dans la doc qu'on pouvait faire cela avec des zones variables.

[Luc Orient]

J'ai testé ma solution et elle semble fonctionner ...

Je ne pense pas qu'il souhaite aligner les zones dans son fichier mais juste supprimer les caractères à X'00' et donc l'opérateur PARSE ne me semble pas nécessaire ... Mais bon je peux me tromper ...

[sigfried321]

Bonjour à tous,

Désolé de répondre si tard mais je n'avais pas encore eu le temps de tester les solutions.
En effet Luc Orient, ta solution me suffit amplement.
De plus le PARSE n'aurai pas pu marcher car la zone 2 ne se finit pas par un point-virgule ou tout autre caractère prédéfini.

Merci à tous pour votre aide.