XMLAGG problem

Question

We have stored procedure which creates a long string of XML (which is stored as a clob in the database column)using the xmlAGG and XMLElement. The stored proc calls sub functions which all run fine when called individually however when called collectively from the stored proc the xml generated appears corrupted with a section missing and always gets corrupted at the same point i.e. a sub function pulls back a number of installment records - when we try to retrieve more than 4 records 1016 bytes the result gets corrupted. We are using oracle 10g with the latest patches 10.0.2.0.2 and running it on a linux - we also tried it from a windows platform but get the same problem. We know its not the code that is the problem because it works fine from a linux machine. Has anyone else experience similar problems or have any ideas on how to resolve?

Answer 1

Sorry yes noticed the typo in my original post. It occurs on both linux and windows but not apparently AIX. the data is accumulated into a big XML ELEMENT using XMLAGG and XMLELEMENT and XMLTYPE. when all data required has been accumulated a toClob is performed which is the format it is stored in database as. Originally we used a 9i database on windows and had no problems at all with the exact same code but customer wishes to upgrade to 10g which we have had problems with but they have not had problems with 10g installed in AIX box.
Here is the stored procedure :
PROCEDURE LTR_CUSTOMER_STATEMENT_SP
/*======================================================================
** Inputs
**=====================================================================*/
IN_PAYMENT_PLAN_ID IN VARCHAR2, -- Identifies the Payment Plan
IN_FROM_DATE IN VARCHAR2, -- Lower bound for installments,
-- payments and broker fees
IN_UNTIL_DATE IN VARCHAR2, -- Upper bound for installments and payments
/*=======================================================================
** Input / Outputs
**=====================================================================*/
RESULT_SET_LIST IN OUT KPK_PPP_DATATYPES.letter_data_result_list,
-- returnedXML in result set
SUCCESS OUT NUMBER -- Success value
AS
/*=======================================================================
** Local vars
**=====================================================================*/
pay_plan_id_p INTEGER; -- Holds CRN converted
from_date_p DATE; -- Holds from date converted
until_date_p DATE; -- Holds until date converted
li_agency_id_p INTEGER; -- holds the agency id of the latest loan on the payment plan
BEGIN
/*=======================================================================
** Assign local vars
**=====================================================================*/
pay_plan_id_p := TO_NUMBER(IN_PAYMENT_PLAN_ID);
from_date_p := TO_DATE(IN_FROM_DATE, 'DD/MM/YYYY');
until_date_p := TO_DATE(IN_UNTIL_DATE, 'DD/MM/YYYY');
/*=======================================================================
** Get agency id
**=====================================================================*/
SELECT agency_id INTO li_agency_id_p
     FROM (SELECT agency_id
     FROM LOAN l
     WHERE l.payment_plan_id = IN_PAYMENT_PLAN_ID
     ORDER BY l.created_on DESC)
     WHERE ROWNUM = 1;
BEGIN
OPEN RESULT_SET_LIST FOR
SELECT XMLElement( "LETTER",
/*==============================================================
** Add the 'ALL_LETTERS' node
**==============================================================*/
( SELECT XML_RETURN_BLOCK FROM LTR_SUB_ALL_LETTER_INFO_V
WHERE PAYMENT_PLAN_ID = pay_pln.ID),
/*======================================================
** Add the 'HIB_COMPANY_INFO' node
**=====================================================*/
( SELECT XML_RETURN_BLOCK
FROM LTR_SUB_HIB_COMPANY_INFO_V
WHERE AGENCY_ID = li_agency_id_p),
/*=========================================================
** Add the 'CONTACT INFORMATION' node
**========================================================*/
XMLElement ( "CONTACT_INFORMATION",
( SELECT XML_RETURN_BLOCK
FROM LTR_SUB_CUST_CONTACT_INFO_V
WHERE PAYMENT_PLAN_ID = pay_pln.ID),
( SELECT XML_RETURN_BLOCK
FROM LTR_SUB_HIB_CONTACT_INFO_V
WHERE AGENCY_ID = li_agency_id_p),
( SELECT XML_RETURN_BLOCK
FROM LTR_SUB_BROKER_CONTACT_INFO_V
WHERE PAYMENT_PLAN_ID = pay_pln.ID)
), -- End XMLElement
/*==============================================
** Add the 'PLAN DETAILS' node
**=============================================*/
LTR_SUB_PLAN_INFO_SP
(pay_pln.ID, from_date_p, until_date_p, 'N'),
/*===============================================
** Add the 'POLICY DETAILS' node
**==============================================*/
LTR_SUB_POLICY_INFO_SP
(pay_pln.ID, from_date_p, until_date_p, 'N'),
/*===============================================
** Add the 'BANK DETAILS' node
**==============================================*/
(SELECT XML_RETURN_BLOCK
FROM LTR_SUB_BANK_DETAILS_V
WHERE PAYMENT_PLAN_ID = pay_pln.ID),
/*===============================================
** Add the 'Originator identificatin number' node
**==============================================*/
( SELECT XML_RETURN_BLOCK
FROM LTR_SUB_ORIGINATOR_NUMBER_V),
/*===============================================
** Add the 'Refund Originator number' node
**==============================================*/
( SELECT XML_RETURN_BLOCK
FROM LTR_SUB_REFUND_ORIG_NUM_V),
/*===============================================
** Add the ''BROKER FEES' node
**==============================================*/
LTR_SUB_BROKER_FEES_SP (pay_pln.ID, from_date_p)
).getClobVal() -- End Main XMLElement (return as CLOB)
FROM PAYMENT_PLAN pay_pln
WHERE pay_pln.ID = pay_plan_id_p;
/*=======================================================================
** Handle any exceptions
**=====================================================================*/
EXCEPTION
WHEN NO_DATA_FOUND THEN
SUCCESS := -1;
RETURN;
WHEN OTHERS THEN
SUCCESS := SQLCODE;
RETURN;
END;
/*==========================================================================
** Set the success value
**========================================================================*/
SUCCESS := 0;
END;
This is the sub function which works when called on its own but not cumulatively with everything else:
CREATE OR REPLACE FUNCTION LTR_SUB_PLAN_INFO_SP
IN_PAYMENT_PLAN_ID in INTEGER, -- Payment Plan identifier
IN_FROM_DATE in DATE, -- Lower date range for payment date
IN_UNTIL_DATE in DATE, -- Upper date range for payment date
IN_EXCLUDE_PAID_PAYMENTS in CHAR -- Exclude payments that have already been paid?
RETURN XMLType IS XML_RETURN_BLOCK XMLType;
BEGIN
/*==============================================================================
** Get the payment plan for the supplied ID
**=============================================================================*/
SELECT XMLElement( "PLAN_INFORMATION",
XMLForest ( plan.CUSTOMER_ID AS CRN,
plan.OVERPAYMENT AS OVERPAYMENT_AMT,
                                        KPG_UTILS.NUM_LOANS_BEFORE_MIGRATION(IN_PAYMENT_PLAN_ID) AS NUM_LOANS_B4_MIGRATION
                                        SELECT COUNT(*)
                                        FROM PLAN_INSTAL_CURRENT_ACTIVE_V pinst
                                        WHERE pinst.PAYMENT_PLAN_ID = plan.ID
                                             AND pinst.DUE_DATE >= IN_FROM_DATE
                                             AND pinst.DUE_DATE <= IN_UNTIL_DATE
                                        AND pinst.CODE_TYPE = 'INSTSTATUS'
                                             AND (IN_EXCLUDE_PAID_PAYMENTS = 'N' OR pinst.STATUS_CODE NOT IN ( 'PD', 'SE', 'CP', 'CA', 'WO' )))
                                        AS NUMBER_PLAN_INSTALMENTS,
          ( SELECT TO_CHAR(
                                             ROUND(NVL(SUM(pinst.BROKER_FEE),0),2)      , '9999990.90')
                                        FROM PLAN_INSTAL_CURRENT_ACTIVE_V pinst
                                        WHERE pinst.PAYMENT_PLAN_ID = plan.ID
                                             AND pinst.DUE_DATE >= IN_FROM_DATE
                                             AND pinst.DUE_DATE <= IN_UNTIL_DATE
                                        AND pinst.CODE_TYPE = 'INSTSTATUS'
                                             AND pinst.STATUS_CODE NOT IN ( 'PD', 'SE', 'CP', 'CA', 'WO' )
                                                            ) AS TOTAL_UNPAID_BROKER_FEE
                                        ), --XMLForest
XMLElement ( "INSTALMENTS",
/*==============================================================================
** Get the installments for this payment plan. Select those between the
** the dates specified and excluding paid payments if required. Also, select
** the correct REF_CODE so the description of the status of the payment can be
** added to the output
**=============================================================================*/
( SELECT XMLAGG ( XMLElement ( "INSTALMENT_ROW",
XMLAttributes(LTRIM(TO_CHAR(pinst.DUE_DATE,'ddth fmMonth YYYY'), '0') AS DUE_DATE,
     TRIM(TO_CHAR(ROUND( (pinst.GROSS + pinst.BROKER_FEE) , 2), '9999990.90')) AS AMOUNT,
                                                                                          TRIM(TO_CHAR(ROUND( (pinst.BROKER_FEE) , 2), '9999990.90')) AS BROKER_FEE,
pinst.DESCR AS STATUS,
                                                                                                    pinst.STATUS_CODE AS STATUS_CODE,
                                                                                                    LTRIM(TO_CHAR(pinst.ACTUAL_DATE,'ddth fmMonth YYYY'), '0') AS SINGLE_POLICY_COLLECTION_DATE
) -- End XMLElement
) -- END XMLAGG
                                             FROM PLAN_INSTAL_CURRENT_ACTIVE_V pinst
                                        WHERE pinst.PAYMENT_PLAN_ID = plan.ID
                                             AND pinst.DUE_DATE >= IN_FROM_DATE
                                             AND pinst.DUE_DATE <= IN_UNTIL_DATE
                                        AND pinst.CODE_TYPE = 'INSTSTATUS'
                                             AND (IN_EXCLUDE_PAID_PAYMENTS = 'N' OR pinst.STATUS_CODE NOT IN ( 'PD', 'SE', 'CP', 'CA', 'WO' ))
) -- End SELECT
) -- End XMLElement
) -- End XMLElement
INTO XML_RETURN_BLOCK
FROM PAYMENT_PLAN plan
WHERE plan.ID = IN_PAYMENT_PLAN_ID;
RETURN XML_RETURN_BLOCK;
END;
when more than 4 installment_rows are retrieved; the XML gets corrupted with a weird character appearing in the middle of the 5th row - although the code continues and brings back the results from the LTR_SUB_POLICY_INFO_SP