Utilisation de OUTDISP

Bonjour,

Je cherche a utiliser le paramètre OUTDISP, afin de supprimer la SYSOUT d'un job dont le RC=0 et garder cette SYSOUT si RC != 0
Mais cela ne fonctionne pas ....
La suppression est faite même si RC != 0
:(

...
000012 //PROGRM EXEC PGM=MYPROG
000013 //OUTDS OUTPUT OUTDISP=(PURGE,HOLD)
000014 //STDOUT DD SYSOUT=*,OUTPUT=*.OUTDS
....

Quelqu'un aurait-il une idée ?

D'avance merci

attention, le 2ème paramètre s'applique en cas de fin anormale (ABEND).
un rc /=0 (12, 99, ...)est une fin normale.

es-tu sur d'avoir tester une fin "normale"?

Une suggestion :

Allouer le fichier contenant le SYSOUT en :

Code:

---

DISP=(NEW,PASS,DELETE)

---

Ensuite coder un step avec IEFBR14 et le conditionner sur le RETURN CODE pour faire l'inscription du fichier au catalogue.

Code:

---

1 2 3 4 5

// IF RC=0 THEN // EXEC PGM=IEFBR14 //OUT DD DSN=..., // DISP=(OLD,CATLG,DELETE) // ENDIF

---

Merci de vos réponses !

Toutefois, si je comprends bien mon paramètre HOLD ne sera pris en compte que si j'ai un ABEND !! C'est bien çà ?


Pour ce qui est de cataloguer la SYSOUT,c'était ma solution de repli !!

Citation:

---

Toutefois, si je comprends bien mon paramètre HOLD ne sera pris en compte que si j'ai un ABEND !! C'est bien çà ?

---

OUI

pour rappel, ABEND = ABnormal END

Bon week end

Citation:

---

Envoyé par bernard59139

OUI

pour rappel, ABEND = ABnormal END

Bon week end

---

Merci bernard59,

J'en conclu donc qu'il ne me reste plus qu'a utiliser un fichier temporaire pour stocker ma SYSOUT et éventuellement cataloguer ce fichier en cas de RC!= 0 ...

Bon week end

Juste pour info, les codes retours des steps précédants se retrouvent dans les chaînages des blocs de contrôle de MVS, Je n'ai pas ca en mémoire mais je peux au besoin retrouver ça en REXX. J'ai également testé ça il y a un temps dans un COBOL. Sans aller jusque là, on peut imaginer un programme conditionné par un RC à 0 qui génère un SYSIN de delete de la SYSOUT JES2 repris par un INTRDR. Ce programme n'aurait qu'à relever le nom et le numéro du JOB en cours sous JES2 pour passer la commande $VS '$PO Jnnnn JM=NOMJOB' qui va bien. Avec un ordonnanceur comme OPC c'est encore plus facile. On ajoute simplement un JOB qui exécute le JCL de purge généré en amont uniquement si le JOB qui précède est en RC 0. Ainsi on est certain que le job est terminé avant de purger la SYSOUT.
Celà étant, on est d'accord, ça fait quand même un peu usine à gaz, mais c'est dans le possible.

Citation:

---

Envoyé par Homer-ac

Juste pour info, les codes retours des steps précédants se retrouvent dans les chaînages des blocs de contrôle de MVS, Je n'ai pas ca en mémoire mais je peux au besoin retrouver ça en REXX. J'ai également testé ça il y a un temps dans un COBOL. Sans aller jusque là, on peut imaginer un programme conditionné par un RC à 0 qui génère un SYSIN de delete de la SYSOUT JES2 repris par un INTRDR. Ce programme n'aurait qu'à relever le nom et le numéro du JOB en cours sous JES2 pour passer la commande $VS '$PO Jnnnn JM=NOMJOB' qui va bien. Avec un ordonnanceur comme OPC c'est encore plus facile. On ajoute simplement un JOB qui exécute le JCL de purge généré en amont uniquement si le JOB qui précède est en RC 0. Ainsi on est certain que le job est terminé avant de purger la SYSOUT.
Celà étant, on est d'accord, ça fait quand même un peu usine à gaz, mais c'est dans le possible.

---

Merci pour l'info Homer-ac, mais comme tu peux t'en douter je recherche la simplicité avant tout !