home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxlb.zip / SAMPLES / SWLIST.CMD < prev    next >
OS/2 REXX Batch file  |  1994-09-01  |  870b  |  18 lines

  1. /*****************************************************************************/
  2. /*                                                                           */
  3. /* Display system switch list information.                                   */
  4. /*                                                                           */
  5. /* Requires Personal REXX or REXXLIB (dosswitchlist, dosprocinfo)            */
  6. /*                                                                           */
  7. /*****************************************************************************/
  8.  
  9. count = dosswitchlist('name', 'pid', 'session', 'handle', 'type',,
  10.     'visibility')
  11.  
  12. do i = 1 to count
  13.     say ''
  14.     say 'Name:' name.i
  15.     say 'Pid:' pid.i 'Session:' session.i 'Program:' dosprocinfo('n', pid.i)
  16.     say 'Handle:' handle.i 'Type:' type.i 'Visibility:' visibility.i
  17.     end
  18.