Discussion :

[twisty]

Bonjour,

Dans un jcl, je souhaite utiliser plusieurs fois le même step. En fait, j'ai la même procédure à lancer, pour trois fichiers différents. Je voudrais éviter de lancer la procédure, trois fois de suite, en changeant à chaque fois, de fichier. Existe t-il une instruction comme "when" ou d'autres itérations, pour le jcl ?

Aider-moi svp.

Twisty.

[Peut-êtreUneRéponse]

Y a t'il des conditions d’exécution entre ces steps, ou sont-ils enchainés. Dans ce dernier cas tu fais 3 steps identiques avec les DSN qui change à chaque step.

.

[twisty]

Merci d'avoir répondu. Mais, en fait, ce step est volumineux. Donc, pour un confort visuel, soit une meilleur maintenance, es-t-il possible de boucler sur ce step (avec condition RC=00 biensur), en changeant à chaque fois de fichier ?

Twisty

[bernard59139]

Bonjour

Il n'y a aucune itération possible dans un jcl.

Bonne journée

[Luc Orient]

Et la solution d'une procédure dite 'INSTREAM PROCEDURE' ?

[Peut-êtreUneRéponse]

Un JCL appel une procédure 3 fois en lui passant en paramètre le DSN à utiliser, exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
//MONJOB   JOB ...
//*                                                                             
//   JCLLIB ORDER=pds.où.trouver.la.proc
//*
//* Step 1 sur 3 - Appel procédure PROCEDUR avec param DSNAME
//STPFIC01  EXEC PROCEDUR,DSNAME=mon.fichier.n01
//*
//* Step 2 sur 3 - Appel procédure PROCEDUR avec param DSNAME
//STPFIC02  EXEC PROCEDUR,DSNAME=mon.fichier.n02
//*
//* Step 3 sur 3 - Appel procédure PROCEDUR avec param DSNAME
//STPFIC03  EXEC PROCEDUR,DSNAME=mon.fichier.n03
//*

La procédure disponible dans pds.où.trouver.la.proc(PROCEDUR) :

Code :

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

1
2
3
4
5
//STEPTRT1  EXEC PGM=monpgm
//DD0000IN  DD DISP=SHR,DSN=&DSNAME,
//             SPACE=(TRK,5)
//             DCB=(REFM=FB,LRECL=120,BLKSIZE=800)
//...

.

[twisty]

Malheureusement, j'ai le message suivant :

UNIDENTIFIED KEYWORD DSNAME

Donc, après exec pgm=procedure , on devrait avoir une autre instruction que " DSNAME" .

Pouvez-vous m'aider ?

Merci d'avance.

Twisty

[Peut-êtreUneRéponse]

Peux-tu coller ton JCL, la proc, et le compte rendu en erreur ?

[guesswho]

bonjour,
DSNAME est surement un mot-clés réservé, utilise plutot DSN ou FILE....

Pour plus de souplesse tu peux aussi utiliser une proc "instream" pour les tests c'est plus facile.....

bon courage

[twisty]

Le INSTREAM PROCEDURE, avec l'instruction PEND, fonctionne bien. Mais, j'aurais voulu utiliser deux fichiers, du genre :

STEP1 EXEC PROC=PROCEDUR,FICH1='nomfichier1',FICH2='nomfichier2'

Mais, FICH2 est rejeté par le système par le message suivant :

UNIDENTIFIED OPERATION FIELD

Existe-t-il une autre instruction ?

Merci d'avance.

Twisty

[bernard59139]

Bonjour

Actuellement, il n'y a aucun moyen de faire du jcl "dynamique".
Un JCL est statique, point barre. Il n'y a aucune boucle possible.

La seule facilité qui existe est de "sauter" des steps par les tests sur RETURN-CODE ou ABEND.

bonne journée

[Luc Orient]

Le INSTREAM PROCEDURE, avec l'instruction PEND, fonctionne bien. Mais, j'aurais voulu utiliser deux fichiers, du genre :

STEP1 EXEC PROC=PROCEDUR,FICH1='nomfichier1',FICH2='nomfichier2'

Mais, FICH2 est rejeté par le système par le message suivant :

UNIDENTIFIED OPERATION FIELD

Existe-t-il une autre instruction ?

Merci d'avance.

Twisty

Si ta procédure n'a prévu qu'un paramètre (est-ce le cas ?) tu ne peux pas l'utiliser avec deux paramètres, ça me semble assez normal ... mais est-ce bien ça ton problème ?

[guesswho]

Bonjour,
en fait il est tout de même possible de faire du JCL "dynamique" via un générateur de JCL....

le plus simple est de le faire avec un REXX, qui soumettra le JCL (ou la procédure "in steream" ou "cataloguée" au reader interne.
les variables peuvent se passer soit directement, (en batch ou via saisie) soit par la lecture d'un fichier contenant les "variables".

[twisty]

L'instream procedure fonctionne bien maintenant, et le cas, vu par "Peut-êtreUneRéponse" (passage du fichier en paramètre avec un nom différent de dsname (ex: fichier)) est résolu. Toutefois, dans tous ces cas, il faut mettre les cartes sysin dans un membre de pds (déclaré en JCLLIB).

Merci à tous.

[Peut-êtreUneRéponse]

[...]dans tous ces cas, il faut mettre les cartes sysin dans un membre de pds

Oui pas de sysin "inline" dans une procédure.

.

[jjack76]

Bonjour,

Pour gérer le problème de la sysin dans une proc j'utilise un petit programme (assembleur) qui copie les données passées en paramètre à l'appel du programme dans un fichier. Ce fichier est ensuite réutilisé dans la sysin.
EX :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//SENDAOP    PROC                         
//*                                       
....../........
//STEP00  EXEC PGM=CGSGEN,PARM='PUT ''WSYS.EXPORT.AOP'' &NETNAME..TXT'   
//SYSOUT   DD DISP=(,CATLG,DELETE),DSN=WSYS.CGSGEN.FTP,                  
//            SPACE=(TRK,(1,1),RLSE)                                     
//*       
..../.....                                                               
//SFTP     EXEC PGM=FTP,PARM='139.160.120.22(EXIT TIMEOUT 180)'  
//NETRC     DD SYSOUT=*    
..../.......
//SYSIN     DD DSN=WSYS.CGSGEN.FTP,DISP=SHR     
//*                                                  
//    PEND         
//*
//STEP00 EXEC SENDAOP,NETNAME=WSFR02401

Je peux envoyer le load du programme si besoin.

Bonne journée

Jean-Jacques

[minosubb]

Une solution possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
//MONJOB JOB .......
//*
//*
//JCLLIB JCLLIB ORDER=(PDS.OU.SE.TROUVE.MON.INCLUDE)
//*
//         INCLUDE MEMBER=MONSTEP
//            DSN=MON.FICHIER.N1
//*
//         INCLUDE MEMBER=MONSTEP
//            DSN=MON.FICHIER.N2
//*
//         INCLUDE MEMBER=MONSTEP
//            DSN=MON.FICHIER.N3

Et dans la bibliotheque PDS.OU.SE.TROUVE.MON.INCLUDE tu mets le membre MONSTEP

Code :

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

1
2
3
4
//STEP     EXEC PGM=MONPROG
//SYSOUT   DD SYSOUT=*
...
//FICHIER DD DISP=SHR,

En faisant bien attention que tu puisses mettre le DSN de ton fichier à la suite de MONSTEP. Raison de la virgule à la fin.

Lors du SUB, le contenu de MONSTEP sera mis à la place de // INCLUDE MEMBER=MONSTEP