copie de fichier GDG

[twisty]

Bonjour,

Je souhaiterais connaître les instructions, pour copier un fichier GDG, dans un autre, avec toutes les versions concernées, en jcl.

Pouvez-vous m'aider ?

Merci d'avance.

[arneo]

Bonjour,
Pour ma part, le seul moyen est de copier chaque génération dans une nouvelle.

[Lemmings1406]

Hello,

J'arrive peut-être un peu tard, mais pour copier toutes les versions d'un GDG d'un un fichier, tu peux utiliser ceci (il suffit simplement de ne pas mettre la version du gdg)

Code :

1
2
3
4
5
6
7
8
9
//COPYGDG  EXEC  PGM=ICEGENER                              
//SYSPRINT DD  SYSOUT=*,                                   
//             OUTPUT=*.OUTA                               
//SYSUT1   DD  DSN=Fichier_GDG_Base,DISP=SHR          
//SYSUT2   DD  DSN=Fichier_en_sortie,                 
//             DISP=SHR                                    
//SYSIN    DD  *                                           
//*

[arneo]

En fait je pense qu'il souhaite dupliquer un GDG base avec ses générations.

[twisty]

Je reprends la question un peu tard (mieux vaut trad que jamais).
Je souhaite copier une version d'un GDG vers une autre. Faut-il créer un nouveau GDG, puis créer une version vide, et copier la version GDG vers cette version vide ? Dans ce cas, quelles sont les instructions ?

Merci d'avance.

[pdelbecque]

Bonjour,

Le plus simple c'est d'utiliser le DISP=MOD, mais je le deconseilles fortement.

Le mieux tu catalogues sur une nouvelle generation, car ce sera plus simple pour retrouver tes fichiers en cas de plantage (B37 ou autre).

[BernardBZH]

Bonjour,

A moins d'avoir mal compris ta demande, pour créer une nouvelle version d'un GDG à partir d'une version existante le petit code suivant suffit :

Code :

1
2
3
4
5
6
7
//IEBGENER EXEC PGM=IEBGENER                                           
//SYSPRINT DD SYSOUT=*                                                 
//SYSUT1   DD DSN=MonGDG(0),DISP=SHR              
//SYSUT2   DD DSN=MonGDG(+1),DISP=(,CATLG,DELETE),
//         REFDD=*.SYSUT1                                              
//SYSIN    DD DUMMY                                                    
//*

Le code ci-dessus permet de copier la version courante dans une nouvelle version. Si tu veux créer une nouvelle version à partir d'une autre que la version courante il suffit bien entendu de coder la version adéquate en lieu et place de MonGDG(0).