Kaillou, Forum AS400

Forum AS400 et de discussions


    Comparaison entre deux bibliothèques // aux fichiers

    Partagez
    avatar
    Shewolf
    Admin

    Nombre de messages : 190
    Localisation : 91 idf
    Emploi : Analyste Réalisateur / Chef de Projets

    Comparaison entre deux bibliothèques // aux fichiers

    Message par Shewolf le Mer 23 Jan - 16:29

    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

      La date/heure actuelle est Lun 20 Nov - 1:54