home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 18 REXX
/
18-REXX.zip
/
rexxlb.zip
/
SAMPLES
/
SWLIST.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-09-01
|
870b
|
18 lines
/*****************************************************************************/
/* */
/* Display system switch list information. */
/* */
/* Requires Personal REXX or REXXLIB (dosswitchlist, dosprocinfo) */
/* */
/*****************************************************************************/
count = dosswitchlist('name', 'pid', 'session', 'handle', 'type',,
'visibility')
do i = 1 to count
say ''
say 'Name:' name.i
say 'Pid:' pid.i 'Session:' session.i 'Program:' dosprocinfo('n', pid.i)
say 'Handle:' handle.i 'Type:' type.i 'Visibility:' visibility.i
end