Gestion affichage display dans un JCL

bonjour,

suite à un test contrôlant la présence d'un membre dans un PDS, j'affiche une erreur à l'écran, par contre j'aurai voulu variabiliser le nom du fichier sur la ligne SE, mais malgré plusieurs tests, cela ne marche pas

Code:

---

1 2 3 4 5 6 7 8 9 10

//DISPLAY EXEC PGM=IKJEFT01,DYNAMNBR=35, // COND=((1111,EQ,CTRLXREF),(0,EQ,CTRLXREF)) //SYSOUT DD SYSOUT=R //SYSPRINT DD SYSOUT=R //SYSUDUMP DD SYSOUT=R //SYSTSPRT DD SYSOUT=Z //SYSTSIN DD * PROFILE NOPREFIX INTERCOM SE 'LE FICHIER XREF &fichier EST ABSENT',USER(*) //*

---

Cette question des variables dans un SYSIN est assez récurrente
En JCL natif : C'est INTERDIT
via une soumission par un ordonnanceur comme OPC : OUI, ils savent gérer.
Solution souvent proposée, passer par un programme REXX ou autre qui recopie dans un fichier FB 80 ce qu'il a reçu en PARM, où là on peut poster des variables. Pour le cas évoqué puisque l'on fait de toute façon un EXEC PGM = IKJEFT01, autant appeler directement un REXX qui fait le SEND TSO.
Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

//V1 SET V1='MON.FICHIER.A.TESTER' //*------- COPY DU REXX SUR PDS DE TRAVAIL ----------* //STEP01 EXEC PGM=IEBGENER //SYSUT1 DD *,DLM=$$ /* REXX */ ARG PARM ADDRESS TSO STRIP(PARM) EXIT 0 $$ //SYSPRINT DD SYSOUT=* //SYSUT2 DD DISP=(,PASS,DELETE),DSN=&&REXX(TMPREXX), // SPACE=(TRK,(15,15,5),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PO) //SYSIN DD * GENERATE MAXFLDS=9 RECORD FIELD=(80,1,,1) //* //*--------------------------------------------------* //*------- EXECUTION DU REXX ------------------------* //REXX02 EXEC PGM=IKJEFT01, // PARM=('TMPREXX SE ''! FICHIER &V1 ABSENT !'',U(&SYSUID)') //SYSPROC DD DISP=(OLD,DELETE),DSN=&&REXX //* SYSPROC DD DISP=SHR,DSN=MON.PDS.DE.REXX //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY //

---

Ici on passe directement à TSO la commande passée en PARM, mais il y a deux steps parce que le REXX est en SYSIN généré. Pour le cas posté, on a un STEP qui s'exécute via un COND=. Il suffit de recopier les 3 lignes du REXX at minima de l'exemple dans un membre PDS qui sera spécifié dans la DD SYSPROC du step IKJEFT01.

NB. User(*) dans le SEND TSO ? Ca risque de faire pas mal de monde !