强制删除MEMBER

//IBMUSERD JOB (DELETE,SDS),BCL,CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),     
//         NOTIFY=&SYSUID                                              
//DELMEMB  EXEC PGM=IDCAMS                                             
//SYSPRINT DD SYSOUT=*                                                 
//PDS      DD DSN=MF03.ETP.ZOS3,DISP=SHR                               
//SYSIN    DD *                                                        
  ALLOC DDN(INFILE) SHR REUSE DSN('MF03.ETP.ZOS3')                     
  DELETE MF03.ETP.ZOS3(TEST1) FILE(PDS)                                
//