Discussion :

[twisty]

Bonjour,

Je souhaite savoir, comment peut-on supprimer la dernière version d'un GDG ?

exemple :

nomfichier.g0001VOO

nomfichier.g0002VOO

Je souhaite supprimer nomfichier.g0002VOO (sans passer par 3.4 ), au début d'une procédure jcl.

Merci d'avance.

Twisty.

[Lemmings1406]

Bonjour,

Il te suffit de mettre dans l'utilitaire :

Nomfichier(0)

Le (0) correspondant toujours à la dernière version du gdg (tu peux aussi mettre -1, -2 ...)

Prendre l'exemple de xfanx dans les messages ci-dessous.


Toujours commencer par deleter la version la plus ancienne (cad commencer par exemple par -2 pui -1 pui 0)

[twisty]

Malheureusement, cela ne marche pas. J'ai le message suivant :

IDC3203I ITEM 'nomfichier.(0)' DOES NOT ADHERE TO RESTRICTIONS
IDC3202I ABOVE TEXT BYPASSED UNTIL NEXT COMMAND. CONDITION CODE IS 12.

Faut-il intégrer une instruction supplémentaire, dans le jcl ?

Merci d'avance.

[xfanx]

bonjour,

peux-tu essayer comme ça?

Code :

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

1
2
3
4
//STEP010  EXEC PGM=IEFBR14
//SYSOUT   DD  SYSOUT=*
//SYSDEL   DD  DSN=nom.fichier(0),
//             DISP=(MOD,DELETE,DELETE)

[twisty]

La procédure, en amont, fonctionne parfaitement. Merci.
Cependant, si je veux supprimer les deux dernières versions du GDG, faut-il exécuter 2 fois cette procédure ou mettre, à l'étiquette SYSDEL, les deux versions (soit ; SYSDEL DD DSN=nomfichier(0), disp=(mod,delete,delete)
DD DSN=nomfichier(-1), disp=(mod,delete,delete) ?

Merci d'avance.

[Luc Orient]

....
Cependant, si je veux supprimer les deux dernières versions du GDG, faut-il exécuter 2 fois cette procédure ou mettre, à l'étiquette SYSDEL, les deux versions (soit ; SYSDEL DD DSN=nomfichier(0), disp=(mod,delete,delete)
DD DSN=nomfichier(-1), disp=(mod,delete,delete) ?

Chez moi cette version a l'air de fonctionner :

Code :

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

1
2
3
4
5
//IEFBR14 EXEC PGM=IEFBR14
//SYSDEL DD DSN=fichier(-1),
// DISP=(MOD,DELETE,DELETE)
//SYSDEL DD DSN=fichier(0),
// DISP=(MOD,DELETE,DELETE)

[twisty]

Bonjour,

Je reprends la discussion bien des années plus tard, car je viens de m'apercevoir que, quand je supprime la version en cours du GDG, je ne peux plus lire la version GDG précédente, laquelle devient 'en cours'. Voici le code :

Code :

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

1
2
3
4
5
6
7
//STEP1 EXEC PGM=IEFBR14
//SYSDEL DD DSN=nom_GDG(0),
//  DISP=(MOD,DELETE,DELETE)
//*
//STEP2 EXEC PGM=nom_pgm
//DDGDG DD DSN=nom_GDG(0), DISP=SHR
//...

Après exécution du jcl, j'ai le message suivant :

JCL ERROR
nom_GDG(0) NOT FOUND

Quelle est l'instruction à mettre, pour que le système puisse lire la version précédente du fichier nom_GDG, laquelle devient la version en cours (nom_GDG(0), dans ce cas ?

Merci d'avance.

[escartefigue]

Bonjour

Le premier STEP de votre JOB supprime la génération en cours G(0)

Le step suivant, s'il veut utiliser la génération précédente, doit utiliser la G(-1)

Au sein d'un même job, les n° de génération restent inchangés !

De même, si vous voulez créer deux nouvelles générations dans un même JOB, il faut utiliser un STEP avec G(+1) et un autre avec G(+2).
Si vous codez deux STEPS, tous deux avec G(+1), le deuxième tombera en erreur avec un message "DUPLICATE DATA SET NAME"

[Darkzinus]

escartefigue a très bien expliqué le fonctionnement. Pour résumer, dans ton JCL on spécifie les générations par rapport à l'état au moment du lancement du JCL. Dès que celui-ci est lancé il substitue toutes les générations relatives par les générations "physiques". Dès lors, il ne tient pas compte des steps intermédiaires. Le (-1) est le (-1) avant lancement du JCL etc ...