home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rxfnset.zip / rxtlst.cmd < prev    next >
OS/2 REXX Batch file  |  1995-11-05  |  505b  |  23 lines
  1. /* */
  2. Say "Sample Rexx program for demonstrating RXTASKLIST function"
  3. Say "RxFnSet by Leshek Fiedorowicz"
  4. Say
  5.  
  6.     Call RxFuncDrop 'RXTASKLIST'
  7.  
  8.     Call RxFuncAdd 'RXTASKLIST', 'RXFN32', 'RXTASKLIST'
  9.  
  10.     Call RxTaskList
  11.  
  12.        say
  13.        say result' Tasks found.' 
  14.        say
  15.        say '  #   PID     NAME '
  16.        say '---  ----  ----------------';
  17.        do i = 1 to PID.0
  18.          say right(i,3)||right(PID.i,6)'  'ENTRY.i;
  19.        end;
  20.  
  21.     Call RxFuncDrop 'RXTASKLIST'
  22. Exit
  23.