      SUBROUTINE PL.XMIT.UDP(PLCB.NO,DST.IP,DST.PORT,DD)
*PIC-LAN
*
*ALL
*PC
*N
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
*
      X = OCONV((LEN(DD)/2)+8,'MCDX') 'R%4'
*$*   X = X : PL_IPTOHEX(SRC.IP)
      X = X : PL_IPTOHEX(DST.IP)
*$*   X = X : OCONV(SRC.PORT,'MCDX') 'R%4'
      X = X : OCONV(DST.PORT,'MCDX') 'R%4'
      X = X : DD
*
      PL_WRITE.AVAIL PLCB.NO ELSE
         PRINT 'Error during WRITE.AVAIL to UDP PLCB'
         PRINT 'RES = ' : RES
         PRINT 'ERR = ' : ERR
         RETURN
      END
*
      IF RES < ( LEN(X) / 2 ) THEN
         PRINT 'Error with UDP write buffer length'
         PRINT 'RES = ' : RES
         PRINT 'LEN = ' : ( LEN(X) / 2 )
         RETURN
      END
*
      PL_WRITEX X ON PLCB.NO ELSE
         PRINT 'Error writing to UDP PLCB'
         PRINT 'RES = ' : RES
         PRINT 'ERR = ' : ERR
         RETURN
      END
*
      RETURN
   END
