Discussion :

[mutsum1]

Bonjour,

Au même titre que la procédure *PSSR, y'a-t-il moyen d'intercepter dans un programme RPGLE le *SYSTEM/ENDRQS, pour pouvoir lancer des commandes spécifiques avant l'arrêt ?

Je précise que mon RPGLE est lancé directement, sans passer par un CL, et que j'aimerais garder cela.

Merci

[K2R400]

Avec l'API CEERTX. Lis ceci :
http://www.mcpressonline.com/rpg/pra...n-servers.html
http://search400.techtarget.com/tip/...tegrity-part-2
http://groups.google.com/group/comp....65d6b7cdf702d9
http://publib.boulder.ibm.com/infoce...pis/CEERTX.htm

[mutsum1]

Merci. C'est bien ça.

Il reste néanmoins un point de détail.
Je lance dans mon programme un CHGJOB LOG(3 00 *NOLIST) pour éviter l'apparition en log des résultats des commandes systèmes.
J'avais déjà constaté que le moment du lancement de cette commande importe peu, c'est uniquement en fin de programme qu'elle est appliquée.
Dans le cas d'un ENDRQS, elle n'est plus executée, même en l'insérant dans la procédure CEERTX.

Ce n'est pas grand chose, mais c'est dommage.