Remonter RC d'un REXX par ISPSTART (IKJEFT01) en JCL [Résolu]

[Pico-----]

Bonjour,

J'avais un REXX "simple" (lancé par JCL) qui marchait tranquillement.
Mais j'ai dû y rajouter des services ISPF. J'ai donc rajouté les PDS ISPF nécessaire et j'ai fait une petit ISPSTART.

Dans le fond, cela fonctionne. Cependant en cas d'erreur, le REXX renvoie différent codes retour (en général un petit 12 des familles), or sans ISPF, ces codes retour remontaient jusqu'au JCL mais maintenant ISPF les "catch" et me sort le message "The initially invoked CLIST ended with a return code = 12" dans la SYSTSPRT et l'étape se termine avec un RC 0...

Existe-t-il un moyen pour que ISPF "laisse passer" le code retour et le remonte ?

Merci.

[bernard59139]

bonjour

il faut utiliser la variable ZISPFRC et la faire connaitre de ispf par VPUT.

Code :

1
2
ZISPFRC = 12
ADDRESS ISPEXEC "VPUT (ZISPFRC)"

en cas d'arrêt brutal du rexx (syntax error), je positionne ZISPFRC à 12 dès le début du rexx et, si fin normale, je la valorise à 00.

bonne journée

[Pico-----]

Ca marche du tonnerre !

Merci.

[bakounine]

Bonjour ,

Au cas où tu n'aurais pas la main sur le Rexx (On ne te livre qu'un Rexx compilé) , il te suffit de soumettre ce Rexx via IKJEFT01 mais avec le paramètre PARM= et non pas la SYSTSIN , ainsi :

//CLIST EXEC PGM=IKJEFT01,PARM=(Clist_Name)
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPROC DD DISP=SHR,DSN=PDS_Contenant_Le_Load
//SYSTSIN DD *
**************** Bottom of Data ****************************

Bakounine