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