Project

Profile

Help

Download (1.71 KB)

Bug #6555 ยป compileXQueryWithStackOverflowError_test003.xquery

Joe Che, 2024-10-01 17:20

 
(:~ Copyright (c) 2008, 2011, Oracle and/or its affiliates. All rights reserved. :)

declare namespace oms="urn:com:metasolv:oms:xmlapi:1";
declare namespace env="http://schemas.xmlsoap.org/soap/envelope/";
declare namespace osm="http://xmlns.oracle.com/communications/ordermanagement";


(: XML format control :)
declare option saxon:output "method=xml";
declare option saxon:output "saxon:indent-spaces=4";

declare function local:getOrderAsDOM(
$input as element()?) as element()?
{
<dummy/>
};


let $taskData := local:getOrderAsDOM(<dummy/>)/oms:GetOrder.Response
let $suspendOrderResponse := fn:root(.)/env:Envelope/env:Body/osm:SuspendOrderResponse
let $fault := fn:root(.)/env:Envelope/env:Body/env:Fault
return
if (exists($suspendOrderResponse)) then
(
let $payload := <local:getTaskOutputForSuspendOrderResponse>
{$taskData, $suspendOrderResponse}
</local:getTaskOutputForSuspendOrderResponse>
let $logActivity :=
<oms:LogActivity>
{
let $orderActivity :=
<oms:OrderActivity>
<oms:TaskData>{$taskData}</oms:TaskData>
<oms:SuspendOrderResponse>{$suspendOrderResponse}</oms:SuspendOrderResponse>
<oms:Fault>{$fault}</oms:Fault>
<oms:OutputData>{$payload}</oms:OutputData>
</oms:OrderActivity>
return
$orderActivity

}
</oms:LogActivity>
where (fn:exists($logActivity))
return
$payload/*
)
else ()
    (1-1/1)