      REM PLW.DEL.STATE.INCLUDE
*PIC-LAN
*INCLUDE
*
*
*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).      ***
***                                                                        ***
******************************************************************************
******************************************************************************
*
990000   REM PLW.DEL.STATE
*
      BEGIN CASE
         CASE YES
            IF ST$PLCB <> '' THEN
               IF ST$OBUF.BCB <> '' THEN
                  PL_BCB.DEALLOC ST$OBUF.BCB
               END
               PL_TCP_DEL_Q -1 , ST$PLCB , 0 ELSE NULL
               PL_DEALLOC.PLCB ST$PLCB ELSE NULL
            END
            INCLUDE PLW.DEL.STATE.FILES.INCLUDE
      END CASE
*
      IF ST$PLCB <> '' THEN
         RELEASE PL$CONN.FD , ST$PLCB 'R%8'
      END
*
      MAT ST$ARRAY = ''
*
      RETURN
