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