Want to create XML tag from the query

Question

Here i want to create a xml output from the below code for the given P_repair_number can anyone help me for the code i have written
ORA-06502: PL/SQL: numeric or value error: character to number conversion error
facing the above error when run from concurrent program
Procedure dfdfdf(p_repair_number number,
                          errbuf        OUT VARCHAR2,
                          retcode       OUT NUMBER) as
v_error_code NUMBER; -- error code
  v_error_message VARCHAR2(255); -- error message
  v_text_msg VARCHAR2(100);
cursor Rodetails(p_repair_number IN NUMBER) is
SELECT
  dra.repair_number,
  dra.repair_line_id,
  items.concatenated_segments item_name,
  items.description item_desc,
  dra.inventory_item_id,
  sr.incident_number sr_incident_number,
  decode(dra.customer_product_id, '',dra.serial_number,cp.serial_number) serial_number,
  ltrim(oeh.order_number) rma_number,
  rstl.resource_name ro_owner_name,
  fndl.meaning flow_status_name,
  dra.status ro_status_code,
  drtt.name repair_type_name,
  dra.problem_description,
  dra.promise_date,
  rgtl.group_name repair_org_name,
  decode(dra.customer_product_id, '',dra.item_revision,cp.inventory_revision) revision,
  cp.lot_number,
  dra.unit_of_measure uom_code,
  uom.unit_of_measure_tl uom_name,
  dra.quantity,
  cp.instance_number ib_instance_number,
  plkup.meaning ro_priority_meaning
FROM
  csd_repairs dra,
  csd_repair_types_tl drtt,  
  cs_incidents_all_b sr,
  csi_item_instances cp,
  fnd_lookups fndl, 
  csd_flow_statuses_b fsb,
  mtl_system_items_kfv items,
  mtl_units_of_measure_tl uom,
  jtf_rs_resource_extns_tl rstl,
  jtf_rs_groups_tl rgtl,
  oe_order_headers_all oeh,
  cs_estimate_details edt,
  csd_product_transactions txns,
  fnd_lookups plkup 
WHERE dra.repair_type_id =  drtt.repair_type_id
  AND drtt.language = userenv('LANG')
  AND dra.repair_mode = 'WIP'
  AND dra.incident_id = sr.incident_id
  AND dra.CUSTOMER_PRODUCT_ID = cp.INSTANCE_ID(+)
  AND dra.flow_status_id = fsb.flow_status_id
  AND fsb.flow_status_code = fndl.lookup_code
  AND fndl.lookup_type = 'CSD_REPAIR_FLOW_STATUS'
  AND dra.inventory_item_id = items.inventory_item_id
  AND dra.unit_of_measure = uom.uom_code
  AND uom.language = userenv('LANG')
  AND dra.resource_id = rstl.resource_id (+)
  AND rstl.category (+) = 'EMPLOYEE'
  AND rstl.language (+) = userenv('LANG')
  AND dra.owning_organization_id = rgtl.group_id (+)
  AND rgtl.language (+) = userenv('LANG')
  AND dra.repair_line_id = txns.repair_line_id
  AND txns.estimate_detail_id = edt.estimate_detail_id
  AND edt.order_header_id = oeh.header_id
  AND edt.line_category_code = 'RETURN'
  AND dra.currency_code = oeh.transactional_curr_code
  AND dra.ro_priority_code = plkup.lookup_code(+)
  AND plkup.lookup_type(+) = 'CSD_RO_PRIORITY' 
  AND items.organization_id = cs_std.get_item_valdn_orgzn_id
  AND dra.repair_number=p_repair_number
  AND rownum <50;
begin
errbuf := NULL;
retcode := 0;
  SAVEPOINT Create_external_orders;
  --retcode             := FND_API.G_RET_STS_SUCCESS;
  IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
    fnd_log.STRING (fnd_log.level_procedure, 'CSD.PLSQL.XXTNT_CSD_CREATEORDER.SUBMIT_CREATE_ORDER.BEGIN', 'Enter - PrintTraveller');
  END IF;
--FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<?xml version="1.0"?>');
--FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REPAIR_ORDER>');
FOR v_rodetails IN Rodetails(p_repair_number)
LOOP
/*For each record create a group tag <G_RODETAILS> at the start*/
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<?xml version="1.0"?>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REPAIR_ORDER>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<G_RODETAILS>');
  FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REPAIR_NUMBER>' || v_rodetails.repair_number ||
                                   '</REPAIR_NUMBER>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REPAIR_LINE_ID>' || v_rodetails.repair_line_id
                                || '</REPAIR_LINE_ID>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<ITEM_NAME>' || v_rodetails.ITEM_NAME
                                 ||'</ITEM_NAME>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<ITEM_DESC>' || v_rodetails.ITEM_DESC
                                || '</ITEM_DESC>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<SR_INCIDENT_NUMBER>' || v_rodetails.SR_INCIDENT_NUMBER ||
                                   '</SR_INCIDENT_NUMBER>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<SERIAL_NUMBER>' ||v_rodetails.SERIAL_NUMBER
                                 ||'</SERIAL_NUMBER>');                               
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<RMA_NUMBER>' || v_rodetails.RMA_NUMBER
                                || '</RMA_NUMBER>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<RO_OWNER_NAME>' ||v_rodetails.RO_OWNER_NAME ||
                                   '</RO_OWNER_NAME>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<FLOW_STATUS_NAME>' || v_rodetails.FLOW_STATUS_NAME
                                 ||'</FLOW_STATUS_NAME>');                                
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<RO_STATUS_CODE>' || v_rodetails.RO_STATUS_CODE
                                || '</RO_STATUS_CODE>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REPAIR_TYPE_NAME>' || v_rodetails.REPAIR_TYPE_NAME ||
                                   '</REPAIR_TYPE_NAME>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<PROBLEM_DESCRIPTION>' || v_rodetails.PROBLEM_DESCRIPTION
                                 ||'</PROBLEM_DESCRIPTION>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<PROMISE_DATE>' || v_rodetails.PROMISE_DATE
                                || '</PROMISE_DATE>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<RO_OWNER_NAME>' || v_rodetails.RO_OWNER_NAME ||
                                   '</RO_OWNER_NAME>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REPAIR_ORG_NAME>' || v_rodetails.REPAIR_ORG_NAME
                                 ||'</REPAIR_ORG_NAME>');                                
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<RO_STATUS_CODE>' || v_rodetails.RO_STATUS_CODE
                                || '</RO_STATUS_CODE>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<REVISION>' || v_rodetails.REVISION ||
                                   '</REVISION>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<LOT_NUMBER>' || v_rodetails.LOT_NUMBER
                                 ||'</LOT_NUMBER>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<UOM_CODE>' || v_rodetails.UOM_CODE
                                || '</UOM_CODE>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<UOM_NAME>' ||v_rodetails.UOM_NAME ||
                                   '</UOM_NAME>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<QUANTITY>' || v_rodetails.QUANTITY
                                 ||'</QUANTITY>');                                
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<IB_INSTANCE_NUMBER>' || v_rodetails.IB_INSTANCE_NUMBER
                                || '</IB_INSTANCE_NUMBER>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'<RO_PRIORITY_MEANING>' || v_rodetails.RO_PRIORITY_MEANING ||
                                   '</RO_PRIORITY_MEANING>');
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'</G_RODETAILS>');                             
FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'</REPAIR_ORDER>');                                
END LOOP;
IF(retcode != FND_API.G_RET_STS_SUCCESS) THEN
                RAISE FND_API.G_EXC_ERROR;
              END IF;
              IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
                fnd_log.STRING (fnd_log.level_statement, 'CSD.PLSQL.XXTNT_CSD_CREATEORDER.SUBMIT_CREATE_ORDER', ' In PrintTraveller');
              END IF;
fnd_file.put_line(fnd_file.log, 'Successfully completed PrintTraveller');
EXCEPTION
|| Catch all error.
WHEN OTHERS THEN
ROLLBACK;
v_error_code := SQLCODE;
v_text_msg := 'Fatal Error, Oracle Error is: '
|| TO_CHAR (v_error_code, '99999');
fnd_file.put_line (fnd_file.log, v_text_msg);
v_error_message := SQLERRM;
fnd_file.put_line (fnd_file.log, v_error_message);   
end dfdfdf;Edited by: user12053530 on Apr 19, 2010 5:54 AM

Answer 1

However using SYS.ODCIVARCHAR2LIST makes sense if your query is a part of bigger processing (PL/SQL procedure or function) and you will do some processing depending on File_Type, like in this example (not compiled, could contain syntax errors):
DECLARE
  l_stid           VARCHAR2(10);
  l_address        VARCHAR2(30);
  l_File_Type_tab  SYS.ODCIVARCHAR2LIST;
  cur_cursor IS SELECT STID,
                ADDRESS,
                CAST(COLLECT(DISTINCT File_Type) AS SYS.ODCIVARCHAR2LIST) AS File_Type
                FROM (
                      SELECT STID,
                             ADDRESS,
                             File_Type
                        FROM DUMMY
                GROUP BY STID, ADDRESS;
BEGIN
  OPEN cur_cursor;
  <<main_loop>>
  WHILE (1=1) LOOP
     FETCH cur_cursor INTO l_stid, l_address, l_File_Type_tab;
     EXIT WHEN cur_cursor%NOTFOUND;
     -- Now do processing for each File_Type in l_File_Type_tab;
     <<each_file_type>>
     FOR i IN l_File_Type_tab.FIRST .. l_File_Type_tab.LAST LOOP
       -- for example:
       -- IF l_File_Type_tab(i) = 'SALES'
       -- THEN
       --   do_something(l_stid, l_address);
       -- ELSIF l_File_Type_tab(i) = 'TRANSFER'
       -- THEN
       --   do_something_else(l_stid, l_address);
       -- ELSE
       --   do_something_default(l_stid, l_address);
       -- END IF;
     END LOOP each_file_type;
  END LOOP main_loop;
  CLOSE cur_cursor;
END;