REXX borra pds

/* REXX */
/***************************************/
  INPUT  = 'A165926.JCL.CADENAS'
            X = OUTTRAP(MEMS.)
 /* TO GET THE MEMBER LIST FROM THE INPUT PDS */
            "LISTDS '"INPUT"' MEM"
            X = OUTTRAP(OFF)
DO I=7 TO MEMS.0
     SAY 'MEMS.I COMPLETO: 'MEMS.I
     SAY 'MEMS.1 :'MEMS.1
      MEMS.I = STRIP(MEMS.I)
       SAY 'DELETING MEMBER:'MEMS.I
       Address TSO "DELETE '"INPUT"("MEMS.I")'"
       if rc\=0 then do;say 'ERROR en BORRADO';exit 8;end
   /*SAY "DELETING - '"INPUT"("MEMS.I")'"*/
END
EXIT
/**************************************/