Tuyau N° 4 : Vérifier l’existence d’un objet IFS

est un
utilitaire autonome que vous pouvez
ajouter librement à  votre bibliothèque
CL. Le programme renvoie une valeur
logique de 1 si l’objet spécifié existe, et
de 0 s’il n’existe pas. La définition de
commande CL pour CHKIFSOBJ apparaît
en figure 2.
Le programme exécute la commande
DSPLNK en utilisant le nom du
fichier ou du répertoire cible comme
argument, surveille le message
CPFA0A9, que DSPLNK envoie si la
cible n’est pas trouvée. DSPLNK ne
peut fonctionner qu’en mode interactif
ou batch, et en mode batch (OUTPUT
(*PRINT)), il génère toujours une
impression. Par conséquent, DSPLNK a
un effet secondaire : un fichier d’impression
redondant que CHKIFSOBJ
met en attente et supprime automatiquement.
Si vous devez vérifier l’existence
d’un grand nombre d’objets IFS, vous
devez écrire un HLL invoquant opendir()
et openfile(). Mais, si vous ne devez
vérifier qu’une poignée d’objets,
cet utilitaire y suffira bien !