      REM PLW.DEL.STATE.INCLUDE
*PIC-LAN
*INCLUDE
*
*
*N
*
*
*
*
*
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
