Allocating a more space to PDS/PDSE file with the JCL with IDCAMS step

Allocating a more space to PDS file with the JCL with IDCAMS step.
//REALLOC JOB (acct#),’REALLOCATING A PDS Library’,CLASS=D,MSGCLASS=J
//* THIS JOB IS FOR REALLOCATING A PDS WITH MORE SPACE
//*
//STEP010 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ALTER DSN.NAME -
NEWNAME(DSN.NAME1)
//*
//SYSUDUMP DD SYSOUT=*
//*
//STEP020 EXEC PGM=IEBCOPY
//INDD DD DSN=DSN.NAME1,DISP=SHR
//OUTDD DD DSN=DSN.NAME,DISP=(NEW,CATLG,CATLG),
//* PRI,SEC,DIRBLOCKS
// UNIT=SYSDA/TAPEC,SPACE=(CYL,(PRI,SEC,DIR)),
// AVGREC=M,
// DCB=(RECFM=??,LRECL=???,BLKSIZE=??,DSORG=??)
//SYSPRINT DD SYSOUT=*
//SUSUT3 DD UNIT=SYSDA,SPACE=(90,(100,100))
//SUSUT4 DD UNIT=SYSDA,SPACE=(90,(100,100))
//SUSUT5 DD UNIT=SYSDA,SPACE=(90,(100,100))
//SUSUT6 DD UNIT=SYSDA,SPACE=(90,(100,100))
//SUSUT7 DD UNIT=SYSDA,SPACE=(90,(100,100))
//SYSIN DD *
COPY INDD=((INDD,R)),OUTDD=OUTDD
//*
This is very nice JCL. Try it… you will see the difference between Manual creation of dataset and through JCL.
This will also work for Secure PDS file(PDSE) libs.