Paramètrage dans un JCL

[MaxXximus62]

Bonjour,
Je me permet de poser la question, car je n'ai pas réussi à trouver une réponse dans mes recherches qui me convient

Actuellement dans un JCL, j'ai une sysin qui contient plusieurs le même nom de fichier,
je voudrais savoir s'il est possible de mettre ce nom de fichier en variable. ainsi, quand
je voudrais utiliser le jcl avec un autre nom de fichier, je n'aurais qu'a faire un replace
sur ce nom de fichier.

cordialement,

PS: dsl si il existe un post sur ce sujet, mais je ne l'ai pas trouvé, ou alors des débuts de réponse qui me semblent bien compliqué.

[M.Dlb]

Bonjour,

C'est dans la SYSIN ou ce sont d'autres cartes DD ? Il est possible d'utiliser des variables de substituion pour les cartes DD, mais pour l'intérieur d'une SYSIN, il me semble également que ca ne fonctionne pas de façon simple.

[MaxXximus62]

Envoyé par wormful_sickfoot

Bonjour,

C'est dans la SYSIN ou ce sont d'autres cartes DD ? Il est possible d'utiliser des variables de substituion pour les cartes DD, mais pour l'intérieur d'une SYSIN, il me semble également que ca ne fonctionne pas de façon simple.

C'est dans la sysin même

en gros j'ai (je ne rentre pas dans le détail volontairement):
exec PGM=IDCAMS
sysin DD *
delete fichier1
define cluster fichier1
repro fichier1

[Pico-----]

Bonjour,

Les variables JCL ne sont pas interprétées dans les SYSINs, donc tu ne pourras pas directement faire ce que tu veux.

En général quand j'ai une problématique de ce genre, j'ajoute un step avant dans lequel je génère la SYSIN avec un REXX en fonction de paramètres.

Par contre dans ton cas, tu utilises IDCAMS et dans la sysin tu mets directement les DSNAME. Or avec IDCAMS tu peux utiliser des DDNAME dans la SYSIN, et donc mettre des variables dans les DSNAME qui se retrouvent alors dans la carte DD.

[Darkzinus]

Bonjour,

Cela est faisable assez facilement avec un REXX et un squelette JCL avec comme paramètre le DSN. Reste à voir si cela vaut vraiment le coup de créer une procédure spécifique (si ton traitement est récurrent ou non).
Le mieux serait que tu donnes le JCL exact que tu veux obtenir.

[LeonK]

Voici un exemple de codage en JCL, mais c'est pas bien joli-joli...

On ne peut utiliser que les paramètres symboliques du système du genre Date, Heure, Nom du Job


http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA1E241/2.2.2

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
//CREVSAM1 JOB (xxxx,,,1000),xxxx,CLASS=D,MSGCLASS=K,               
//    MSGLEVEL=(1,0),NOTIFY=&SYSUID                           
//*******  PREMIER JOB  ************************************************
//STEP01   EXEC PGM=EZACFSM1                                            
//SYSIN    DD DATA,DLM=àà                                               
//*******  SECOND JOB  *************************************************
//CREVSAM2  JOB (xxxx,TSO),CREVSAM2,CLASS=D,MSGCLASS=K,                 
//          NOTIFY=&SYSUID,MSGLEVEL=(1,0)                   
//CREVSAM   EXEC PGM=IDCAMS                                             
//SEQ       DD DISP=SHR,DSN=DSN.EXTACT.COMPTE                  
//SYSOUT    DD SYSOUT=*                                                 
//SYSPRINT  DD SYSOUT=*                                                 
//SYSIN     DD *                                                        
   DELETE DSN.VSAM.&JOBNAME              CLUSTER                 
   SET MAXCC=0                                                          
   DEFINE CLUSTER (NAME (DSN.VSAM.&JOBNAME)      -      
    VOLUMES(SYSDA) CYLINDERS(1 1)                       -      
    RECORDSIZE (17 17) KEYS(11 0) INDEXED)                     
   REPRO INFILE(SEQ) OUTDATASET(DSN.VSAM.&JOBNAME)      
//*                                                            
àà                                                             
//SYSOUT DD SYSOUT=(A,INTRDR)                                  
//*

[Darkzinus]

Envoyé par LeonK

Voici un exemple de codage en JCL, mais c'est pas bien joli-joli...

On ne peut utiliser que les paramètres symboliques du système du genre Date, Heure, Nom du Job


http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA1E241/2.2.2

Code :

Effectivement c'est un peu rude comme moyen de mettre des variables système. Ceci dit, cela doit être la seule façon d'éviter de passer par une procédure REXX pour la "variabilisation" des Sysin.