
  PROCEDURE [INLINE] nlp$tm_get_udp_device
    (    local_address: nlt$tcpip_address;
     VAR device_id: nlt$device_identifier);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      i: nlt$device_identifier;

    device_id := 0;

    FOR i := 1 TO nlv$tm_device_configuration^.count DO
      IF nlv$tm_device_configuration^.list [i].local_device_address.full = local_address.full THEN
        device_id := i;
        RETURN; {----->
      IFEND;
    FOREND;

  PROCEND nlp$tm_get_udp_device;

*copyc nlh$tm_get_udp_device

*copyc nlt$device_identifier
*copyc nlt$tcpip_address
*copyc nlv$tm_device_configuration
?? POP ??
