JCL : Mass delete datasets

I need to delete the datasets starting my Id as my Higher level qualifier. There are thousands of datasets available. Is there any TSO command to delete all the datasets starting with userid.C* all at once.  

Solution:- 

//STEP001 EXEC PGM=ADRDSSU 

//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//PSEUDO DD DUMMY
//SYSIN DD *
DUMP DS(INCL(USERID.C*.**)) OUTDD(PSEUDO) DELETE
SET MAXCC = 0
/*