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. :)