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.