declare variable $xPRSXMLInput as document-node(element(*, xs:untyped)) external;
declare variable $convPath as xs:string external;
declare variable $POLCUST := $xPRSXMLInput/root/POLCUST/text();
declare variable $POLCUST2 := $xPRSXMLInput/root/POLCUST2/text();
declare variable $DLSCSTR := $xPRSXMLInput/root/DLSCSTR/text();
declare variable $DLSFIP1 := $xPRSXMLInput/root/DLSFIP1/text();
declare variable $DLSADTY := $xPRSXMLInput/root/DLSADTY/text();
{
for $PCustRow in doc(concat("converter:file:///", $convPath, "/POLCUST_MAIN.conv?file:///", $POLCUST))/root/row
for $PCust2Row in doc(concat("converter:file:///", $convPath, "/POLCUST2.conv?file:///", $POLCUST2))/root/row
where $PCustRow/DPT_KEY_POL_ID/text() = $PCust2Row/DPT_KEY_POL_ID/text()
return
{ concat($PCustRow/DPT_KEY_CLERK_DIST, $PCustRow/DPT_KEY_ACCT) }
{ $PCustRow/DPT_KEY_POL_ID/text() }
{ $PCustRow/DPT_POL_NUM/text() }
{ $PCustRow/PRODUCT/text() }
{ $PCustRow/JURIS/text() }
...snip 403 fields...
{ $PCustRow/DPT_OIR_CURR_INDEX_10YR/text() }
{ $PCustRow/DPT_OIR_CURR_INDEX_20YR/text() }
{ $PCustRow/DPT_OIR_GUAR_INDEX_10YR/text() }
{ $PCustRow/DPT_OIR_GUAR_INDEX_20YR/text() }
{ $PCust2Row/DPT_ADBR_LOAN_INT_TEXT/text() }
{ $PCust2Row/DPT_COPHONE/text() }
{ $PCust2Row/DPT_AGENT_PHONE/text() }
...snip 48 fields...
{ $PCust2Row/DPT_MIN_ST_AMT/text() }
{ $PCust2Row/DPT_ADDTL_EXCHANGE_TEXT/text() }
{ $PCust2Row/DPT_OIR_EXCHANGE_TEXT/text() }
{
for $FIP1Row in doc(concat("converter:file:///", $convPath, "/DLSFIP1.conv?file:///", $DLSFIP1))/root/row
(: for $FIP1Row in doc('converter:file:///c:/Working/Stylus_Studio/Com/xQuery/Conv/DLSFIP1.conv?file:///c:/ESP/Data/Com/polprint/WSD04/DLSFIP1.TXT')/root/row :)
where $PCustRow/DPT_KEY_POL_ID/text() = concat($FIP1Row/FIP1_COMPANY_CODE, $FIP1Row/FIP1_POL_NO, $FIP1Row/FIP1_SEC_CODE)
return
{ concat($FIP1Row/FIP1_COMPANY_CODE, $FIP1Row/FIP1_POL_NO, $FIP1Row/FIP1_SEC_CODE) }
{ $FIP1Row/FIP1_SEQ_NO/text() }
{ $FIP1Row/FIP1_PG_NO/text() }
{ $FIP1Row/FIP1_TOT_PGS/text() }
{ $FIP1Row/FIP1_PAGE_TEXT/text() }
}
{
for $CSTRRow in doc(concat("converter:file:///", $convPath, "/DLSCSTR.conv?file:///", $DLSCSTR))/root/row
(: for $CSTRRow in doc('converter:file:///c:/Working/Stylus_Studio/Com/xQuery/Conv/DLSCSTR.conv?file:///c:/ESP/Data/Com/polprint/WSD04/DLSCSTR.TXT')/root/row :)
where $PCustRow/DPT_POL_NUM/text() = $CSTRRow/CSTR_POLICY_NUMBER/text()
return
{ $CSTRRow/CSTR_POLICY_NUMBER/text() }
{ $CSTRRow/CSTR_SEQ_NUM/text() }
{ $CSTRRow/CSTR_RIDER_NUMBER/text() }
{ $CSTRRow/CSTR_RIDER_TEXT/text() }
{ $CSTRRow/CSTR_FILLER/text() }
}
{
for $ADTYRow in doc(concat("converter:file:///", $convPath, "/DLSADTY.conv?file:///", $DLSADTY))/root/row
(: for $ADTYRow in doc('converter:file:///c:/Working/Stylus_Studio/Com/xQuery/Conv/DLSADTY.conv?file:///c:/ESP/Data/Com/polprint/WSD04/DLSADTY.TXT')/root/row :)
where $PCustRow/DPT_POL_NUM/text() = $ADTYRow/ADTY_POLICY_NUMBER/text()
return
{ $ADTYRow/ADTY_POLICY_NUMBER/text() }
{ $ADTYRow/ADTY_SEQ_NUM/text() }
{ $ADTYRow/ADTY_TABLE_TYPE/text() }
{ $ADTYRow/ADTY_CODE/text() }
}
}
(: Stylus Studio meta-information - (c) 2004-2009. Progress Software Corporation. All rights reserved.
:)