      SUBROUTINE PLX.TCP.STATUS(R.PLCB,ST,R.ERR)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.DEFS
      DIM CONFIG.ARRAY(50)
      INCLUDE PL.COMMON.DEFS
*
      DIM PLIP$VARS(100)
      INCLUDE PLIP.VARS
*
      CALL PLXX.INIT(MAT CONFIG.ARRAY,MAT PLIP$VARS,0)
*
      RESOURCE.LIST = ''
*
      ST = ''
*
      PL_PLCB.STATUS R.PLCB ELSE
         R.ERR = 'Error getting TCP connection status'
         CALL PLX.TCP.RESET(R.PLCB)
         RETURN
      END
*
      ST = PL_TCP.STATUS_STATE()
*
      RETURN
   END
