I tried using IEBCOPY to merge/Concatenate multiple PDS into a single PDS. But I am not able to do so. Please Help. Below is the code that I used
//STEP040 EXEC PGM=IEBCOPY,
// COND=(0,NE),
// REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//MYDD1 DD DSN=PXX.DAILY.JCL(0),
// DISP=SHR,
// DCB=BUFNO=30
//MYDD2 DD DSN=PXX.DAILY.JCL(-1),
// DISP=SHR,
// DCB=BUFNO=30
//MYDD3 DD DSN=ISLMMMM.DAILY.JCL.MERGED
// DISP=(NEW,CATLG,DELETE),
// UNIT=TEST,
// SPACE=(CYL,(50,50),RLSE),
// DCB=(RECFM=FB,DSORG=PO)
//SYSIN DD *
COPY INDD=(MYDD1,MYDD2),OUTDD=MYDD3
/*
// COND=(0,NE),
// REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//MYDD1 DD DSN=PXX.DAILY.JCL(0),
// DISP=SHR,
// DCB=BUFNO=30
//MYDD2 DD DSN=PXX.DAILY.JCL(-1),
// DISP=SHR,
// DCB=BUFNO=30
//MYDD3 DD DSN=ISLMMMM.DAILY.JCL.MERGED
// DISP=(NEW,CATLG,DELETE),
// UNIT=TEST,
// SPACE=(CYL,(50,50),RLSE),
// DCB=(RECFM=FB,DSORG=PO)
//SYSIN DD *
COPY INDD=(MYDD1,MYDD2),OUTDD=MYDD3
/*
But getting below error
DD NAME MYDD3 IS SUPPOSED TO BE A PARTITIONED DATA SET BUT IT HAS NO DIRECTOR
Then I Tried below code
//STEP040 EXEC PGM=IEBCOPY,
// COND=(0,NE),
// REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//MYDD1 DD DSN=Pxx.DAILY.JCL(0),
// DISP=SHR,
// DCB=BUFNO=30
// DD DSN=Pxx.DAILY.JCL(-1),
// DISP=SHR,
// DCB=BUFNO=30
//MYDD2 DD DSN=ISLmmmm.DAILY.JCL.MERGED,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TEST,
// SPACE=(CYL,(50,50),RLSE),
// DCB=*.MYDD1
//SYSIN DD *
COPY INDD=MYDD1,OUTDD=MYDD2
/*
// COND=(0,NE),
// REGION=4096K
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//MYDD1 DD DSN=Pxx.DAILY.JCL(0),
// DISP=SHR,
// DCB=BUFNO=30
// DD DSN=Pxx.DAILY.JCL(-1),
// DISP=SHR,
// DCB=BUFNO=30
//MYDD2 DD DSN=ISLmmmm.DAILY.JCL.MERGED,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TEST,
// SPACE=(CYL,(50,50),RLSE),
// DCB=*.MYDD1
//SYSIN DD *
COPY INDD=MYDD1,OUTDD=MYDD2
/*
But it is giving an error message as below
CONCATENATED DATA SETS NOT ALLOWED. USE MULTIPLE INDD= OPERANDS.
Please let me know how Can I make a Single PDS by Merging/concainating Multiple PDS.