Fusion fichier avec entete

Bonjour,
j'ai un traitement avec plusieurs fichiers en entrée qui ont tous la même structure (1299 de long):
2 lignes d'entête toutes identiques dans mes fichiers en entrée
ensuite les lignes contenant les données (sans doublon)

Je souhaite fusionner mes fichiers en conservant les 2 lignes d'entete.

Je suis plus que débutant en JCL

J'ai essayé de rajouter un champ en fin de fichier pour trier dessus et le supprimer ensuite mais le JCL plante (NO SORT OR MERGE CONTROL STATEMENT )

Voilà ce que j'ai essayé (je me complique p'têt la vie, y'a sûrment plus simple)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 //STEP01 EXEC PGM=SORT //SORTIN DD DSN=FIC.INPUT01,DISP=SHR DD DSN=FIC.INPUT02,DISP=SHR DD DSN=FIC.INPUT03,DISP=SHR //SORTOUT DD DSN=FIC.OUTPUT01,DISP=SHR //SYSOUT DD SYSOUT=* // SYSIN DD * INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'DATE'), --> Ma 1ère ligne d'entete commence par le mot DATE et je veux lui coller la valeur 1 en position 1300 OVERLAY=(1300:C'1')), IFTHEN=(WHEN=(1,2,CH,EQ,C'SI'), --> Ma 2ère ligne d'entete commence par le mot SI et je veux lui coller la valeur 2 en position 1300 OVERLAY=(1300:C'2')), IFTHEN=(WHEN=NONE, --> Mes lignes de données sont recopiées en leur insérant la valeur 3 en position 1300 OVERLAY=(1300:C'3')) SORT FIELDS=(1300,1,CH,A,) --> je trie sur la colonne que j'ai rajouté SUM FIELDS=NONE --> je supprime les entetes en doublon OUTFIL REMOVECC, --> je supprime la colonne que j'ai rajouté dans le fichier de sortie OMIT=(1300,1,SS,EQ,C'0,9'), OUTREC=(1,1300)

Citation:

Envoyé par LZJ79

... Je souhaite fusionner mes fichiers en conservant les 2 lignes d'entete.

Fusionner ou concaténer ?

Citation:

Envoyé par Luc Orient

Fusionner ou concaténer ?

Je ne vois pas trop la différence entre les 2 termes. Je dirai concaténer car je voudrais avoir les données du fichier 1 + les données du fichier 2 + les données du fichier 3 dans un seul fichier (avec l'entete au début bien sûr)

Citation:

Envoyé par LZJ79

Je ne vois pas trop la différence entre les 2 termes ...

Pour moi, fusionner, c'est interclasser, c'est à dire que les fichiers sont triés au départ et que le résultat est trié aussi, avec une clé bien sûr, c'est d'ailleurs ce que fait l'ordre MERGE du DFSORT . Concaténer, c'est juste " mettre bout à bout ", et là il n'y a plus de notion d'ordre, et en général une copie simple suffit.

Citation:

Envoyé par Luc Orient

Pour moi, fusionner, c'est interclasser, c'est à dire que les fichiers sont triés au départ et que le résultat est trié aussi, avec une clé bien sûr, c'est d'ailleurs ce que fait l'ordre MERGE du DFSORT . Concaténer, c'est juste " mettre bout à bout ", et là il n'y a plus de notion d'ordre, et en général une copie simple suffit.

Ha ben fusionner alors du coup, en triant sur les 5 premières colonnes (hors entete).

Citation:

Envoyé par LZJ79

Ha ben fusionner alors du coup, en triant sur les 5 premières colonnes (hors entete).

Ah zut alors ! ... ce n'est pas ce que j'avais compris de ton premier post et j'ai préparé une solution pour résoudre une concaténation :oops: ...

La démarche est la suivante :
1) on met de coté les enregistrements d'en tête
2) on copie tous les fichiers en supprimant les enregistrements d'en tête
3) on regroupe le tout

Supposons les fichiers de tests suivants :

Fichier 1 :
Code:

1 2 3 4 DATE FICHIER 1 - ENTETE 1 SI FICHIER 1 - ENTETE 2 FICHIER 1 - LIGNE 1 FICHIER 1 - LIGNE 2
Fichier 2 :
Code:

1 2 3 4 DATE FICHIER 2 - ENTETE 1 SI FICHIER 2 - ENTETE 2 FICHIER 2 - LIGNE 1 FICHIER 2 - LIGNE 2
Fichier 3 :
Code:

1 2 3 4 DATE FICHIER 3 - ENTETE 1 SI FICHIER 3 - ENTETE 2 FICHIER 3 - LIGNE 1 FICHIER 3 - LIGNE 2
Partie 1 (le nom des fichiers est masqué) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 //ICETOOL EXEC PGM=ICETOOL,REGION=1024K //* DVP - COPIE 2 ENREGISTREMENTS //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COPY FROM(INDD) TO(OUTDD) USING(CTL1) //CTL1CNTL DD * OUTFIL ENDREC=2 //INDD DD DISP=SHR,DSN=.I1 //OUTDD DD DSN=.O1, // DISP=(NEW,CATLG,DELETE), // AVGREC=U,SPACE=(80,(100,10))
Fichier de sortie :
Code:

1 2 DATE FICHIER 1 - ENTETE 1 SI FICHIER 1 - ENTETE 2
Partie 2 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 //ICETOOL EXEC PGM=ICETOOL,REGION=1024K //* * DVP - COPIE 2 ENREGISTREMENTS //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COPY FROM(INDD) TO(OUTDD) USING(CTL1) //CTL1CNTL DD * OMIT COND=((1,4,CH,EQ,C'DATE'),OR, (1,2,CH,EQ,C'SI')) //INDD DD DISP=SHR,DSN=.I1 // DD DISP=SHR,DSN=.I2 // DD DISP=SHR,DSN=.I3 //OUTDD DD DSN=.O2, // DISP=(NEW,CATLG,DELETE), // AVGREC=U,SPACE=(80,(100,10))
Fichier de sortie :
Code:

1 2 3 4 5 6 FICHIER 1 - LIGNE 1 FICHIER 1 - LIGNE 2 FICHIER 2 - LIGNE 1 FICHIER 2 - LIGNE 2 FICHIER 3 - LIGNE 1 FICHIER 3 - LIGNE 2
Partie 3 :
Code:

1 2 3 4 5 6 7 8 9 10 11 //ICETOOL EXEC PGM=ICETOOL,REGION=1024K //* * DVP - REGROUPEMENT FICHIER //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COPY FROM(INDD) TO(OUTDD) //INDD DD DISP=SHR,DSN=.O1 // DD DISP=SHR,DSN=.O2 //OUTDD DD DSN=.O3, // DISP=(NEW,CATLG,DELETE), // AVGREC=U,SPACE=(80,(100,10))
Résultat final :
Code:

1 2 3 4 5 6 7 8 DATE FICHIER 1 - ENTETE 1 SI FICHIER 1 - ENTETE 2 FICHIER 1 - LIGNE 1 FICHIER 1 - LIGNE 2 FICHIER 2 - LIGNE 1 FICHIER 2 - LIGNE 2 FICHIER 3 - LIGNE 1 FICHIER 3 - LIGNE 2
Et voilà ... si tu souhaites une fusion, il suffit de remplacer le JCL de la partie 2 par un JCL d'appel à MERGE.

Et sinon, pour ta solution, qui devrait marcher, je pense, il faudrait placer la directive SORT en première ligne de la SYSIN.

Citation:

Envoyé par Luc Orient

Ah zut alors ! ... ce n'est pas ce que j'avais compris de ton premier post et j'ai préparé une solution pour résoudre une concaténation :oops: ...

Et voilà ... si tu souhaites une fusion, il suffit de remplacer le JCL de la partie 2 par un JCL d'appel à MERGE.

Et sinon, pour ta solution, qui devrait marcher, je pense, il faudrait placer la directive SORT en première ligne de la SYSIN.

Merci pour ton code, j'ai trouvé pour le plantage que j'avais (j'avais mis une ligne de commentaire entre le SYSIN et le INREC, et ben il aime pas ça :P). Donc le code suivant marche
Code:

1 2 3 4 5 6 7 8 9 10 INREC IFTHEN=(WHEN=(1,4,CH,EQ,C'DATE'), BUILD=(C'1',1,1300)), IFTHEN=(WHEN=(1,2,CH,EQ,C'SI'), BUILD=(C'2',1,1300)), IFTHEN=(WHEN=NONE, BUILD=(C'3',1,1300)) SORT FIELDS=(1,48,CH,A) SUM FIELDS=NONE OUTREC FIELDS=(2,1300) END
Je n'ai pas encore eu le temps d'essayer ta proposition, mais je la garde sous le coude car c'est une autre vision des choses qui peut m'être utile prochainement. Merci d'avoir pris la peine de te pencher sur mon sujet. Je clos la discussion