suppression de la dernière version d'un GDG, en jcl

[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?


//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]

Envoyé par twisty

....
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 :

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)