zOs/JCL/SHRZ2Z1

//A540769R JOB (CP00,KE50),MSGCLASS=T
//*
//******************************************************
//* ALLOCATE NEW DATASET                               *
//******************************************************
//P01     EXEC PGM=IEFBR14
//DDNEW   DD DSN=SHR21.DIV.P021.A540769.ZGL.JCL,
//        DISP=(NEW,CATLG,DELETE),UNIT=DISK,
//        DATACLAS=NOMULTI,
//        MGMTCLAS=COM#E008,
//        STORCLAS=MNN06,
//        SPACE=(27920,(448,38,999)),
//        DSNTYPE=LIBRARY,
//        DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920)
//******************************************************
//* COPY ORGINAL DATA TO NEW DATASET                   *
//******************************************************
//P02     EXEC PGM=IEBCOPY
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD DISP=SHR,DSN=A540769.ZGL.JCL
//SYSUT2    DD DISP=SHR,DSN=SHR21.DIV.P021.A540769.ZGL.JCL
//SYSIN     DD *
  COPY I=((SYSUT1,R)),O=SYSUT2
/*