Discussion :

[offrerem]

bonjour

les code abend sont renvoyés (par le systeme ou programme) merci pour les precisions sur 1 poste précedent

mais les codes retour (4 ,8 ) "simple" sont renvoyé par quoi
par exemple : Sort Capacity Exceeded => code 16

merci

[Luc Orient]

... mais les codes retour (4 ,8 ) "simple" sont renvoyé par quoi
par exemple : Sort Capacity Exceeded => code 16 ...

C'est le programme lui-même qui décide de renvoyer un RETURN CODE.
Chaque cas est donc particulier.

Par exemple pour le SORT on a :
DFSORT Return Codes

L'usage est souvent le suivant :
0 = >> traitement OK
4 = >> traitement OK mais warning
8 ou 16 = >> traitement KO
mais ce n'est qu'un usage ...

En COBOL par exemple, on dispose d'un registre spécial RETURN-CODE qu'il suffit d'alimenter juste avant l'arrêt du programme :
RETURN-CODE

[offrerem]

ok mais le programme peut aussi renvoyer un Uxxxx
En fait c'est variable !

[Kyle Katarn]

ok mais le programme peut aussi renvoyer un Uxxxx
En fait c'est variable !

je crois pas que ce soit le programme qui renvoit un code abend Uxxxx.
C'est une sortie anormale d'un programme.

Alors qu'un return code est une fin de programme normale et prévu.
Même un code >=8 qui normalement indique une fin en erreur mais une erreur prévu.

[Homer-ac]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
je crois pas que ce soit le programme qui renvoit un code abend Uxxxx

Si. Un Abend Sxxx est un Abend provoqué par le système sur detection d'une erreur grave (ex. S0C7 : Décimal exception par exemple)
Un Abend Uxxxx est un Abend provoqué par un programme. Il s'agit soit du programme utilisateur qui veut par ce biais provoquer un Dump mémoire
(il fait en général un CALL à un module Assembleur 'maison' pour qui va passer un ordre ABEND (macro instruction ABEND,n°,DUMP) ), ou un module standard (CEE3DMP de Language Environment ou tout autre)
,soit d'un module de service parce qu'il a lui même détecté une erreur bloquante ou a intercepté un ABEND système.
Par exemple, Language Environment émet un Abend U409x quand il détecte un ABEND système pour fournir un Dump formaté qui lui est propre et plus facile à interpréter qu'un DUMP SYSUDUMP.

[offrerem]

et donc le return code (4, 8 etc)
ainsi que le User abend sont retourne par le programme

alors quelle difference ?

ps : pour le user abend , www.os39mvs.freesurf.fr/download/mvssyst.pdf dans ce document (sa valeur ?!) il y est dit autre chose .

[Homer-ac]

L'abend USER peut simplement être choisi par un programme pour provoquer un abandon du JOB et un Dump mémoire. Le plus souvent, un Return Code > 0 permet simplement de sortir en fin anormale, ce qui sera intercepté par le JCL ou l'ordonnanceur comme TWS.
Sinon le lien fourni n'est pas bon je pense, mais je connais ce document, au demeurant très bien, même s'il se réfère à des architectures MVS assez anciennes, 'MVSSYST de Thierry Falissard. Voir explications page 82, sachant qu'il y a des références 'systeme Assembleur' pas nécessairement évidentes si on ne connait pas l'assembleur MVS.

[offrerem]

ok vu mon post sur le (new , catlg ,delete)
ou
Un abend => fichier deleter
Un code retour simple (8 , 16 etc) => pas de delete de fichier

cela aurait été bien que le fichier soit deleter directement aussi.

[Homer-ac]

cela aurait été bien que le fichier soit deleter directement aussi

Pas nécessairement, l'idée générale est que l'on décide d'une fin immédiate d'un JOB en erreur par un ABEND, quelque soit ce qui suit le step en erreur.
Par un RETURN CODE, on va au contraire gérer l'enchainement des Steps suivants du JOB (COND=(4,LT) par ex.)
Rien n'empêche d'ajouter des steps de delete de fichiers spécifiquement en cas de code retour imprévu dans le JCL. C'est l'affaire des normes et coutumes de gestion de production du site.