JCL - Concaténation fichiers

Bonjour,

Je tiens tout d'abord à préciser que je suis débutant en mainframe je m'excuse donc si la réponse à ma question est évidente, je ne trouve tout simplement pas la réponse.

Mon souci est le suivant :

J'ai un JCL très long que je dois modifier, dans ce JCL j’implante, plusieurs fois un programme qui lis le nombre de ligne du fichiers et qui ensuite écris en sortie une seule ligne contenant les infos que je voulais.

Maintenant je voudrais fusionner un par un, au fur et à mesure du programme les fichiers résultant dans un SEUL fichier global. Or je ne trouve que des solutions où à chaque fois je devrais créer un nouveau fichier à chaque concaténation.

Sous forme imagée cela devrait donner cela :

Pièce jointe 184314


Y aurait il un moyen de garder le même fichier en entrée et en sortie d'un SORT ? C'est la seule solution que je vois actuellement, si vous en avez d'autres n'hésitez pas !

Merci d'avance.

Bonjour,

J'ai un peu de mal à saisir ta demande. Pourrais-tu faire une exemple avec à mesure les modifications qui interviennent sur ton fichier ?

Déjà, merci d'avoir répondu :)

Ensuite pour l'explication :

Imaginons un fichier A vide, c'est dans ce fichier que je voudrais récupérer toutes mes informations.
Prenons maintenant 2 fichiers B1 et B2 issus de mon programme, ils contiennent chacun une ligne.

Au premier tri j'ai en entrée le fichier B1 et en sortie le fichier A, qui va donc contenir la ligne du fichier B1.

Au second tri j'aurai en entrée le fichier A et le fichier B2, en sortie j'aurais de nouveau le fichier A, cette fois contenant la ligne de B1 puis de B2 (ou l'inverse peu importe) et non pas un nouveau fichier C.

Je voudrais en fait garder le même nom de fichier, A dans l'exemple précédent, tout au long de mon JCL.

J'espère avoir été plus clair.

Tu veux dire garder le même DSN pour ton fichier enrichi au cours de divers traitement ? En COBOL tu peux définir un fichier en I/O c'est à dire INPUT OUTPUT. (Tu peux donc avoir pour un même DSN le fichier en entrée/sortie.
Autrement pour ce qui est de la concaténation "pure" tu es l'option MOD dans le paramètre DISP (d'allocation des fichiers) qui ajoute des lignes sur un fichier existant. Cela répond-il en partie à ta question ?

Voici un exemple de concaténation (ici le fichier B existe déjà et c'est le fichier A qui est concaténé à celui-ci) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

//CONCAT EXEC PGM=SORT //SYSPRINT DD SYSOUT=* //SYSOUT DD SYSOUT=* //SORTIN DD DSN=FICB,DISP=SHR // DD DSN=FICA,DISP=SHR //SORTOUT DD DSN=FICB, // DISP=(MOD,CATLG,DELETE), // DCB=*.SORTIN //SYSIN DD * SORT FIELDS=COPY /*

---

Oui c'est bien garder le même DSN qu'il me faut, je vais tester ta solution, je te tiens au courant si j'arrive à la faire fonctionner (ou pas ;) ).

Merci !

Alors pour le fin mot de l'histoire :

Mon entreprise interdis les fichiers en DISP=MOD, cette solution était donc impossible.

Au final je vais utiliser un fichier à multiples générations, et créer une nouvelle génération du fichier à chaque tri.

Merci beaucoup pour ton aide !

Dans l'exemple donné par Darkzinus le DISP=MOD n'est pas obligatoire, un DISP=(NEW,CATLG,..) donne le même résultat, à la condition que le fichier n'existe pas.
a+

Citation:

---

Envoyé par Kanade

Alors pour le fin mot de l'histoire :

Mon entreprise interdis les fichiers en DISP=MOD, cette solution était donc impossible.

Au final je vais utiliser un fichier à multiples générations, et créer une nouvelle génération du fichier à chaque tri.

Merci beaucoup pour ton aide !

---

Effectivement le DISP=MOD est assez peu utilisé en PROD car en cas d'anomalie sur un STEP on n'a aucun fichier intermédiaire permettant de rejouer une partie de traitement. La solution du GDG peut être pas mal si ton fichier est par exemple un stock.