      subroutine plip.dealloc.plcb(plcb.no)
*
*
*
*
*
*
*
*
*
*
      $catalog local
      $include ssock.common
      $include plip.bp,plip.source pl.common

      s = FNR.DEALLOC.PLCB :            ~
          oconv(plcb.no,'mcdx') 'r%2' : ~
          '00' :                        ~
          oconv(@userno,'mcdx') 'r%4'

      call plip.call(s,res,err)

      if err <> '' then
         stop err
      end

      if res >= 0 then
         locate(res,resource.list,1;dummy) else
            resource.list<1,-1> = res
         end
      end

      return

   end
