Use UNION / Append in PL/SQL

Question

Hello,
I am using Oracle 11g R2 SOE. I have this procedure, and I would like to *"UNION" its* Select Statement with another Select Statement:
declare
  v_xml clob;
  v_retval clob := '<?xml version="1.0" encoding="iso-8859-1"?>';
  v_blob blob;
begin
select
       xmlelement(
         "LISTINGS",
         xmlagg(
           xmlelement(
             "LISTING",
             xmlforest(
'RS-'||R."RES_ID" as "Property_Ref_No",
"UNIT_TYPE_LOOKUP"."UNIT_TYPE" as "Unit_Type",
'Sale' as "Ad_Type",
'Dubai' as "State",
L.LOCATION_NAME_EN AS "Community",
"PROJECTS"."PROJECT_NAME_EN" as "Property_Name",
"RES_SALE"."ASKING_PRICE" as "Price",
' ' as "Frequency",
ST."SUB_TYPE" as "Unit_Model",
R."RES_SIZE" as "Unit_Builtup_Area",
R.BEDS as "Bedrooms",
R.bath as "No_of_Bathrooms",
"RES_SALE"."AD_TITLE" as "Property_Title",
RES_SALE.DESCRIPTION as "Web_Remarks",
to_char("RES_SALE"."UPDATED_ON",'YYYY-MM-DD HH:MI:SSPM') as "Last_Updated",
R.VIDEO as "Web_Tour",
select xmlagg(
                             xmlforest(
                            'http://thevillaproject.com/apex/erp/IMAGES/'||IMG.ID AS "ImageUrl"
FROM      
      IMAGES IMG     
WHERE IMG.RES_ID = R.RES_ID ) Images )))).getclobval()
  into      v_xml
  FROM
      "RES_SALE" "RES_SALE"
inner join
      RES R on (R."RES_ID"="RES_SALE"."RES_ID")
inner join
          "UNIT_STATUS_LOOKUP" on (UNIT_STATUS_LOOKUP.status_id = "RES_SALE"."RES_STATUS")
inner join
      "PROJECTS" "PROJECTS" on ("PROJECTS"."PROJECT_ID"=R."PROJECT_ID")
inner join
      "UNIT_TYPE_LOOKUP" "UNIT_TYPE_LOOKUP" on ("UNIT_TYPE_LOOKUP"."TYPE_ID"=R."RES_TYPE")
inner join
      "RES_SUB_TYPE_LOOKUP" ST on (ST."SUB_TYPE_ID"=R."SUB_TYPE")
INNER JOIN
      COMPLEX_LOOKUP CL ON (CL.COMPLEX_ID = "PROJECTS".COMPLEX_ID)
INNER JOIN
      LOCATIONS L ON (L.LOCATION_ID = CL.LOCATION_ID)
WHERE  "RES_SALE".RES_status IN (5,8) AND "RES_SALE".LIVE = 'Y' AND "RES_SALE".DESCRIPTION IS NOT NULL
  dbms_lob.append(v_retval,v_xml);
  OWA_UTIL.Mime_Header('text/xml'); 
  htp.p('Content-length: ' || to_char(dbms_lob.getlength(v_retval)));
  htp.p('Content-Disposition:  inline; filename="Just.xml"');
  owa_util.http_header_close;
  v_blob := wwv_flow_utilities.clob_to_blob(v_retval);
  wpg_docload.download_file(v_blob);
end; h1. Select Statement that is needed to be "UNION-ED" with the Select Statement of the previous procedure:
select
       xmlelement(
         "LISTINGS",
         xmlagg(
           xmlelement(
             "LISTING",
             xmlforest(
'RR-'||R."RES_ID" as "Property_Ref_No",
"UNIT_TYPE_LOOKUP"."UNIT_TYPE" as "Unit_Type",
'Rent' as "Ad_Type",
'Dubai' as "State",
L.LOCATION_NAME_EN AS "Community",
"PROJECTS"."PROJECT_NAME_EN" as "Property_Name",
"RES_RENT"."ASKING_PRICE" as "Price",
' ' as "Frequency",
ST."SUB_TYPE" as "Unit_Model",
R."RES_SIZE" as "Unit_Builtup_Area",
R.BEDS as "Bedrooms",
R.bath as "No_of_Bathrooms",
"RES_RENT"."AD_TITLE" as "Property_Title",
"RES_RENT".DESCRIPTION as "Web_Remarks",
to_char("RES_RENT"."UPDATED_ON",'YYYY-MM-DD HH:MI:SSPM') as "Last_Updated",
R.VIDEO as "Web_Tour",
select xmlagg(
                             xmlforest(
                            'http://thevillaproject.com/apex/erp/IMAGES/'||IMG.ID AS "ImageUrl"
FROM      
      IMAGES IMG     
WHERE IMG.RES_ID = R.RES_ID ) Images ))))
FROM
      "RES_RENT" "RES_RENT"
inner join
      RES R on (R."RES_ID"="RES_RENT"."RES_ID")
inner join
          "UNIT_STATUS_LOOKUP" on (UNIT_STATUS_LOOKUP.status_id = "RES_RENT"."RES_STATUS")
inner join
      "PROJECTS" "PROJECTS" on ("PROJECTS"."PROJECT_ID"=R."PROJECT_ID")
inner join
      "UNIT_TYPE_LOOKUP" "UNIT_TYPE_LOOKUP" on ("UNIT_TYPE_LOOKUP"."TYPE_ID"=R."RES_TYPE")
inner join
      "RES_SUB_TYPE_LOOKUP" ST on (ST."SUB_TYPE_ID"=R."SUB_TYPE")
INNER JOIN
      COMPLEX_LOOKUP CL ON (CL.COMPLEX_ID = "PROJECTS".COMPLEX_ID)
INNER JOIN
      LOCATIONS L ON (L.LOCATION_ID = CL.LOCATION_ID)
WHERE  "RES_RENT".RES_status IN (5,8) AND "RES_RENT".LIVE = 'Y' AND "RES_RENT".DESCRIPTION IS NOT NULL

Answer 1

Hello Fateh,
you can union both selects and then get the XML from the subquery.
SELECT  XMLELEMENT(
             "LISTINGS"
            ,XMLAGG(
                 XMLELEMENT(
                     "LISTING"
                    ,XMLFOREST(
                         rr_and_rs.ref_no AS "Property_Ref_No"
                        ,rr_and_rs."UNIT_TYPE" AS "Unit_Type"
                        ,'Sale' AS "Ad_Type"
                        ,'Dubai' AS "State"
                        ,rr_and_rs..location_name_en AS "Community"
                        ,rr_and_rs."PROJECT_NAME_EN" AS "Property_Name"
                        ,rr_and_rs."ASKING_PRICE" AS "Price"
                        ,' ' AS "Frequency"
                        ,rr_and_rs."SUB_TYPE" AS "Unit_Model"
                        ,rr_and_rs."RES_SIZE" AS "Unit_Builtup_Area"
                        ,rr_and_rs.beds AS "Bedrooms"
                        ,rr_and_rs.bath AS "No_of_Bathrooms"
                        ,rr_and_rs."AD_TITLE" AS "Property_Title"
                        ,rr_and_rs.description AS "Web_Remarks"
                        ,TO_CHAR(rr_and_rs."UPDATED_ON",'YYYY-MM-DD HH:MI:SSPM') AS "Last_Updated"
                        ,rr_and_rs.video AS "Web_Tour"
                        ,(  SELECT  XMLAGG(
                                         XMLFOREST(
                                             'http://thevillaproject.com/apex/erp/IMAGES/'||img.id AS "ImageUrl"
                            FROM    images img
                            WHERE   img.res_id = rr_and_rs.res_id
                            ) Images
            ).getClobVal()
INTO    v_xml
FROM    (
    SELECT  'RR-'||r."RES_ID" AS ref_no
           ,"UNIT_TYPE_LOOKUP"."UNIT_TYPE"
           ,"RES_RENT"."ASKING_PRICE" AS price
    FROM    "RES_RENT" "RES_RENT"
            INNER JOIN res r
              ON (r."RES_ID"="RES_RENT"."RES_ID")
            INNER JOIN "UNIT_STATUS_LOOKUP"
              ON (unit_status_lookup.status_id = "RES_RENT"."RES_STATUS")
            INNER JOIN "PROJECTS" "PROJECTS"
              ON ("PROJECTS"."PROJECT_ID"=r."PROJECT_ID")
            INNER JOIN "UNIT_TYPE_LOOKUP" "UNIT_TYPE_LOOKUP"
              ON ("UNIT_TYPE_LOOKUP"."TYPE_ID"=r."RES_TYPE")
            INNER JOIN "RES_SUB_TYPE_LOOKUP" st
              ON (st."SUB_TYPE_ID"=r."SUB_TYPE")
            INNER JOIN complex_lookup cl
              ON (cl.complex_id = "PROJECTS".complex_id)
            INNER JOIN locations l
              ON (l.location_id = cl.location_id)
    WHERE   "RES_RENT".res_status    IN (5,8)
    AND     "RES_RENT".live         = 'Y'
    AND     "RES_RENT".description IS NOT NULL
    UNION ALL
    SELECT  'RS-'||r."RES_ID" AS ref_no
           ,"UNIT_TYPE_LOOKUP"."UNIT_TYPE"
           ,"RES_SALE"."ASKING_PRICE" AS price
    FROM    "RES_SALE" "RES_SALE"
            INNER JOIN res r
              ON (r."RES_ID"="RES_SALE"."RES_ID")
            INNER JOIN "UNIT_STATUS_LOOKUP"
              ON (unit_status_lookup.status_id = "RES_SALE"."RES_STATUS")
            INNER JOIN "PROJECTS" "PROJECTS"
              ON ("PROJECTS"."PROJECT_ID"=r."PROJECT_ID")
            INNER JOIN "UNIT_TYPE_LOOKUP" "UNIT_TYPE_LOOKUP"
              ON ("UNIT_TYPE_LOOKUP"."TYPE_ID"=r."RES_TYPE")
            INNER JOIN "RES_SUB_TYPE_LOOKUP" st
              ON (st."SUB_TYPE_ID"=r."SUB_TYPE")
            INNER JOIN complex_lookup cl
              ON (cl.complex_id = "PROJECTS".complex_id)
            INNER JOIN locations l
              ON (l.location_id = cl.location_id)
    WHERE   "RES_SALE".res_status    IN (5,8)
    AND     "RES_SALE".live         = 'Y'
    AND     "RES_SALE".description IS NOT NULL
    ) rr_and_rsUntested.
When you want to keep two distinct selects (e.g. for easier maintainance), then have a look at INSERTCHILDXML. There you can add elements to an existing XML. http://docs.oracle.com/cd/E11882_01/appdev.112/e23094/xdb04cre.htm#ADXDB4289
Regards
Marcus
BTW: Your mix of cases and case sensitive vs. case insensitive notation makes the code harder to read than necessary
R.bath
R.BEDS
ST."SUB_TYPE"
"RES_SALE"."ASKING_PRICE"Edited by: Marwim on 17.12.2012 13:15