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.
Partager