Stored procedure, returning array output

Question

i am new to oracle and stored procedure and i have tried to do this but, still no luck, can anyone help me out?
my stored procedure & package is as follows;
create or replace package prebooking
is
    type tr_contract_data
    is
        record (
                custcode  customer_all.custcode%TYPE        ,
                des       rateplan.des%TYPE                 ,
                dn_num    directory_number.dn_num%TYPE      ,
                cd_sm_num contr_devices.cd_sm_num%TYPE
    type tt_contract_data
    is
        table of tr_contract_data
        index by binary_integer;
    procedure customer_data (
                                pc_custcode             in  customer_all.custcode%TYPE,
                                pc_customer_name        out varchar2                  ,
                                pc_customer_address_1   out varchar2                  ,
                                pc_customer_address_2   out varchar2                  ,
                                pc_user_lastmod         out varchar2
    procedure contract_data (
                                pc_custcode             in  customer_all.custcode%TYPE,
                                pt_contract_data        out tt_contract_data
end prebooking;
drop public synonym prebooking;
create public synonym prebooking for prebooking;
grant execute on prebooking to wpa;
-- EOF: PREBOOKING.plh
create or replace package body prebooking
is
    procedure customer_data (
                                pc_custcode             in  customer_all.custcode%TYPE,
                                pc_customer_name        out varchar2                  ,
                                pc_customer_address_1   out varchar2                  ,
                                pc_customer_address_2   out varchar2                  ,
                                pc_user_lastmod         out varchar2
    is
        cursor c_customer_data ( pc_custcode customer_all.custcode%TYPE )
        is
            select ccline1  || ' ' || ccfname || ' ' || cclname         customer_name,
                   ccstreet || ' ' || ccaddr2 || ' '     || ccaddr3 ||
                               ' ' || cccity  || ' zip ' || cczip   ||
                               ' ' || ccline4                           customer_address_1,
                   ccstate  || ' ' || ccline6                           customer_address_2,
                   b.user_lastmod                                       user_lastmod
            from ccontact_all a,
                 customer_all b
            where b.customer_id = a.customer_id
              and a.ccbill = 'X'
              and b.custcode = pc_custcode;
    begin
        open c_customer_data ( pc_custcode );
        fetch c_customer_data into pc_customer_name     ,
                                   pc_customer_address_1,
                                   pc_customer_address_2,
                                   pc_user_lastmod      ;
        close c_customer_data;
    end customer_data;
    procedure contract_data (
                                pc_custcode             in  customer_all.custcode%TYPE,
                                pt_contract_data        out tt_contract_data
    is
        cursor c_contract_date ( pc_custcode customer_all.custcode%TYPE )
        is
            select h.custcode,
                   g.des,
                   e.dn_num,
                   d.cd_sm_num
            from curr_co_status      a,
                 contract_all        b,
                 contr_services_cap  c,
                 contr_devices       d,
                 directory_number    e,
                 rateplan            g,
                 customer_all        h
            where h.customer_id = b.customer_id
              and b.co_id = a.co_id
              and b.co_id = c.co_id
              and b.co_id = d.co_id
              and c.dn_id = e.dn_id
              and b.tmcode = g.tmcode
              and c.cs_deactiv_date is null
              and h.custcode = pc_custcode;
    begin
        for c in c_contract_date ( pc_custcode )
        loop
            pt_contract_data (nvl (pt_contract_data.last, -1) + 1).custcode  := c.custcode ;
            pt_contract_data (     pt_contract_data.last         ).des       := c.des      ;
            pt_contract_data (     pt_contract_data.last         ).dn_num    := c.dn_num   ;
            pt_contract_data (     pt_contract_data.last         ).cd_sm_num := c.cd_sm_num;
        end loop;
    end contract_data;
end prebooking;
-- EOF: PREBOOKING.plhand i am using the following php code to do this
<?php
  $conn=OCILogon("USER", "USER", "DB");
  if ( ! $conn ) {
     echo "Unable to connect: " . var_dump( OCIError() );
     die();
  $collection_name = 1.1;     
  $stmt = OCIParse($conn,"begin PREBOOKING.CONTRACT_DATA(:INN, :OUTT); end;");
  OCIBindByName($stmt, ":INN", $collection_name, 200);
  //OCIBindByName($stmt, ":", $collection_desc, 100);
  $blobdesc = OCINewDescriptor($conn, OCI_D_LOB);
  OCIBindByName($stmt, ":OUTT", $blobdesc, -1, OCI_B_BLOB);
  $blobdesc->WriteTemporary($binary_junk, OCI_B_BLOB);
  OCIExecute($stmt);
  OCILogoff($conn);
?>the error i get when i run this code is;
Warning: OCI-Lob::writetemporary() [function.writetemporary]: Cannot save a lob that is less than 1 byte in C:\apachefriends\xampp\htdocs\POSP\oci53.php on line 18
Fatal error: Call to undefined function OCIDefineArrayOfStruct() in C:\apachefriends\xampp\htdocs\POSP\oci53.php on line 19

Answer 1

Hi Varun,
To combine the first xml-formatted column to one XML, If you want to do that in SQL server, you can reference the below sample.
CREATE PROC proc1 -- the procedure returning the resultset with 3 columns
AS
DECLARE @XML1 VARCHAR(MAX),
@XML2 VARCHAR(MAX),
@XML3 VARCHAR(MAX);
SET @XML1='<person><name>Eric</name></person>'
SET @XML2='<book><name>war and peace</name></book>'
SET @XML3='<product><name>product1</name></product>'
SELECT @XML1 AS col1,1 AS col2,2 AS col3
UNION ALL
SELECT @XML2,2,3
UNION ALL
SELECT @XML3,2,3
GO
CREATE PROC proc2
AS
DECLARE @TbL TABLE(id INT IDENTITY, col1 VARCHAR(MAX),col2 INT,col3 INT)
INSERT INTO @TbL EXEC proc1
SELECT id as '@row' ,cast(col1 as xml) FROM @TbL FOR XML PATH('XML'),TYPE
GO
EXEC proc2
DROP PROC proc1,proc2
/*output
<XML row="1">
<person>
<name>Eric</name>
</person>
</XML>
<XML row="2">
<book>
<name>war and peace</name>
</book>
</XML>
<XML row="3">
<product>
<name>product1</name>
</product>
</XML>
If you have any question, feel free to let me know.
Eric Zhang
TechNet Community Support