Aller au contenu

CPF7021

Impossible de supprimer le journal &1 de &2.

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

Cause

Le journal &1 de la bibliothèque &2 ne peut pas être supprimé : soit les objets sont en cours de journalisation dans &1, soit le contrôle de validation est actif pour un travail présent sur le système et le journal &1 contrôle l'environnement de contrôle de validation.

Que faire

Utilisez les commandes suivantes pour arrêter la journalisation en cours des objets dans le journal &1 de la bibliothèque &2 :

  • ENDJRNPA (Arrêter la journalisation de chemin)
  • ENDJRNPF (Arrêter la journalisation des modifications de fichier physique)
  • ENDJRN (Arrêter la journalisation)
  • ENDJRNOBJ (Arrêter la journalisation d'objet)
  • ENDJRNLIB (Arrêter la journalisation de bibliothèque) La commande WRKJRNA (Gérer les attributs d'un journal) permet d'identifier tous les objets journalisés dans le journal. Si le contrôle de validation est actif pour un travail présent sur le système et que le journal &1 est associé à l'environnement de contrôle de validation (commande DSPJOB), mettez fin au contrôle de validation (commande ENDCMTCTL) de ces travaux. Renouvelez ensuite votre demande. Si le contrôle de validation a été lancé sur certaines transactions pendant le traitement de contraintes référentielles, mettez fin au travail sous contrôle de validation. Le journal pourra ainsi être supprimé. Si la commande WRKJRNA (Gérer les attributs d'un journal) indique qu'aucun objet n'est journalisé, que le contrôle de validation n'est pas associé à ce journal, et que le journal ne peut toujours pas être supprimé, lancez la commande ENDJRNPF FILE(*ALL) pour que le journal demande au système d'arrêter la journalisation des sections de fichier endommagées précédemment journalisées. Renouvelez ensuite la demande.

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

Sur votre IBM i

Afficher la description complète du message :

DSPMSGD RANGE(CPF7021) MSGF(QSYS/QCPFMSG)

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

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