(Avant de vous donner la recette, je rappelle au passage que ce site contient les
sources d’un petit utilitaire de remise à  niveau de fichier très pratique,
j’ai nommé le CL MAJFIC. Vous trouverez également sur ce
site une page des techniques de mise à  niveau de fichier au moyen de la commande CHGPF

La technique.

Elle est assez simple. Elle consiste à  extraire la liste des fichiers des 2
bibliothèques

1 – Extraction des informations de format de la bibliothèque BIBFICREFR pour stockage
dans le fichier FICREFR de la bibliothèque GJTOTO :

DSPFD FILE(BIBFICREFR/*ALL) TYPE(*RCDFMT) OUTPUT(*OUTFILE)
OUTFILE(GJTOTO/FICREFR)

2 – Extraction des informations de format de la bibliothèque BIBFICPROD pour stockage
dans le fichier FICPROD de la bibliothèque GJTOTO :

DSPFD FILE(BIBFICPROD/*ALL) TYPE(*RCDFMT) OUTPUT(*OUTFILE)
OUTFILE(GJTOTO/FICPROD)

3 – Requête SQL comparant l’identifiant de version de fichier, pour repérer les
fichiers n’étant pas à  niveau dans la bibliothèque des fichiers de production
(FICPROD) par rapport à  la bibliothèque de référence (FICREFR) :

SELECT a.rffile

    FROM gjtoto/ficrefr a

    JOIN gjtoto/ficprod b

    ON a.rffile = b.rffile

    WHERE a.rfid <> b.rfid

4 – Requête permettant de repérer des fichiers présents dans la bibliothèque de
référence et absents de la bibliothèque de production :

SELECT a.rffile, b.rffile

    FROM gjtoto/ficrefr a

    EXCEPTION JOIN gjtoto/ficprod b

    ON a.rffile = b.rffile