When the PDS contains some members, it can also be deleted by ADRDSSU.
Code:
000100 //GDC041 JOB 'DEL FROM HLQ',CLARK,MSGLEVEL=(1,1),NOTIFY=&SYSUID 000110 //**********************************************************************
000120 //* ALLOCATE PS DATASET 000130 //**********************************************************************
000200 //ALLOPS EXEC PGM=IEFBR14
000210 //SYSPRINT DD SYSOUT=*
000300 //TEST01 DD DSN=GDC041.CLARK.TEST01,DISP=(NEW,CATLG,DELETE), 000400 // LIKE=GDC041.EX3.INPUT1
000600 //TEST02 DD DSN=GDC041.CLARK.TEST02,DISP=(NEW,CATLG,DELETE), 000700 // LIKE=GDC041.EX3.INPUT1
000900 //TEST03 DD DSN=GDC041.CLARK.TEST03,DISP=(NEW,CATLG,DELETE), 001000 // LIKE=GDC041.EX3.INPUT1 001100 //**********************************************************************
001101 //* ALLOCATE PDS DATASET 001102 //**********************************************************************
001103 //ALLOPO EXEC PGM=IEFBR14
001104 //SYSPRINT DD SYSOUT=*
001105 //TEST01 DD DSN=GDC041.CLARK.TEST04,DISP=(NEW,CATLG,DELETE), 001106 // SPACE=(TRK,(1,1,5),RLSE),
001107 // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
001109 //TEST02 DD DSN=GDC041.CLARK.TEST05,DISP=(NEW,CATLG,DELETE), 001110 // SPACE=(TRK,(1,1,5),RLSE),
001111 // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
001112 //TEST03 DD DSN=GDC041.CLARK.TEST06,DISP=(NEW,CATLG,DELETE), 001113 // SPACE=(TRK,(1,1,5),RLSE),
001114 // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0) 001116 //**********************************************************************
001120 //* DELETE PS DATASET 001130 //**********************************************************************
001200 //DELETE EXEC PGM=ADRDSSU
001300 //SYSPRINT DD SYSOUT=*
001400 //JUNK DD DUMMY
001500 //SYSIN DD *
001600 DUMP DATASET(INCLUDE(GDC041.CLARK.*)) -
001700 OUTDD(JUNK) DELETE
001800 /*
001900 //
