Quand faut-il utiliser SQL plutôt que RPG ou CL ?

Imaginons qu’un opérateur ait chargé par erreur une série de transactions budgétaires
d’un fichier PC deux fois. Etant donné qu’il y a plus de 2.000 transactions en
double, il est évident que le DFU (Data File Utility) n’est pas la bonne solution
pour aller les supprimer. En utilisant la commande DSPPFM (Display Physical Member),
on parcourt le fichier et on détermine où débutent les enregistrements en double.
Ensuite, il suffit de penser à  la manière de concevoir le programme RPG adéquat
pour supprimer ces transactions.

Mais, en fait, il n’est pas nécessaire d’écrire un programme RPG pour supprimer
des enregistrements contenus dans un fichier. On peut résoudre le problème avec
une simple instruction SQL utilisant la fonction RRN (Relative Record Number).
Pour utiliser cette fonction, il faut connaître le numéro du premier enregistrement
dans le fichier dans lequel on souhaite entamer le processus de suppression (remarque
: cette solution suppose que le fichier ne réutilise pas les enregistrements supprimés.
Si c’est le cas, les enregistrements téléchargés seront éparpillés dans le fichier
et non placés en ordre séquentiel à  la fin du fichier).

Supposons par exemple que le premier enregistrement en double commence au numéro
8347 dans le fichier du budget PBudget. Après avoir utilisé la commande STRSQL
(Start Interactive SQL) sur la ligne de commande, on peut saisir la commande suivante
:

Delete From PBudget
Where RRN(PBudget) >= 8347

La clause Delete From PBudget indique l’action (Delete) et le fichier (PBudget).
La clause Where spécifie les critères selon lesquels les fichiers seront supprimés.
La fonction RRN peut prendre un nom de fichier en tant que paramètre ou elle peut
être une clause de paramètre vide (c’est-à -dire RRN()) si un seul fichier est
spécifié dans l’instruction SQL. (on aurait pu utiliser RRN() ici car l’instruction
ne comporte qu’un fichier).
Cela suffit amplement ! Le problème est résolu, aucune programmation n’a été nécessaire.
Mais voici quelques réserves : premièrement, la fonction RRN est idéale pour les
travaux de maintenance mais, étant donné qu’elle lit les enregistrements séquentiellement,
elle est lente et peut ne pas convenir aux travaux de production. Ensuite, l’instruction
SQL utilisant les numéros d’enregistrements, il faut s’assurer de ne supprimer
que les enregistrements souhaités.