      REM PLIP-STOP
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
******************************************************************************
******************************************************************************
***                                                                        ***
*** (C) Copyright 1990-2005 Doug Dumitru, All Rights Reserved.             ***
***                                                                        ***
*** This program is licensed under the terms of the GNU General Public     ***
*** License, version 2.0 with attached notices.                            ***
***                                                                        ***
*** The full text can be found in the LICENSE.TXT file in the              ***
*** PLIP.BP database file (the /usr/qmweb/PLIP.BP/PLIP.BP directory).      ***
***                                                                        ***
******************************************************************************
******************************************************************************
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
      INCLUDE PL.INIT.INCLUDE
*
      E.FLG = ''
      CRLF = CR : LF
*
      MAT PLS$VARS = ''
*
      CALL PLIP.INIT.SUB
      CALL PLW.INIT.SUB('RUN')
*
      RUN.FLG = NO
      CALL PLWS.GETLOCK(PL$LOCK.FD,'WWW.CTRL,LOCK','SUPERVISOR-PROCESS',L.PORT)
*
      IF L.PORT = '' THEN
         PRINT 'The supervisor process is not running.'
         STOP
      END
*
      WRITE 1 ON PL$CTRL.FD , 'CONFIG-EXIT'
*
      PRINT
      PRINT 'A stop signal has been sent to the supervisor process'
      PRINT 'which should in turn stop thread processes.  This'
      PRINT 'operation may take up to several minutes and may fail'
      PRINT 'if any of the processes are hung.'
      PRINT
*
      PL_EXECUTE 'PLIP-MONITOR (EX'
   END
