user error handling routine sur Z/OS

Version imprimable

17/02/2020, 10h00
bastienR

user error handling routine sur Z/OS

Bonjour,

J'ai trouvé dans exemples d'utilisation de l'API CEEHDLR sur AS/400 pour gérer des abend.

J'ai tenté de les reproduire sur Z/OS MVS (cobol V4.2) pour éviter un ABEND sur un CALL DYNAMIQUE à un programme non trouvé (S806).
On passe bien dans la routine (positionnement d'un DISPLAY qui s'affiche), deux fois de suite, mais le CALL se termine tout de même en ABEND.

J'ai donc tenté avec un autre exemple (division par 0) et dans ce cas on ne passe même pas par la routine (S0C9 immédiat).

Mes questions :
-> Peut-on utiliser ces API sur Z/OS ?

-> Quelqu'un aurait-il un exemple à me proposer ?

-> Dans la documentation on parle des commande CRTCBLMOD/CRTBNDCBL avec le positionnement d'une option *NOMONOPRC.
Quelles sont ces commandes? Comment les utilise-t-on ? (Sachant que jusqu'à maintenant on utilise le programme IGYCRCTL via JCL pour compiler).

Merci d'avance pour vos réponses, même incomplètes. Tout information est bonne à prendre.
18/02/2020, 21h54
Luc Orient

Citation:

Envoyé par bastienR

...
J'ai tenté de les reproduire sur Z/OS MVS (cobol V4.2) pour éviter un ABEND sur un CALL DYNAMIQUE à un programme non trouvé (S806).
On passe bien dans la routine (positionnement d'un DISPLAY qui s'affiche), deux fois de suite, mais le CALL se termine tout de même en ABEND.

Je ne connais pas ces routines du LE, mais sur l'instruction CALL du COBOL, il existe, selon la documentation, une clause ON EXCEPTION qui devrait répondre à ton besoin. A vérifier quand même ...

Citation:

Envoyé par bastienR

Bonjour,
-> Dans la documentation on parle des commande CRTCBLMOD/CRTBNDCBL avec le positionnement d'une option *NOMONOPRC.
Quelles sont ces commandes? Comment les utilise-t-on ? (Sachant que jusqu'à maintenant on utilise le programme IGYCRCTL via JCL pour compiler).

Je pense que ce sont des commandes liées au COBOL de l'IBM i ( AS/400 ), je ne pense pas qu'elles aient un sens pour le COBOL du z/OS.
19/02/2020, 08h22
bastienR

Merci pour ces réponses.
Effectivement ces commandes ne sont pas utilisables sur Z/Os. J'ai trouvé la bonne documentation à ce sujet.

En ce qui concerne le CALL, j'ai mentionné cet exemple pour simplifier les choses. En réalité l'ABEND S806 est provoqué par un SET function-pointer TO ENTRY 'module'.
La clause EXCEPTION n'est pas utilisable dans ce cas.

Je viens de réussir à gérer l'exception mais en utilisant deux autres programmes du LE en plus. Le premier à utiliser dans le programme avant le SET pour obtenir une adresse de reprise. Et l'autre dans le HANDLER pour positionner la reprise à cette adresse.
Je pensais qu'en codant un RESUME (code retour 10 dans le HANDLER) le CEEHDLR positionnait un point de reprise automatique à l'instruction suivant celle causant l'exception. C'est comme cela que j'avais compris la doc.
19/02/2020, 09h27
Darkzinus

Citation:

Envoyé par Luc Orient

Je ne connais pas ces routines du LE, mais sur l'instruction CALL du COBOL, il existe, selon la documentation, une clause ON EXCEPTION qui devrait répondre à ton besoin. A vérifier quand même ...

Je pense que ce sont des commandes liées au COBOL de l'IBM i ( AS/400 ), je ne pense pas qu'elles aient un sens pour le COBOL du z/OS.

Bonjour, pour avoir travaillé sur Mainframe et maintenant sur AS400 je confirme que ces commandes sont spécifiques à l'AS400. CRTCBLMOD/CRTBNDCBL sont les commandes de compilation et qui permettent de binder un programme avec un module (spécifique au COBOL ILE).