HPCC-23970 Include information about soapcall services in workunit graph

Signed-off-by: Gavin Halliday <gavin.halliday@lexisnexis.com>

common/workunit/wuattr.cpp

@@ -149,6 +149,7 @@ const static WuAttrInfo attrInfo[] = {
     ATTRX(CriticalSection, SMeasureText),
     CHILD(DiskFormat, SMeasureText, "diskFormat"),
     CHILD(RecordFormat, SMeasureText, "recordFormat"),
+    CHILD(ServiceName, SMeasureText, "serviceName"),
     { WaMax, SMeasureNone, nullptr, nullptr, nullptr, nullptr, nullptr, WaNone, WaNone }
 };
 

common/workunit/wuattr.hpp

@@ -134,6 +134,7 @@ enum WuAttr : unsigned
     WaCriticalSection,
     WaDiskFormat,
     WaRecordFormat,
+    WaServiceName,
     WaMax
 };
 inline WuAttr & operator++(WuAttr & x) { assert(x<WaMax); x = (WuAttr)(x+1); return x; }

ecl/hqlcpp/hqlhtcpp.cpp

@@ -17906,6 +17906,13 @@ ABoundActivity * HqlCppTranslator::doBuildActivitySOAP(BuildCtx & ctx, IHqlExpre
     if (separator)
         doBuildVarStringFunction(instance->startctx, "queryOutputIteratorPath", separator->queryChild(0));
 
+    if (service->queryValue())
+    {
+        StringBuffer serviceName;
+        getUTF8Value(serviceName, service);
+        instance->addAttribute(WaServiceName, serviceName);
+    }
+
     bool isJSON = false;
     IHqlExpression * markupAttr = expr->queryAttribute(xmlAtom);
     if (!markupAttr)