Vérification que 2 fichiers sont identiques

**eliepoinT** · 12/12/2016, 15h08

Bonjour,
Je dois comparer deux fichier et envoyer un mail pour dire si ils sont identiques ou pas, le tout en JCL.
Je suis parti sur un SORT pour la comparaison:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
//SYSIN DD *
***********
* JOINTURE externe totale
***********
  JOINKEYS F1=FIDMS,FIELDS=(1,2055,A)
  JOINKEYS F2=FDB2,FIELDS=(1,2055,A)
  JOIN UNPAIRED,F1,F2
  REFORMAT FIELDS=(?,F1:1,2055)
  OPTION COPY
  OUTFIL FNAMES=MATCH,INCLUDE=(1,1,CH,EQ,C'B'),BUILD=(1:2,2055)
  OUTFIL FNAMES=NOMATCHI,INCLUDE=(1,1,CH,EQ,C'1'),BUILD=(1:2,2055)
  OUTFIL FNAMES=NOMATCHD,INCLUDE=(1,1,CH,EQ,C'2'),BUILD=(1:2,2055)
/*

J'aimerais ensuite envoyer un mail en indiquant soit:

que les fichiers nomatch sont vides et donc que le traitement est OK
que un des deux fichier nomatch ou les deux sont non vides que donc le traitement est KO

Donc en résumé comment vérifier si un fichier est vide en JCL?
Ou sinon comment auriez vous fait pour faire ce compare?
Merci d'avance!

**eliepoinT** · 12/12/2016, 16h27

Alors j'ai trouvé un moyen de savoir si un fichier est vide via IDCAMS et j'ai couplé ça à un IF ELSE :

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
//*********************************************************************
//* Renvoi RC=4 si fichier vide, RC=0 si non
//EMPTY1   EXEC PGM=IDCAMS
//IN       DD DSN=NOMATCHI
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DATA
PRINT INFILE(IN) COUNT(1)
/*
//*********************************************************************
//* Renvoi RC=4 si fichier vide, RC=0 si non
//EMPTY2   EXEC PGM=IDCAMS
//IN       DD DSN=NOMATCHD
//SYSPRINT DD SYSOUT=*
//SYSIN    DD DATA
PRINT INFILE(IN) COUNT(1)
/*
//********************************************************************
//* Si l'un des fichier nomatch est non vide alors envoie KO
// IF (EMPTY1.RC = 0 | EMPTY2.RC = 0)  THEN
//MAILKO  
// ELSE
//********************************************************************
//* Sinon les 2 fichier nomatch sont vide alors envoie OK
//MAILOK

Je ne sais pas si ça fonctionne car je n'ai pas encore les fichiers sous la main, je reviens demain vous dire ça.