Discussion :

[Antichoc]

Bonjour

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CHAMPA CHAMPB CHAMPC

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Luc Orient]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
CHAMPA CHAMPB CHAMPC DETAIL1 
CHAMPA CHAMPB CHAMPC DETAIL2 
CHAMPA CHAMPB CHAMPC DETAIL3 
CHAMPA CHAMPB CHAMPC DETAILN

[Antichoc]

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