11 Replies Latest reply: Mar 18, 2013 8:37 AM by 936328 RSS

    How to use ab ObjectType for holding the values in a store procedure

    936328
      Hi,

      I am using oracle 10g and oracle sql developer as UI. I have an object Type created like this.

      create or replace
      TYPE T_T_PARTY_REQUEST_IDENTIFIER
      AS TABLE OF T_O_PARTY_REQUEST_IDENTIFIER;

      create or replace
      TYPE T_O_PARTY_REQUEST_IDENTIFIER
      AS OBJECT
      (
      REQUEST_IDENTIFER NUMBER(13, 0)
      )

      I want to use this in store procedure. so i have defined a variable like this and

      V_T_T_PARTY_REQUEST_IDENTIFIER T_T_PARTY_REQUEST_IDENTIFIER := T_T_PARTY_REQUEST_IDENTIFIER(null);

      tried to insert value

      SELECT pr.PRTY_RQST_ID INTO V_T_T_PARTY_REQUEST_IDENTIFIER
      FROM prty_rqst pr
      I am getting following error.

      Procedure CTH_USER.RETRIEVE_PARTY_REQUEST@CTH_ME
      Error(183,9): PL/SQL: SQL Statement ignored
      Error(183,16): PL/SQL: ORA-00932: inconsistent datatypes: expected UDT got NUMBER

      Can some one help me on this. I have very little knowledge on PL/sql .

      Thank you in advance

      vijayakumar Bolisetti
        • 1. Re: How to use ab ObjectType for holding the values in a store procedure
          Most Wanted!!!!
          Examples
          CREATE OR REPLACE TYPE t_o_party_request_identifier AS OBJECT (
             request_identifer   NUMBER (13, 0)
          );
          
          CREATE OR REPLACE TYPE t_t_party_request_identifier AS TABLE OF t_o_party_request_identifier;
          
          
          
          DECLARE
             lv_t_party   t_t_party_request_identifier
                                                 := NEW t_t_party_request_identifier
                                                                                    ();
             lv_o_party   t_o_party_request_identifier
                                             := NEW t_o_party_request_identifier (NULL);
          BEGIN
             lv_t_party.EXTEND (1);
          
             BEGIN
                SELECT a
                  INTO lv_o_party.request_identifer
                  FROM (SELECT 1 AS a
                          FROM DUAL);
             END;
          
             lv_t_party (1) := lv_o_party;
          END;
          
          (OR)
           
          DECLARE
             lv_t_party   t_t_party_request_identifier
                                                 := NEW t_t_party_request_identifier
                                                                                    ();
             lv_o_party   t_o_party_request_identifier
                                             := NEW t_o_party_request_identifier (NULL);
             q_l          NUMBER;
          BEGIN
             BEGIN
                SELECT a
                  INTO q_l
                  FROM (SELECT 1 AS a
                          FROM DUAL);
             END;
          
             lv_t_party.EXTEND (1);
             lv_o_party.request_identifer := q_l;
             lv_t_party (1) := lv_o_party;
          END;
          
          (OR)
          
          
          DECLARE
             lv_t_party   t_t_party_request_identifier
                                                 := NEW t_t_party_request_identifier
                                                                                    ();
             lv_o_party   t_o_party_request_identifier
                                             := NEW t_o_party_request_identifier (NULL);
             q_l          NUMBER;
          BEGIN
             lv_t_party.EXTEND (1);
             lv_o_party.request_identifer := 1;
             lv_t_party (1) := lv_o_party;
          END;
          regards,
          friend


          ---sorry mistake made now corrected
          lv_t_party.EXTEND (1);
          lv_o_party.request_identifer := 1;   --t corrected to o (declaring object)
          lv_t_party (1) := lv_o_party
          Edited by: most wanted!!!! on Mar 18, 2013 1:54 AM
          • 2. Re: How to use ab ObjectType for holding the values in a store procedure
            Nitesh.
            First of all Post your procedure ...

            Try in this correct way :

            declare
            V_T_T_PARTY_REQUEST_IDENTIFIER T_T_PARTY_REQUEST_IDENTIFIER := NEW T_T_PARTY_REQUEST_IDENTIFIER();
            V_O_T_PARTY_REQUEST_IDENTIFIER T_O_PARTY_REQUEST_IDENTIFIER := NEW T_O_PARTY_REQUEST_IDENTIFIER(NULL);
            begin
            --call your procedure here and your queries;
            end;


            Post your procedure so that can suggest more clearly ..
            • 3. Re: How to use ab ObjectType for holding the values in a store procedure
              936328
              Thank you,

              I have tried ur 2 condition i am getting an exception

              Error(228,9): PL/SQL: Statement ignored
              Error(228,20): PLS-00302: component 'REQUEST_IDENTIFER' must be declared

              This is column name in the type object.

              My aim is to capture the all column values from table to this object type, so that i can pass this as input for fetching the records from other tables.
              • 4. Re: How to use ab ObjectType for holding the values in a store procedure
                936328
                Hi,

                This is very lengthy that's the reason i have not posted it. is there any i can insert file here. for now i will insert here plz don't mind reading it.

                create or replace
                PROCEDURE RETRIEVE_PARTY_REQUEST (
                i_t_t_party_request_identifer IN T_T_PARTY_REQUEST_IDENTIFIER,
                i_t_t_orchestration_id IN T_T_ORCHESTRATION_ID,
                i_t_t_party_request_criteria IN T_T_PARTY_REQUEST_CRITERIA,
                o_party_request_rc OUT SYS_REFCURSOR,
                o_party_identifier_rc OUT SYS_REFCURSOR,
                o_addtn_identifier_rc OUT SYS_REFCURSOR,
                o_err_cde OUT NUMBER,
                o_err_msg OUT VARCHAR2)
                IS
                V_PARTY_IDENTIFER_COUNT NUMBER := 0;
                V_ORCHESTRATION_ID_COUNT NUMBER := 0;
                V_PARTY_REQUEST_CRITERIA_COUNT NUMBER := 0;
                V_INPUT_COUNT NUMBER := 0;
                V_INPUT_COUNT1 number := 0;
                CURSOR_PARTYIDENTIFIER_ID SYS_REFCURSOR;
                I_PRTY_RQST_ID VARCHAR2(9);

                V_T_T_PARTY_REQUEST_IDENTIFIER T_T_PARTY_REQUEST_IDENTIFIER := T_T_PARTY_REQUEST_IDENTIFIER(NULL);
                V_REQUEST_IDENTIFER T_T_PARTY_REQUEST_IDENTIFIER;

                lv_t_party t_t_party_request_identifier := NEW t_t_party_request_identifier();
                LV_O_PARTY T_O_PARTY_REQUEST_IDENTIFIER := NEW T_O_PARTY_REQUEST_IDENTIFIER (NULL);

                NO_INPUT_AVAILABLE EXCEPTION;
                INVALID_INPUT EXCEPTION;
                BEGIN

                SELECT DECODE(COUNT(1), 0, 0, 1) INTO V_PARTY_IDENTIFER_COUNT
                FROM TABLE(CAST(i_t_t_party_request_identifer AS T_T_PARTY_REQUEST_IDENTIFIER));

                SELECT DECODE(COUNT(1), 0, 0, 1) INTO V_ORCHESTRATION_ID_COUNT
                FROM TABLE(CAST(i_t_t_orchestration_id AS T_T_ORCHESTRATION_ID));

                SELECT DECODE(COUNT(1), 0, 0, 1) INTO V_PARTY_REQUEST_CRITERIA_COUNT
                FROM TABLE(CAST(i_t_t_party_request_criteria AS T_T_PARTY_REQUEST_CRITERIA));

                V_INPUT_COUNT := V_PARTY_IDENTIFER_COUNT + V_ORCHESTRATION_ID_COUNT + V_PARTY_REQUEST_CRITERIA_COUNT;

                DBMS_OUTPUT.PUT_LINE(V_ORCHESTRATION_ID_COUNT);
                DBMS_OUTPUT.PUT_LINE(V_PARTY_IDENTIFER_COUNT);
                DBMS_OUTPUT.PUT_LINE(V_PARTY_REQUEST_CRITERIA_COUNT);
                DBMS_OUTPUT.PUT_LINE(V_INPUT_COUNT);

                -- VALIDATE IF ATLEAST ONE INPUT IS PROVIDED
                IF V_INPUT_COUNT = 0 THEN
                RAISE NO_INPUT_AVAILABLE;
                END IF;

                -- VALIDATE IF MORE THAN ONE INPUT IS PROVIDED
                IF V_INPUT_COUNT > 1 THEN
                RAISE INVALID_INPUT;
                END IF;

                IF V_PARTY_REQUEST_CRITERIA_COUNT = 1 THEN

                -- RETRIEVE PARTY REQUEST BY SEARCH CRITERIA(S)

                SELECT pr.PRTY_RQST_ID INTO V_INPUT_COUNT1
                FROM prty_rqst pr,
                busn_applc biap,
                intn_proces_stats inprst,
                intn_stats insts,
                intn_proces_typ intpty,
                allw_chnl alwchl,
                chnl chnl,
                rqst_typ rqstyp,
                RQST_PAYLOAD RQPYLD,
                RQST_TRC RQTRC,
                ADDTN_RQST_INFO ADTINF,
                ADDTN_INFO_KEY_TYP ADDKEY,
                PRTY_KEY PRTKEY,
                PRTY_KEY_TYP prkytp,
                TABLE(CAST(I_T_T_PARTY_REQUEST_CRITERIA AS T_T_PARTY_REQUEST_CRITERIA)) ITTPRC
                -- here i need to capture the values for partyKey and additiona Identifers also case condition for if null value is passed in partyrequestCtirertia
                WHERE BIAP.BUSN_APPLC_ID = PR.BUSN_APPLC_ID
                AND BIAP.BUSN_APPLC_NM = ITTPRC.SYSTEM_IDENTIFER
                AND INPRST.INTN_STATS_ID = PR.INTN_STATS_ID
                AND insts.intn_stats_id = pr.intn_stats_id AND (INSTS.INTN_STATS_NM = ITTPRC.STATUS or ITTPRC.STATUS is null)
                AND INPRST.INTN_STATS_ID = INSTS.INTN_STATS_ID
                AND intpty.intn_proces_typ_id = inprst.intn_proces_typ_id AND INTPTY.INTN_PROCES_TYP_NM = ITTPRC.PROCESS_TYPE
                AND pr.intn_proces_typ_id= intpty.intn_proces_typ_id
                AND alwchl.allw_chnl_id = pr.allw_chnl_id
                AND alwchl.intn_proces_typ_id = intpty.intn_proces_typ_id
                AND CHNL.CHNL_ID = ALWCHL.CHNL_ID
                AND rqstyp.rqst_typ_id = pr.rqst_typ_id AND RQSTYP.RQST_TYP_NM = ITTPRC.REQUEST_TYPE AND RQSTYP.RQST_CLASS_NM = ITTPRC.REQUEST_TYPE_CLASS_NAME
                AND rqpyld.prty_rqst_id = pr.prty_rqst_id
                AND RQTRC.PRTY_RQST_ID = PR.PRTY_RQST_ID
                AND PR.UPDT_BY = ITTPRC.UPDATED_BY
                AND ADTINF.PRTY_RQST_ID = PR.PRTY_RQST_ID
                AND ADTINF.ADDTN_INFO_KEY_TYP_ID = ADDKEY.ADDTN_INFO_KEY_TYP_ID
                AND PRTKEY.PRTY_RQST_ID = PR.PRTY_RQST_ID
                AND PRTKEY.PRTY_KEY_TYP_ID = PRKYTP.PRTY_KEY_TYP_ID
                AND PR.TRACK_RQST_IND = ITTPRC.TRACKING_REQUEST_INDICATOR
                AND PR.CHLD_RQST_IND = ITTPRC.CHILD_REQUEST_INDICATOR

                ORDER BY PR.PRTY_RQST_ID ASC ;

                lv_t_party.EXTEND (1);
                LV_T_PARTY.REQUEST_IDENTIFER := V_INPUT_COUNT1;
                lv_t_party (1) := lv_o_party;

                OPEN o_party_request_rc FOR
                SELECT
                BIAP.BUSN_APPLC_NM,INTPTY.INTN_PROCES_TYP_NM,PR.UPDT_BY,
                INSTS.INTN_STATS_NM,CHNL.CHNL_NM,RQSTYP.RQST_TYP_NM,PR.TRACK_RQST_IND,
                PR.SUBMIT_DT_TM,PR.EFFECTIVE_DT,PR.ORCHESTRATION_ID,PR.PRTY_RQST_ID,
                PR.PARNT_PRTY_RQST_ID,PR.RQST_CREATE_DT_TM,
                RQTRC.TRC_APPLC_NM,RQTRC.TRC_CD,RQTRC.TRC_MSG,RQPYLD.RQST_FRMT_NM,RQPYLD.RQST_FRMT_VERS,RQPYLD.RQST_INFO
                FROM PRTY_RQST PR
                JOIN BUSN_APPLC BIAP ON BIAP.BUSN_APPLC_ID = PR.BUSN_APPLC_ID
                JOIN INTN_PROCES_STATS INPRST ON INPRST.INTN_STATS_ID = PR.INTN_STATS_ID
                JOIN INTN_STATS INSTS ON INSTS.INTN_STATS_ID = PR.INTN_STATS_ID AND INPRST.INTN_STATS_ID = INSTS.INTN_STATS_ID
                JOIN INTN_PROCES_TYP INTPTY ON INTPTY.INTN_PROCES_TYP_ID = INPRST.INTN_PROCES_TYP_ID AND PR.INTN_PROCES_TYP_ID= INTPTY.INTN_PROCES_TYP_ID
                JOIN ALLW_CHNL ALWCHL ON ALWCHL.ALLW_CHNL_ID = PR.ALLW_CHNL_ID
                JOIN CHNL CHNL ON CHNL.CHNL_ID = ALWCHL.CHNL_ID
                JOIN RQST_TYP RQSTYP ON RQSTYP.RQST_TYP_ID = PR.RQST_TYP_ID
                JOIN RQST_PAYLOAD RQPYLD ON RQPYLD.PRTY_RQST_ID = PR.PRTY_RQST_ID
                JOIN RQST_TRC RQTRC ON RQTRC.PRTY_RQST_ID = PR.PRTY_RQST_ID
                WHERE
                PR.PRTY_RQST_ID =I_PRTY_RQST_ID ORDER BY PR.PRTY_RQST_ID ASC;


                OPEN O_PARTY_IDENTIFIER_RC FOR
                SELECT prkytp.prty_key_typ_nm,prtkey.prty_typ_val
                FROM prty_key prtkey,
                prty_key_typ prkytp
                WHERE prtkey.prty_key_typ_id = prkytp.prty_key_typ_id
                AND prtkey.PRTY_RQST_ID = I_PRTY_RQST_ID
                ORDER BY prtkey.PRTY_RQST_ID ASC;

                OPEN o_addtn_identifier_rc FOR
                SELECT addkey.addtn_info_key_typ_nm,
                adtinf.addtn_rqst_typ_val_num,adtinf.addtn_rqst_typ_value,
                adtinf.ADDTN_RQST_TYP_VAL_DT,adtinf.is_deleted
                FROM addtn_rqst_info adtinf,
                addtn_info_key_typ addkey
                WHERE adtinf.addtn_info_key_typ_id = addkey.addtn_info_key_typ_id
                AND ADTINF.PRTY_RQST_ID = I_PRTY_RQST_ID
                ORDER BY ADTINF.PRTY_RQST_ID ASC;


                END IF;


                o_err_cde := 0;
                o_err_msg := 'SUCCESS';

                EXCEPTION

                WHEN NO_INPUT_AVAILABLE THEN
                o_err_cde := 999999;
                o_err_msg := 'NO INPUT FOUND. REQUEST IDENTIFIER OR ORCHESTRAITON ID OR PARTY REQUEST CRITERIA IS NEEDED TO PROCESS YOUR REQUEST';
                WHEN INVALID_INPUT THEN
                o_err_cde := 999999;
                o_err_msg := 'MORE THAN ONE INPUT FOUND. REQUEST IDENTIFIER OR ORCHESTRAITON ID OR PARTY REQUEST CRITERIA IS NEEDED TO PROCESS YOUR REQUEST';
                WHEN OTHERS THEN
                o_err_cde := SQLCODE;
                o_err_msg := SQLERRM;

                END RETRIEVE_PARTY_REQUEST;
                • 5. Re: How to use ab ObjectType for holding the values in a store procedure
                  Most Wanted!!!!
                  DECLARE
                     lv_t_party   tt_tester := NEW tt_tester ();
                     lv_o_party   to_tester := NEW to_tester (NULL);
                  BEGIN
                     FOR i IN (SELECT     LEVEL a
                                     FROM DUAL
                               CONNECT BY LEVEL < 10)
                     LOOP
                        lv_t_party.EXTEND (1);
                        lv_o_party.request_identifer := i.a;
                        lv_t_party (1) := lv_o_party;
                        DBMS_OUTPUT.put_line (lv_o_party.request_identifer);
                     END LOOP;
                  END;
                  --check the above code i have corrected it

                  regards,
                  friend

                  Edited by: most wanted!!!! on Mar 18, 2013 1:57 AM
                  • 6. Re: How to use ab ObjectType for holding the values in a store procedure
                    936328
                    thank you friend,

                    I have implemented that change in to my code. now there are no compile errors.It will great if you can tell me the cause.

                    I need to run the script. that is another challenge for me. I will update the post after my execution.

                    Thank you for your valuable time.
                    • 7. Re: How to use ab ObjectType for holding the values in a store procedure
                      Most Wanted!!!!
                      PLS-00302: component 'string' must be declared
                      Cause: In a reference to a component (for example, in the name "A.B", "B" is a component of "A"), the component has not been declared. The component might be misspelled, its declaration might be faulty, or the declaration might be placed incorrectly in the block structure.
                      Action: Check the spelling and declaration of the component. Also confirm that the declaration is placed correctly in the block structure.
                      regards,
                      friend

                      Edited by: most wanted!!!! on Mar 18, 2013 3:27 AM
                      • 8. Re: How to use ab ObjectType for holding the values in a store procedure
                        936328
                        Thank you,

                        I am having problem in executing this. I have declared 3 types here. each one is one condition. I should pass only one.

                        VARIABLE o_party_request_rc REFCURSOR
                        VARIABLE o_party_identifier_rc REFCURSOR
                        VARIABLE o_addtn_identifier_rc REFCURSOR
                        VARIABLE o_error_code NUMBER
                        VARIABLE o_error_message VARCHAR2(100)

                        DECLARE
                        T_T T_T_PARTY_REQUEST_IDENTIFIER := NEW T_T_PARTY_REQUEST_IDENTIFIER (),
                        T_S T_T_ORCHESTRATION_ID := NEW T_T_ORCHESTRATION_ID(),
                        T_P T_T_PARTY_REQUEST_CRITERIA := NEW T_T_PARTY_REQUEST_CRITERIA

                        BEGIN

                        -- T_T_TYPE_SEARCH_CRITERIA(
                        -- T_O_TYPE_SEARCH_CRITERIA(PROCESS_TYPE, PLAN REQUEST_TYPE, INTERNAL_STATUS, EFFECTIVE_DATE, PARTY_REQUEST_ID, ORCHESTRATION_ID));

                        T_T := T_T_PARTY_REQUEST_IDENTIFIER(
                        T_O_PARTY_REQUEST_IDENTIFIER('100000000315'),
                        T_O_PARTY_REQUEST_IDENTIFIER('100000000314'),
                        T_O_PARTY_REQUEST_IDENTIFIER('100000000313')
                        );

                        RETRIEVE_PARTY_REQUEST(T_T,NULL ,NULL ,:o_party_request_rc,:o_party_identifier_rc,:o_addtn_identifier_rc, :o_error_code, :o_error_message);

                        END;
                        /

                        PRINT o_party_request_rc
                        PRINT o_party_identifier_rc
                        PRINT o_addtn_identifier_rc
                        PRINT o_error_code
                        PRINT o_error_message

                        ERROR message is
                        Error starting at line 7 in command:
                        Error report:
                        ORA-06550: line 2, column 82:
                        PLS-00103: Encountered the symbol "," when expecting one of the following:

                        . ( * % & = - + ; < / > at in is mod remainder not rem
                        <an exponent (**)> <> or != or ~= >= <= <> and or like LIKE2_
                        LIKE4_ LIKEC_ between || multiset member SUBMULTISET_
                        ORA-06550: line 6, column 1:
                        PLS-00103: Encountered the symbol "BEGIN" when expecting one of the following:

                        . ( ) , * @ % & = - + < / > at in is mod remainder not rem
                        <an exponent (**)> <> or != or ~= >= <= <> and or like LIKE2_
                        LIKE4_ LIKEC_ between || mult
                        ORA-06550: line 19, column 4:
                        PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following:

                        end not pragma final instantiable order overriding static
                        member constructor map
                        06550. 00000 - "line %s, column %s:\n%s"
                        *Cause:    Usually a PL/SQL compilation error.

                        Edited by: 933325 on Mar 18, 2013 3:48 AM
                        • 9. Re: How to use ab ObjectType for holding the values in a store procedure
                          William Robertson
                          You are missing some semicolons in the DECLARE section.
                          • 10. Re: How to use ab ObjectType for holding the values in a store procedure
                            936328
                            Thank you ALL,

                            finally my proc is working. once again thank you for your valuable time.

                            Vijay.
                            • 11. Re: How to use ab ObjectType for holding the values in a store procedure
                              936328
                              Hi,

                              I am able to fetch only last record(ONE). if i want to display all the records what i have to do.

                              FOR i IN (SELECT DISTINCT PR.PRTY_RQST_ID
                              FROM prty_rqst pr,
                              busn_applc biap,
                              intn_proces_stats inprst,
                              intn_stats insts,
                              intn_proces_typ intpty,
                              allw_chnl alwchl,
                              chnl chnl,
                              rqst_typ rqstyp,
                              RQST_PAYLOAD RQPYLD,
                              RQST_TRC RQTRC,
                              ADDTN_RQST_INFO ADTINF,
                              ADDTN_INFO_KEY_TYP ADDKEY,
                              PRTY_KEY PRTKEY,
                              PRTY_KEY_TYP PRKYTP,
                              TABLE(CAST(I_T_T_PARTY_REQUEST_CRITERIA AS T_T_PARTY_REQUEST_CRITERIA)) ITTPRC
                              -- here i need to capture the values for partyKey and additiona Identifers also case condition for if null value is passed in partyrequestCtirertia
                              WHERE BIAP.BUSN_APPLC_ID = PR.BUSN_APPLC_ID
                              AND BIAP.BUSN_APPLC_NM = ITTPRC.SYSTEM_IDENTIFER
                              AND INPRST.INTN_STATS_ID = PR.INTN_STATS_ID
                              AND insts.intn_stats_id = pr.intn_stats_id AND (INSTS.INTN_STATS_NM = ITTPRC.STATUS or ITTPRC.STATUS is null)
                              AND INPRST.INTN_STATS_ID = INSTS.INTN_STATS_ID
                              AND intpty.intn_proces_typ_id = inprst.intn_proces_typ_id AND INTPTY.INTN_PROCES_TYP_NM = ITTPRC.PROCESS_TYPE
                              AND pr.intn_proces_typ_id= intpty.intn_proces_typ_id
                              AND alwchl.allw_chnl_id = pr.allw_chnl_id
                              AND alwchl.intn_proces_typ_id = intpty.intn_proces_typ_id
                              AND CHNL.CHNL_ID = ALWCHL.CHNL_ID
                              AND rqstyp.rqst_typ_id = pr.rqst_typ_id AND RQSTYP.RQST_TYP_NM = ITTPRC.REQUEST_TYPE AND RQSTYP.RQST_CLASS_NM = ITTPRC.REQUEST_TYPE_CLASS_NAME
                              AND rqpyld.prty_rqst_id = pr.prty_rqst_id
                              AND RQTRC.PRTY_RQST_ID = PR.PRTY_RQST_ID
                              AND PR.UPDT_BY = ITTPRC.UPDATED_BY
                              AND ADTINF.PRTY_RQST_ID = PR.PRTY_RQST_ID
                              AND ADTINF.ADDTN_INFO_KEY_TYP_ID = ADDKEY.ADDTN_INFO_KEY_TYP_ID
                              AND PRTKEY.PRTY_RQST_ID = PR.PRTY_RQST_ID
                              AND PRTKEY.PRTY_KEY_TYP_ID = PRKYTP.PRTY_KEY_TYP_ID
                              AND PR.TRACK_RQST_IND = ITTPRC.TRACKING_REQUEST_INDICATOR
                              AND PR.CHLD_RQST_IND = ITTPRC.CHILD_REQUEST_INDICATOR

                              ORDER BY PR.PRTY_RQST_ID ASC )

                              LOOP
                              LV_T_PARTY.EXTEND (1);
                              LV_O_PARTY.REQUEST_IDENTIFER := I.PRTY_RQST_ID;
                              LV_T_PARTY (1) := LV_O_PARTY;
                              END LOOP;


                              Thank you.