Discussion :

[dexter74]

Bonjour,

J'aimerai un coups de main pour réaliser une copie de fichier avec en sortie un nom de fichier avec la date. (Variable : &ODMY1 DDMMYY)

Actuellement:

Code :

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

1
2
Fichier en entrée: BASE.TEST
Fichier en sortie: BASE.TEST2

Souhait:

Code :

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

1
2
Fichier en entrée: BASE.TEST
Fichier en sortie: BASE.TEST.DU220914

JCL:

Code :

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

1
2
3
4
5
6
7
8
9
//* -------------------------------------------------------- *
//DEBUT     EXEC TRI
//ENTREE DD DSN=BASE.TEST,DISP=SHR
//*
//SORTIE DD DSN=BASE.TEST2,
//          RECFM=FB,LRECL=80,
//          DISP=(,CATLG),SPACE=(TRK,(450,450),RLSE)
//* -------------------------------------------------------- *

Merci d'avance.

[Darkzinus]

Bonjour je ne travaille plus sur sur MVS depuis un moment mais tu peux déclarer ton nom de fichier sous la forme (je ne sais plus s'il y a ou non besoin de "'" dans l'instruction SET) :

Code :

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

1
2
3
4
5
6
7
8
9
//* -------------------------------------------------------- *
//SET &FICOUT = BASE.TEST.&ODMY1
//DEBUT     EXEC TRI
//ENTREE DD DSN=BASE.TEST,DISP=SHR
//*
//SORTIE DD DSN=&FICOUT,
//          RECFM=FB,LRECL=80,
//          DISP=(,CATLG),SPACE=(TRK,(450,450),RLSE)
//* -------------------------------------------------------- *

[bernard59139]

Bonjour

(Variable : &ODMY1 DDMMYY)

A priori, tu travailles avec TWS (ou OPC).

tu devrais coder qquchse comme:

Code :

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

1
2
3
//SORTIE DD DSN=BASE.TEST2.D%OYMD1.,
//          RECFM=FB,LRECL=80,
//          DISP=(,CATLG),SPACE=(TRK,(450,450),RLSE)

a+

[escartefigue]

@Darkzinus : dans la déclarative, le nom de la variable ne contient pas de & commercial, par exemple :

//SETPARM SET SUFFIXE=&ODMY1.

De plus, la limite de cette méthode est qu'elle ne s'applique qu'aux cartes du job, pas à sa SYSIN.
Du coup, si le nom du fichier est utilisé en SYSIN d'un IDCAMS par exemple, ça ne fonctionnera pas.

La méthode proposée par Bernard59139 est celle couramment utilisée, la substitution se fait lors de la soumission sur l'ensemble des occurrences trouvées dans le job, y compris en SYSIN.

[Darkzinus]

Effectivement j'ai perdu pas mal de notions Z/OS depuis que je suis sur IBM I. Je passais généralement par des squelettes pour la substitutions de variable ou par des procédures (en développement s'entend).