Produit Cartésien avec SORT ou ICETOOL

Bonjour

J'ai une manipulation de fichier à réaliser.

J'ai le fichier 1 qui contient un seul et unique enregistrement

Code:

---

CHAMPA CHAMPB CHAMPC

---

Puis, j'ai un second fichier qui contient plusieurs enregistrements

Code:

---

1 2 3 4 5

DETAIL1 DETAIL2 DETAIL3 ... DETAILn

---

Je souhaites pouvoir par JCL, réaliser un produit cartésien pour obtenir en sortie autant d'enregistrement du fichier 2 mais avec le contenu de l'enregistrement du fichier 1 devant chacun

Code:

---

1 2 3 4 5

CHAMPA CHAMPB CHAMPC DETAIL1 CHAMPA CHAMPB CHAMPC DETAIL2 CHAMPA CHAMPB CHAMPC DETAIL3 ... CHAMPA CHAMPB CHAMPC DETAILn

---

Savez vous si cela est possible ?

Bonjour,

Une solution possible :

L'idée est de générer sur les fichiers une clé fictive de même valeur pour tous les enregistrements pour faire la jointure ensuite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37

//ICETOOL EXEC PGM=ICETOOL,REGION=1024K //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COPY FROM(INDD) TO(OUTDD) USING(CTL1) //INDD DD * CHAMPA CHAMPB CHAMPC //CTL1CNTL DD * OUTREC BUILD(C'A',1,20) //OUTDD DD DISP=(NEW,PASS),DSN=&&TEMP1, // AVGREC=U,SPACE=(80,(100,10)) //* //ICETOOL EXEC PGM=ICETOOL,REGION=1024K //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //TOOLIN DD * COPY FROM(INDD) TO(OUTDD) USING(CTL1) //INDD DD * DETAIL1 DETAIL2 DETAIL3 DETAILN //CTL1CNTL DD * OUTREC BUILD(C'A ',1,7) //OUTDD DD DISP=(NEW,PASS),DSN=&&TEMP2, // AVGREC=U,SPACE=(80,(100,10)) //* //SORT EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SYSIN DD * JOINKEYS FILES=F1,FIELDS=(1,1,A) JOINKEYS FILES=F2,FIELDS=(1,1,A) REFORMAT FIELDS=(F1:2,20,F2:2,8) SORT FIELDS=COPY //SORTJNF1 DD DISP=SHR,DSN=&&TEMP1 //SORTJNF2 DD DISP=SHR,DSN=&&TEMP2 //SORTOUT DD SYSOUT=*

---

Et le résultat ( ici écrit dans le SYSOUT ) :

Code:

---

1 2 3 4

CHAMPA CHAMPB CHAMPC DETAIL1 CHAMPA CHAMPB CHAMPC DETAIL2 CHAMPA CHAMPB CHAMPC DETAIL3 CHAMPA CHAMPB CHAMPC DETAILN

---

C'est exactement ça. Merci pour cette astuce !!