SQL pour la maintenance des fichiers en CL

programme pilote CL réorganise le fichier à  l’aide de la commande RGZPFM
(Reorganize Physical File Format) pour l’étape de nettoyage. Avec SQL en revanche,
on peut regrouper le processus complet de maintenance dans un seul petit programme
CL.

Pour utiliser SQL en CL, il faut avoir accès au processeur SQL dont disposent
tous les AS/400 (même si on ne dispose pas du produit sous licence DB2 Query Manager
and SQL Development Kit (5769-ST1)). L’encadré « RUNSQL Guide Express » indique
comment télécharger le source d’un programme permettant d’exécuter les instructions
SQL à  partir d’une ligne de commande ou depuis un programme CL. Sur mon AS/400,
j’ai créé une commande RUNSQL.

La figure 1 montre un programme CL qui construit une instruction SQL puis l’exécute
pour supprimer les enregistrements de deux fichiers de transactions en fonction
de leur date de facturation. Toute facture de plus de trois mois est supprimée.
A la fin du programme, les deux fichiers sont réorganisés. Les fichiers facture
avec lesquels je travaille possède un champ date, de sorte que je doive concaténer
et effectuer certaines opérations arithmétiques sur les dates pour déterminer
à  quand remonte le 1er du mois d’il y a trois mois.

En A, le programme récupère la date courante et le siècle, puis trouve la date
correspondant exactement à  trois mois auparavant. Je concatène ensuite les champs
de type caractère représentant l’année, le mois et la date dans une variable de
type chaîne de caractères au format. En B, le programme conçoit l’instruction
SQL pour supprimer les enregistrements selon la date de facture définie en A.
Enfin, les fichiers sont réorganisés en C.

Les critères de sélection d’enregistrements peuvent ne pas être aussi complexes
que celui-ci, mais je voulais montrer la façon dont CL et SQL peuvent traiter
les champs de type date.