xquery help

[paul.rusu]

// start/stop trace

for $x in doc ($doc_name)/ProcessValueTrace/Trace,
$y in $x/StartTrace,
$z in $x/StopTrace
return
<Trace>
{ $y }
{ $z }

</Trace>


open/close logical link by name - input $logicallink_name

for $x in doc ($doc_name)/ProcessValueTrace/Trace,
$y in $x/OpenComPrimitive,
$t in $x/CloseComPrimitive
where (some $z in $y/LogicalLink satisfies
contains($z, string($logical_link_name)))
and (some $z2 in $t/LogicalLink satisfies
contains($z2, string($logical_link_name)) )

return
<Trace>

{ $y }
{ $t }

</Trace>


open/close comprimitive by name - input $comprimitive_name


for $x in doc ($doc_name)/ProcessValueTrace/Trace,
$y in $x/OpenComPrimitive,
$t in $x/CloseComPrimitive
where (contains($y/ShortName, string($comprimitive_name)))
and (contains($t/ShortName, string($comprimitive_name)))
return
<Trace>
{ $y }
{ $t }


</Trace>


let $request_ok:=false
if ($request_ok=true)
$y
else
""

result events - request - by pdu byte pattern (HEX) - input
$pdu_byte_pattern:string, $include_complete_result: boolean
let $doc_name:="can.xml"
let $include_complete_result:=true
let $pdu_byte_pattern:="1"

return
if ($include_complete_result=true) then

for $x in doc ($doc_name)/ProcessValueTrace/Trace
return
<Trace>
{
for $y in $x/DtsResult
let $bb:=for $xx in $y/DtsRequest where (contains($xx/PDU,
string($pdu_byte_pattern))) return $xx
return
if (not(empty($bb))) then
$y
else
""
}
</Trace>

else

for $x in doc ($doc_name)/ProcessValueTrace/Trace
return
<Trace>
{

for $y in $x/DtsResult
let $bb:=for $xx in $y/DtsRequest where (contains($xx/PDU,
string($pdu_byte_pattern))) return $xx
return


for $z in $y/DtsRequest
where (contains($z/PDU, string($pdu_byte_pattern)))
return
$z


}
</Trace>


if (empty($bb)) then
""
else
return
<DtsResult>
{ $y/LogicalLink }
{ $y/ComPrimitive }

if (empty($bb)) then
""
else
</DtsResult>



result events - request - parameter - by name - input
$parameter_name:string, $include_complete_result: boolean

let $doc_name:="can.xml"
let $include_complete_result:=true
let $parameter_name:="localID"

return
if ($include_complete_result=true) then

for $x in doc ($doc_name)/ProcessValueTrace/Trace
return
<Trace>
{
for $y in $x/DtsResult
let $bb:=for $xx in $y/DtsRequest,
$yy in $xx/DtsRequestParameter where (contains($yy/PDU,
string($parameter_name))) return $xx
return
if (not(empty($bb))) then
$y
else
""
}
</Trace>

else

for $x in doc ($doc_name)/ProcessValueTrace/Trace
return
<Trace>
{

for $y in $x/DtsResult
return
<DtsResult>
{ $y/LogicalLink }
{ $y/ComPrimitive }
{ for $z in $y/DtsRequest
where (contains($z/PDU, string($parameter_name)))
return
$z
}
</DtsResult>
}
</Trace>