CPF9801

Comment s'en sortir

Le système a cherché un objet et ne l'a pas trouvé là où on lui a dit de chercher. Neuf fois sur dix, l'objet existe bien, mais pas dans la liste de bibliothèques du travail qui s'exécute.

Les causes les plus fréquentes

• La liste de bibliothèques n'est pas la bonne. Le programme marche en interactif mais plante en batch : le travail soumis reçoit la liste de sa description de travail (INLLIBL de la JOBD), pas la vôtre.
• L'objet était dans QTEMP. QTEMP est propre à chaque travail. Un fichier créé dans QTEMP par votre session n'existe pas dans le travail que vous avez soumis avec SBMJOB.
• Mauvais nom ou mauvais type. Un fichier cherché comme programme, une faute de frappe, un nom de plus de 10 caractères tronqué.
• L'objet est dans un ASP indépendant (IASP) que le travail n'a pas rattaché.

Diagnostiquer

/* Où est l'objet, s'il existe quelque part ? */
WRKOBJ     OBJ(*ALL/MONOBJ)

/* Quelle liste de bibliothèques voit le travail ? */
DSPLIBL

/* Et celle d'un travail batch : sa description de travail */
DSPJOBD    JOBD(MALIB/MAJOBD)

En SQL, la liste de bibliothèques du travail en cours : SELECT * FROM QSYS2.LIBRARY_LIST_INFO.

Corriger

/* Ajouter la bibliothèque qui manque */
ADDLIBLE   LIB(MALIB)

/* Ou qualifier l'objet : plus de dépendance à la liste */
CALL       PGM(MALIB/MONPGM)

/* Pour un batch : soumettre avec la bonne liste */
SBMJOB     CMD(CALL PGM(MONPGM)) JOB(TRAITEMENT) INLLIBL(MALIB QGPL QTEMP)

Pour tester l'existence d'un objet dans un programme CL avant de s'en servir :

CHKOBJ     OBJ(MALIB/MONFIC) OBJTYPE(*FILE)
MONMSG     MSGID(CPF9801) EXEC(DO)
  /* le fichier n'existe pas : le créer, ou prévenir */
ENDDO

Ne corrigez pas en ajoutant la bibliothèque à la liste système (QSYSLIBL) ou à celle de tous les utilisateurs : vous masquez le problème et vous risquez d'ouvrir le mauvais fichier ailleurs. Corrigez la liste du travail concerné (sa JOBD) ou qualifiez l'objet.