Aller au contenu

CPF7030

Objet de type *&3 déjà journalisé.

Gravité 40 · Fin anormale du programme ou de la fonction

Cause

Vous avez tenté de lancer la journalisation d'un objet qui est déjà en cours de journalisation dans le journal &6 de la bibliothèque &7. Si l'objet est de type objet du système de fichiers intégré, vous avez tenté de démarrer la journalisation de l'objet &5 possédant l'ID fichier &4. Si l'objet appartient à un autre type, vous avez tenté de démarrer la journalisation de l'objet &1 de la bibliothèque &2. Si *N ou un zéro hexadécimal s'affiche pour ces zones, ces informations ne sont pas applicables.

Que faire

Si l'objet est journalisé dans le même journal avec les mêmes attributs de journalisation, aucun rétablissement n'est nécessaire. Si l'objet est journalisé dans un journal différent, arrêtez la journalisation, puis relancez-la. Si l'objet est journalisé dans le journal spécifié, mais que ses attributs de journalisation sont différents, utilisez la commande CHGJRNOBJ pour modifier les attributs de journalisation dudit objet.

Description technique

Utilisez la commande Afficher la description d'un objet (DSPOBJD), la commande Afficher la description d'une bibliothèque (DSPLIBD) ou la commande Gérer les liens d'objet (WRKLNK) pour déterminer dans quel journal l'objet est journalisé et quels sont ses attributs de journalisation.

Use the Display Object Description (DSPOBJD) command, Display Library Description (DSPLIBD) command, or the Work with Object Links (WRKLNK) command to see what journal the object is journaled to and what its journaling attributes are.

Variables du message

Quand le système envoie le message, chaque variable est remplacée par une valeur réelle : un nom d'objet, de bibliothèque, un code...

VariableTypeLongueur
&1 *CHAR 10
&2 *CHAR 10
&3 *CHAR 7
&4 *HEX 16
&5 *CCHAR variable
&6 *CHAR 10
&7 *CHAR 10

Sur votre IBM i

Afficher la description complète du message :

DSPMSGD RANGE(CPF7030) MSGF(QSYS/QCPFMSG)

L'intercepter dans un programme CL, quand il est envoyé comme message d'échappement :

MONMSG MSGID(CPF7030) EXEC(DO)
  /* traitement de l'erreur */
ENDDO