We need to create the jcl to delete 100's of programs from multiple libraries so one my friend suggested me to use REXX.
I'm very new to rexx. Please help me on this.
Requirement is
1. PS file1 will have list of PDS for taking backup and deleting the components.
PS File1:
Code: Select all
AAAAAA.BBBBBB.CCCCCC ====> PDS1
BBBBBB.CCCCCC.DDDDDD ====> PDS2
CCCCCC.DDDDDD.EEEEEEE ====> PDS3
DDDDDD.EEEEEEE.FFFFFFFFF ====> PDS4
PS FIle2:
Code: Select all
MEM1
MEM2
MEM3
MEM4
MEM5
Code: Select all
AAA.BBB.CCC.DDD
Code: Select all
//S010 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=AAAAAA.BBBBBB.CCCCCC ===> PDS1
//OUTDD DD DSN=BBBBBB.CCCCCC.DDDDDD, ====> PDS2
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,DCB=*.INDD,
// SPACE=(CYL,(20,20,20),RLSE)
//*
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//*
//SYSIN DD *
COPY INDD=((INDD,R)),OUTDD=OUTDD
SELECT MEMEBR=MEM1
SELECT MEMEBR=MEM2
SELECT MEMEBR=MEM3
SELECT MEMEBR=MEM4
SELECT MEMEBR=MEM5
//*
//S020 EXEC PGM=DELMEM
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1 DD DISP=SHR,DSN=AAAAAA.BBBBBB.CCCCCC ===> PDS1
//*
//SYSIN DD *
S M=MEM1
S M=MEM2
S M=MEM3
S M=MEM4
S M=MEM5
/*
//S030 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//INDD DD DISP=SHR,DSN=CCCCCC.DDDDDD.EEEEEEE ====> PDS3
//OUTDD DD DSN=DDDDDD.EEEEEEE.FFFFFFFFF ====> PDS4
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,DCB=*.INDD,
// SPACE=(CYL,(20,20,20),RLSE)
//*
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(5,5))
//*
//SYSIN DD *
COPY INDD=((INDD,R)),OUTDD=OUTDD
SELECT MEMEBR=MEM1
SELECT MEMEBR=MEM2
SELECT MEMEBR=MEM3
SELECT MEMEBR=MEM4
SELECT MEMEBR=MEM5
//*
//S040 EXEC PGM=DELMEM
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SYSUT1 DD DISP=SHR,DSN=DDDDDD.EEEEEEE.FFFFFFFFF ====> PDS4
//*
//SYSIN DD *
S M=MEM1
S M=MEM2
S M=MEM3
S M=MEM4
S M=MEM5
/*
Thanks,
Krishna