Discussion :

[twisty]

Bonjour,

Je souhaite, en jcl, comparer deux fichiers, sur les 5ères positions, et mettre les données non communes, dans un troisième fichier :

exemple de jcl :

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
//SUP    EXEC  PGM=IDCAMS                           
//SYSPRINT DD  SYSOUT=*                               
//SYSIN    DD *                                       
    DELETE   nomfic.nodup                    
/*                                                    
//STEPDUP EXEC PGM=ICETOOL                            
//SYSOUT   DD SYSOUT=*                                
//SYSPRINT DD SYSOUT=*                                
//TOOLMSG  DD SYSOUT=*                                
//DFSMSG  DD SYSOUT=*                                 
//FIC1    DD DSN=nomfic1,DISP=SHR 
//FIC2   DD DSN=nomfic2,DISP=SHR 
//FIC3   DD DSN=nomfic.nodup,              
//         DISP=(,CATLG,DELETE),                      
//         LIKE=nomfic1           
//DDIMP0   DD SYSOUT=O,RECFM=F,LRECL=80             
//TOOLIN DD *                                         
  SELECT FROM(FIC1) TO(FIC2) ON(1,5,CH) NODUPS DISCARD(FIC3)
/*

Le problème est que le système copie écrase les données de nomfic2, en les remplaçant par celles de nomfic1, et fic3 est vide.

Que faut-il mettre comme instruction, dans TOOLIN, pour avoir le résultat attendu ?

Merci d'avance.

Twisty.

[Luc Orient]

Une proposition ... à adapter ...

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
//SORT EXEC PGM=SORT
//* JOIN
//SYSOUT DD SYSOUT=*
//SYSIN DD *
 JOINKEYS FILES=F1,FIELDS=(1,5,A)
 JOINKEYS FILES=F2,FIELDS=(1,5,A)
 JOIN UNPAIRED,ONLY
 SORT FIELDS=COPY
//SORTJNF1 DD *
AAAAA
BBBBB
//SORTJNF2 DD *
AAAAA
CCCCC
//SORTOUT DD SYSOUT=*

Contenu du SORTOUT :

Code :

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

1
2
BBBBB
CCCCC

[twisty]

Bonjour,

Merci pour cette réponse, mais j'ai un code ABENDED S000 U0005, avec des fichiers existants (F1=> nomfic1, disp=shr, F2=>nomfic2,disp=shr).

En fait, le système ne reconnait pas les instructions JOINKEYS. Serait-ce un problème de version d'OS ou de jcl ?

Twisty.

[bernard59139]

Bonjour

C'est un problème de version de logiciel de tri.

JOINKEY date de Novembre 2009 pour DFSORT. SYNCSORT a suivi de peu.
==> votre logiciel de tri n'a pas été maj depuis plus d'un an.

[twisty]

Dans ce cas ,avant novembre 2009, qu'elle est l'instruction qui existait avant JOINKEYS ?

Sinon, la mise à jour du logiciel de tri ne se fera pas (économie oblige en temps de crise).

Twisty

[bernard59139]

Avec ICETOOL, tu peux essayer ceci:

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
//STEPDUP EXEC PGM=ICETOOL                            
//SYSOUT   DD SYSOUT=*                                
//SYSPRINT DD SYSOUT=*                                
//TOOLMSG  DD SYSOUT=*                                
//DFSMSG   DD SYSOUT=*                                 
//FIC1     DD DSN=nomfic1,DISP=SHR 
//         DD DSN=nomfic2,DISP=SHR 
//FIC2   DD Dummy
//FIC3   DD DSN=nomfic.nodup,              
//         DISP=(,CATLG,DELETE),                      
//         LIKE=nomfic1           
//TOOLIN DD *                                         
  SELECT FROM(FIC1) TO(FIC2) ON(1,5,CH) NODUPS DISCARD(FIC3)
/*

Mais attention, ca ne détecte les doublons que sur l'ensemble des 2 fichiers

[Peut-êtreUneRéponse]

SPLICE implémenté avant JOINKEYS devrait fonctionner, dans ton cas il faudrait faire quelque chose qui ressemble à ça :

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
//STEPDUP EXEC PGM=ICETOOL                            
//SYSOUT   DD SYSOUT=*                                
//SYSPRINT DD SYSOUT=*                                
//TOOLMSG  DD SYSOUT=*                                
//DFSMSG   DD SYSOUT=*                                 
//FIC1     DD DSN=nomfic1,DISP=SHR 
//FIC2     DD DSN=nomfic2,DISP=SHR
//TMP      DD DSN=nomfic.nodup,              
//            DISP=(MOD,PASS),                      
//            LIKE=nomfic1
//OUT      DD DSN=nomfic.OUT,              
//            DISP=(,CATLG,CATLG),                    
//            LIKE=nomfic1           
//TOOLIN DD *
* ajout ID 'AA' fichier 1 en position 80
  COPY FROM(FIC1) TO(TMP) USING(WRK1)                                         
* ajout ID 'BB' fichier 2 en position 80
  COPY FROM(FIC2) TO(TMP) USING(WRK2)   
* Splice fic1 fic2 sur clé 5 première pos + écrasement 1/2 ID
  SPLICE FROM(TMP) TO(OUT) ON(1,5,CH) WITH(80,1) KEEPNODUPS - 
            USING(WRK3)
/*
//WRK1CNTL DD *
  INREC OVERLAY=(80:C'AA')
/*
//WRK2CNTL DD *
  INREC OVERLAY=(80:C'BB')
/*
//WRK3CNTL DD *
  OUTFIL FNAMES=OUT,
      OMIT=(80,2,CH,EQ,C'BA'),
      BUILD=(1,80)
/*
//

Désolé s'il y a qq erreurs, ce n'est pas testé (je suis en déplacement) et c'est saisie depuis mon smartphone.

.

[twisty]

En fait, la solution de bernard59139 donne les enregistrements, en commun, et les écrit deux fois, dans le fichier de sortie. Or, je cherche à avoir les enregistrements, qui ne sont justement pas en commun, dans les deux fichiers.

Pouvez-vous m'aider ?

Merci d'avance.

[Peut-êtreUneRéponse]

Le SPLICE que j'ai indiqué devrait répondre à ton besoin.