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