home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxset211.zip / RXKILL.CMD < prev    next >
OS/2 REXX Batch file  |  1995-11-05  |  579b  |  23 lines
  1. /* */
  2. Say "Sample Rexx program for demonstrating RXKILLPROCESS function"
  3. Say "RxFnSet by Leshek Fiedorowicz"
  4. Say
  5.  
  6. Arg Number
  7.     Call RxFuncDrop 'RXKILLPROCESS'
  8.  
  9.     Call RxFuncAdd 'RXKILLPROCESS', 'RXFN32', 'RXKILLPROCESS'
  10.  
  11.     Call RxKillProcess Number
  12.  
  13.     say 'Return code from kill:'result'.'
  14.     if result \=  0 then 
  15.     do
  16.       say "Syntax: RxKill <pid>;"
  17.       say "        execute <RxTlst> to display the list of active tasks."
  18.       say "See OS/2 CP Program Ref. (DosKillProcess) for deteils."
  19.     end
  20.  
  21.     Call RxFuncDrop 'RXKILLPROCESS'
  22. Exit
  23.