FIND FIRST _filelist NO-LOCK.
FOR EACH _connect NO-LOCK
  WHERE _connect._connect-type = "SELF"
 /* AND _connect._connect-Device BEGINS "/dev" */ :

  DISPLAY _connect._connect-type
          _connect._connect-device
          _filelist._filelist-name FORMAT "x(32)"
          _connect._connect-name
          _connect._connect-usr
          WITH WIDTH 90.

  /*
  OS-COMMAND("d:\dlc91d\bin\proshut " + _filelist._filelist-name
    + " -C disconnect " + STRING(_connect._connect-usr)).
  */
END.