function is addapted f_GetEUTASServerAddress

    	 * @desc Get the AS server FQDN  of referenced EUT 

    	 */

     	function f_GetEUTASServerAddress(integer p_ProductIdx) return charstring {

     	  // TODO

     	  return "TODO";

           // TODO function not tested

           var integer v_size_interfaces := sizeof(PX_PRODUCTS[p_ProductIdx].monitorInterfaces);

           var integer v_size_ipinterfaceinfo;

           var integer v_interface := -1;

           var integer v_ipinterfaceinfo := -1;

           var charstring v_domainname;

           for(var integer i := 0; i < v_size_interfaces; i := i+1) {

            if (match(PX_PRODUCTS[p_ProductIdx].monitorInterfaces[i].interfaceName, pattern "[Ii][Ss][Cc]")){

             v_interface := i;

            }

           }

           if (v_interface > -1) {

            v_size_ipinterfaceinfo := sizeof(PX_PRODUCTS[p_ProductIdx].monitorInterfaces[v_interface].interfaceInfo.IpInterfaceInfo);

               for(var integer i := 0; i < v_size_ipinterfaceinfo; i := i+1) {

                v_domainname := PX_PRODUCTS[p_ProductIdx].monitorInterfaces[v_interface].interfaceInfo.IpInterfaceInfo[i].domainName;

                if (match(substr(v_domainname, 0, 2), pattern "[Aa][Ss]")) {

                 v_ipinterfaceinfo := i;

                }

               }

           } else {

            log ("AS of " & PX_PRODUCTS[p_ProductIdx].productName & " not found.");

            return "AS of " & PX_PRODUCTS[p_ProductIdx].productName & " not found.";

           }

           if (v_ipinterfaceinfo > -1) {

            return PX_PRODUCTS[p_ProductIdx].monitorInterfaces[v_interface].interfaceInfo.IpInterfaceInfo[v_ipinterfaceinfo].domainName;

           } else {

            log ("AS of " & PX_PRODUCTS[p_ProductIdx].productName & " not found.");

            return "AS of " & PX_PRODUCTS[p_ProductIdx].productName & " not found.";

           }

     	}

 	}