      SUBROUTINE PLX.CLEANUP
*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
*
      PORT.NO = FIELD(OCONV('','U50BB'),' ',1)
*
      CALL PLXX.INIT(MAT CONFIG.ARRAY,MAT PLIP$VARS,745)
*
      OPEN 'PLIP.CTRL,IP.RESOURCES' TO RES.FD ELSE CALL PLXX.STOP(201,'PLIP.CTRL,IP.RESOURCES')
*
      READV LST FROM RES.FD , PORT.NO , 1 THEN
         I1 = DCOUNT(LST<1>,VM)
         FOR I = 1 TO I1
            CALL PLXX.TCP.RESET(MAT CONFIG.ARRAY,MAT PLIP$VARS,LST<1,I>)
         NEXT I
      END
*
      RETURN
   END
