Monitorer le message CPA32B2

Quand on exécute l’ordre SQL « ALTER TABLE » on obtient le message CPA32B2 et le programme est interrompu pour laisser l’utilisateur saisir « C » cancel ou « I » ignore.

Voici une astuce permettant d’éviter cette interruption :

 ADDRPYLE SEQNBR(3000) MSGID(CPA32B2) RPY(‘I’)

 CHGJOB INQMSGRPY(*SYSRPYL)

Vous devez donc créer un poste de liste de réponse (ADDRPYLE) en spécifiant la réponse voulue (dans notre exemple « I »). Le paramètre SEQNBR correspond à  un ordre de recherche dans la liste. Si vous tenter de créer un poste sur un N° de séquence déjà  existant, vous recevrez le message CPF2555. Il faut donc s’assurer que le N° de séquence n’est pas déjà  utiliser (pour cela on peut utiliser la commande WRKRPYLE).

Ensuite vous devez régler la valeur INQMSGRPY du job à  SYSRPYL.

Pour supprimer cette entrée vous utiliserez la commande =>

 RMVRPYLE SEQNBR(3000)

Print Friendly, PDF & Email