zOs/JCL/IDCAMSDE

//A540769P JOB (PD00,KE50,,SP00000000),
//             'FULLCOPY',
//             MSGCLASS=T,TIME=1440,LINES=100000
//*MAIN CLASS=BS1
//BR       EXEC PGM=IEFBR14       delete pds or library members
//DELMBRIF IF RC = 00  THEN
//DELMBR   EXEC PGM=IDCAMS        delete pds or library members
//SYSPRINT  DD SYSOUT=*
//SYSIN     DD *
 DELETE   A540769.TMP.TST.LIB(A1)
 DELETE   A540769.TMP.TST.LIB(A2)
 DELETE   A540769.TMP.TST.LIB(B2)
 IF MAXCC <= 8  THEN SET MAXCC = 0
//         ENDIF