Convert a PDS to a PDSE

Convert a PDS to a PDSE Example

Convert a PDS to a PDSE Tutorial   

Scenario - Copy PDS to PDSE.

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.INPPDS,DISP=SHR
//SYSUT2   DD DSN=MATEPK.IEBCOPY.INPPDSE,
//            DSNTYPE=LIBRARY,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=3390,VOL=SER=DEVHD4
//            DCB=(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.INPPDS - Specifies the input PDS.
  • SYSUT2 DD DSN=MATEPK.IEBCOPY.INPPDSE - Specifies the PDSE that needs to be created similar to PDS. IEBCOPY copies all the members from input PDS to new PDSE.