Discussion :

[a_karim_fr]

Bonjour

J’ai 2 fichiers en entrée triés sur le matricule
F1 : matricule X(10) en position 100.
F2 : matricule X(10) en position 300.

Je veux comparer les 2 fichiers et avoir en résultat 3 fichiers en sorties :
Matricule présents dans F2 et dans F1.
Matricule présents dans F1 et absent dans F2
Matricule présents dans F2 et absent dans F1

Merci d'avance

[Darkzinus]

Bonjour,

voici un exemple (méthode avec indicateur) :

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
//RAPPR1 EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTJNF1 DD DISP=SHR,DSN=FIC1
//SORTJNF2 DD DISP=SHR,DSN=FIC2
//F1ONLY   DD DSN=
//*...
//F2ONLY   DD DSN=
//*...
//BOTH     DD DSN=
//*...
//SYSIN    DD   *
  JOINKEYS FILE=F1,FIELDS=(01,400,A)
  JOINKEYS FILE=F2,FIELDS=(01,400,A)
  JOIN UNPAIRED,F1,F2
  REFORMAT FIELDS=(F1:1,400,F2:1,400,?)
  OPTION COPY
  OUTFIL FNAMES=F1ONLY,INCLUDE=(801,1,CH,EQ,C'1'),
           OUTREC=(001,400)
  OUTFIL FNAMES=F2ONLY,INCLUDE=(801,1,CH,EQ,C'2'),
           OUTREC=(401,400)
  OUTFIL FNAMES=BOTH,INCLUDE=(801,1,CH,EQ,C'B'),
           OUTREC=(1,800)
/*

Ici je comparais deux fichiers dans leur totalité (400 caractères, la clef correspondait donc à la taille du fichier).
En fait on définit un fichier intermédiaire qui rapproche les deux fichiers et c'est le caractère en position 801 (l'indicateur) ici qui détermine si l'enregistrement est que dans le premier, dans le second ou dans les deux fichiers. Dès lors on reconstitue le résultat dans le fichier de sortie correspondant avec l'Outrec.

[a_karim_fr]

Merci pour ta réponse , moi j'ai le fichier F1 (FB,6500) et F2 (FB,200)

exemple :
F1 : matricule X(10) en position 100.

Code :

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

1
2
3
4
5
NUM  NOM  Matricule 
1       xxx     A1000 
2       ddd     A1000     
 3      ddg     A2000   
 4      xcc     A3000

F2 : matricule X(10) en position 300.

Code :

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

1
2
3
4
5
N°SIR   Matricule  
 X1          A1000 
X2          A1000     
X3          A2000   
X4          A5000

je veux dans le résultat :

F3

Code :

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

1
2
3
A1000 
A1000 
A2000

F4

Code :

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

A3000

F5

Code :

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

A5000

[Darkzinus]

Voici une explication claire :

http://www.ibm.com/support/knowledge...or_method_.htm

[a_karim_fr]

Merci beaucoup