Discussion :

[a_karim_fr]

Bonjour,

J’ai un fichier qui contient plusieurs enregistrement or ce fichier il contient des doubles d’enregistrements, est ce que il y a un JCL ou une moyenne sur TSO pour savoir quel sont les enregistrements en double?

[Homer-ac]

Il me semble qu'il y a déjà eu des réponses de ce genre sur ce forum.
On peut éliminer les doublons facilement par Sort et ICETOOL.
Si on veut juste supprimer ceux-ci, un SUM FIELDS=NONE de SORT fait l'affaire. Si on veut garder dans un fichier à part les doublons, on va plutôt faire ça par ICETOOL.
Un exemple des 2 :

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
//STEP001  EXEC PGM=SORT                                
//SYSOUT   DD  SYSOUT=*                                 
//SORTIN   DD DISP=SHR,DSN=MON.FICHIER.ENTREE           
//SORTOUT  DD DISP=(NEW,CATLG),DSN=&SYSUID..OUT.TEMP1,  
//           SPACE=(TRK,(2,2),RLSE),UNIT=3390,          
//           DCB=*.SORTIN,DSORG=PS                      
//SYSIN    DD  *                                        
 SORT FIELDS=(01,10,CH,A),EQUALS                        
 SUM  FIELDS=NONE                                       
//***************************************************** 
//STEP002  EXEC PGM=ICETOOL                             
//TOOLMSG  DD  SYSOUT=*                                 
//DFSMSG   DD  SYSOUT=*                                 
//SORTIN   DD DISP=SHR,DSN=MON.FICHIER.ENTREE           
//SORTOUT  DD DISP=(NEW,CATLG),DSN=&SYSUID..OUT.TEMP2,  
//           SPACE=(TRK,(2,2),RLSE),UNIT=3390,          
//           DCB=*.SORTIN,DSORG=PS                      
//SORTDUP  DD DISP=(NEW,CATLG),DSN=&SYSUID..OUT.TEMP3,  
//           SPACE=(TRK,(2,2),RLSE),UNIT=3390,          
//           DCB=*.SORTIN,DSORG=PS                      
//*                                                     
//TOOLIN   DD  *                                        
 SELECT  FROM(SORTIN)               TO(SORTOUT) -       
           ON(1,10,CH)   FIRST DISCARD(SORTDUP)         
//*****************************************************

[a_karim_fr]

Merci infiniment Homer-ac