Discussion :

[qqoos]

bonjour,

est-il possible via un utilitaire IEBCOPY de copier un pds et tous ses membres
dans un autre pds sous un nom different :

pds entree : xx.aaa.entree avec 2 mbres : A et B

pds sortie : xx.aaa.sortie avec 2 mbres : A et B

merci d'avance

[Homer-ac]

Il suffit de ne pas coder d'ordre SELECT, IEBCOPY recopie tous les membres inexistants par défaut sur les PDS sécifiés dans l'ordre COPY (ou C). Maintenant si on veut tout remplacer, on peut lui passer un SYSIN de ce type.
* Idem pour les ordres SELECT (S), on peut indiquer ,R pour Replace

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//STEP001  EXEC PGM=IEBCOPY                                             
//SYSPRINT DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//IN01     DD  DISP=SHR,DSN=&PDSIN                                      
//OU01     DD  DISP=SHR,DSN=&PDSOU                                      
//* OU01   DD  DSN=&PDSOU,DISP=SHR                                      
//*            DISP=(NEW,CATLG),UNIT=3390,LIKE=&PDSIN                   
//SYSIN    DD *                                                         
  COPY  INDD=((IN01,R)),OUTDD=OU01                                      
//*                                                                     
//* OU COPY INDD=IN01,OUTDD=OUT01   OU, SI ON N'A PAS BESOIN DU REPLACE 
//* ET S M=((MYMEMBER,,R))  ET/OU AVEC SELECT POUR COPY REPLACE SPECIF. 
//*
//* OU COPY AVEC CHANGEMENT DE NOM
//SYSIN    DD *
  COPY INDD=SYSUT1,OUTDD=SYSUT2
  SELECT MEMBER=((NOMA,NOMB,R))