CPFAFA4

Retrieve exit information API error occurred.

Gravité 20 · Erreur

Cause

Les données extraites de l'API Extraire les informations d'exit (QusRetrieveExitInformation) pour le point d'exit &2 ne sont pas valides. Le code cause est &1. Les codes cause et leur signification sont les suivants : 01

Le point d'exit a trop de programmes associés. Le point d'exit a actuellement &3 programmes associés. 02
Le programme d'exit &4 de la bibliothèque &5 a une longueur de données de programme d'exit incorrecte. 03
Le point d'exit comporte des programmes de point d'exit utilisateur de type validation en double enregistrés pour la valeur de type &6. 04
Point d'exit non enregistré. 05
Informations du point d'exit incomplètes ou aucun programme d'exit n'est enregistré pour aucun point d'exit.

Data retrieved from Retrieve Exit Information (QusRetrieveExitInformation) API for exit point &2 is not valid. Reason code is &1. Reason codes and their meanings follow: 01 -- Exit point has too many associated programs. The exit point currently has &3 associated programs. 02 -- Exit program &4 in library &5 has an exit program data length that is not correct. 03 -- Exit point has duplicate validate type user exit point programs registered for type value &6. 04 -- Exit point not registered. 05 -- Exit point information not complete or no exit programs are registered for any exit point.

Que faire

Selon le code cause, effectuez l'une des opérations suivantes : 01

Utilisez l'API Supprimer un programme d'exit (QusRemoveExitProgram) pour supprimer les programmes excédentaires non nécessaires. 02
Supprimez le programme d'exit indiqué à l'aide de l'API Supprimer un programme d'exit (QusRemoveExitProgram). Ajoutez de nouveau le programme d'exit à l'aide de l'API Ajouter un programme d'exit (QusAddExitProgram) avec les données de programme d'exit correctes. 03
Supprimez l'un des programmes de point d'exit utilisateur de type validation en double à l'aide de l'API Supprimer un programme d'exit (QusRemoveExitProgram). 04
Signalez le problème à l'aide de la commande Analyser un problème (ANZPRB). 05
Si le nom du point d'exit est *N, aucun programme d'exit n'est enregistré pour aucun des points d'exit QZMF. Le système d'exploitation a peut-être été installé ou mis à niveau de façon incorrecte. Vous pouvez enregistrer les programmes d'exit manuellement en vous référant à un System i qui fonctionne et en entrant WRKREGINF QIBM_QZMF* pour afficher les points d'exit. Mais vous devrez peut-être réinstaller le système d'exploitation et les produits de courrier, car il peut y avoir plus d'éléments incorrects que les seuls points d'exit. Si un point d'exit est nommé, signalez le problème à l'aide de la commande Analyser un problème (ANZPRB).

Based on the reason code, do one of the following: 01 -- Use the Remove Exit Program (QusRemoveExitProgram) API to remove the excess programs not required. 02 -- Remove the specified exit program using the Remove Exit Program (QusRemoveExitProgram) API. Add the exit program again using the Add Exit Program (QusAddExitProgram) API with the correct exit program data. 03 -- Remove one of the duplicate validate type user exit point programs using the Remove Exit Program (QusRemoveExitProgram) API. 04 -- Report the problem using the Analyze Problem (ANZPRB) command. 05 -- If the Exit point name is *N, there are no exit programs registered for any of the QZMF exit points. The operating system may have been incorrectly installed or upgraded. You can register the exit programs manually by referring to a working System i and entering WRKREGINF QIBM_QZMF* to display the exit points. But you may have to re-install the operating system and mail products, as more may be incorrect than just the exit points. If there is an Exit point named, report the problem using the Analyze Problem (ANZPRB) command.

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...

Variable	Type	Longueur
`&1`	`*CHAR`	2
`&2`	`*CHAR`	20
`&3`	`*CHAR`	4
`&4`	`*CHAR`	10
`&5`	`*CHAR`	10
`&6`	`*CHAR`	4

Sur votre IBM i

Afficher la description complète du message :

DSPMSGD RANGE(CPFAFA4) MSGF(QSYS/QCPFMSG)

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

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