Convert a PDSE to a PDS

Convert a PDSE to a PDS Example

Convert a PDSE to a PDS Tutorial   

Scenario - Copy PDSE to PDS.

JCL -

----+----1----+----2----+----3----+----4----+----5----+
//MATEPKE  JOB (123),'MTH',CLASS=A,MSGCLASS=A,
//             MSGLEVEL=(1,1),NOTIFY=&SYSUID 
//***************************************************
//* CONVERT PDS TO PDSE 
//***************************************************
//STEP10   EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSDUMP  DD SYSOUT=*
//SYSUT1   DD DSN=MATEPK.IEBCOPY.OUTPDSE,DISP=SHR 
//SYSUT2   DD DSN=MATEPK.IEBCOPY.INPPDS2,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(10,10),RLSE),
//            UNIT=3390,VOL=SER=DEVHD4,
//            DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=800)

Job Status -

CONVERT PDS to PDSE Output

Output -

CONVERT PDS to PDSE Output

Explaining Example -

  • SYSUT1 DD DSN=MATEPK.IEBCOPY.OUTPDSE,.. - Specifies the input PDSE.
  • SYSUT2 DD DSN=MATEPK.IEBCOPY.INPPDS2,.. - Specifies the PDSE that needs to be created. IEBCOPY copies all the members from input PDSE to new PDS.