home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: WPS_PM / WPS_PM.zip / xpmfb.zip / killname.cmd < prev    next >
OS/2 REXX Batch file  |  1998-03-07  |  340b  |  24 lines
  1. /*
  2.  *
  3.  */
  4.  
  5. parse upper arg tokill
  6.  
  7. do while queued() > 0
  8.    parse pull foo
  9. end
  10.  
  11. '@pstat /C | rxqueue'
  12.  
  13. do i = 1 to 6
  14.    if queued() > 0 then
  15.       parse pull foo
  16. end
  17.  
  18. do while queued() > 0
  19.    parse upper pull number fa fo name rest
  20.    if Right(name,Length(tokill)) = tokill then
  21.        'death' X2D(number)
  22. end
  23. exit 0
  24.