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?
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?
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) //*****************************************************
Merci infiniment Homer-ac
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager