Comparaison entre deux bibliothèques // aux fichiers

Pour comparer les fichiers de deux biblithèques nommées b1 et b2 :

b3 sera notre biblio de travail.

1. Lancement de l'extraction des fichiers de la bibliothèque B1 dans le fichier de travail FICHIERB1 (nouveau fichier) de la bibliothèque B3 :

DSPFD FILE(B1/*ALL) TYPE(*RCDFMT) OUTPUT(*OUTFILE)
OUTFILE(B3/FICHIERB1)



2. Idem pour B2 dans FICHIERB2 (nouveau fichier).

DSPFD FILE(B2/*ALL) TYPE(*RCDFMT) OUTPUT(*OUTFILE)
OUTFILE(B3/FICHIERB1)



3. Passage en mode SQL :

STRSQL



4. Vérification des différences en terme d'absence de fichier :

SELECT RFFILE, RFLIB, RFFTYP, RFFILA FROM B3/FICHIERB1 WHERE
RFFILE not in (select rffile from B3/FICHIERB2)

SELECT RFFILE, RFLIB, RFFTYP, RFFILA FROM B3/FICHIERB2 WHERE
RFFILE not in (select rffile from B3/FICHIERB1)



5. D'autres contrôles sont possibles après avec toutes les informations contenues dans les fichiers de travail comme vérifier le niveau de contrôle:

SELECT a.RFFILE, a.RFLIB, a.RFFTYP, a.RFFILA FROM B3/FICHIERB1 a
, B3/FICHIERB2 b where a.RFFILE = b.RFFILE and a.RFID <> b.RFID