gcicchet
Senior Member
Joined: 28 Jul 2006 Posts: 1702 Location: Australia
|
|
|
|
Hi,
yes you can copy all members of a PDs to 1 member of another PDS
The only reason as to why the dataset is deleted has to do with the DISP parameter you have coded
Code: |
//**********************************************************************
//*
//FILEAID EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=INPUT DATASET
// DISP=SHR
//DD01O DD DSN=OUTPUT.DATASET(X),
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(TRK,(250,50,1),RLSE),
// DCB=(RECFM=FB,LRECL=80)
//SYSIN DD *
$$DD01 COPY MEMBERS=ALL
//*
//**********************************************************************
|
Gerry |
|