Passing array to the procedure in parameter

Question

Hi
I tried the following code,
Where my aim is to split the comma separated values and insert into an array, and then pass that array to another procedure in a package
CREATE OR REPLACE PACKAGE PAK_SPLIT_TEST AS
PROCEDURE PROC_SPLIT(IN_LIST  VARCHAR2) ;
END;
CREATE OR REPLACE PACKAGE PAK_SPLIT_TEST AS
PROCEDURE PROC_SPLIT(IN_LIST  VARCHAR2) ;
END;
CREATE OR REPLACE PACKAGE PAK_SPLIT_TEST
AS
   PROCEDURE PROC_SPLIT (IN_LIST VARCHAR2);
END;
CREATE OR REPLACE PACKAGE BODY PAK_SPLIT_TEST
AS
   PROCEDURE PROC_REM_LIST (p_array l_data)
   IS
   BEGIN
      FOR i IN 1 .. p_array.COUNT
      LOOP
         DBMS_OUTPUT.put_line (p_array (i));
      END LOOP;
   END;
   PROCEDURE PROC_SPLIT (IN_LIST VARCHAR2)
   IS
      TYPE SPLIT_array IS TABLE OF VARCHAR2 (4000)
                             INDEX BY BINARY_INTEGER;
      l_data   SPLIT_array;
      l_txt    LONG := '100,200,300,400,500,600';
      l_str    LONG := IN_LIST || ',';
      l_n      NUMBER;
   BEGIN
      BEGIN
         l_data.delete;
         LOOP
            l_n := INSTR (l_str, ',');
            EXIT WHEN NVL (l_n, 0) = 0;
            l_data (l_data.COUNT + 1) := SUBSTR (l_str, 1, l_n - 1);
            l_str := SUBSTR (l_str, l_n + 1);
         END LOOP;
         PROC_REM_LIST (l_data);
      END;
   END;
SELECT *FROM USER_ERRORSI'm getting the following error at line no. 30
PLS-00103: Encountered the symbol "end-of-file" when expecting one of the following:
   begin end function package pragma procedure formCould you please help me in this
Thanks,
Smile

Answer 1

Give this a shot:
CREATE OR REPLACE PACKAGE BODY PAK_SPLIT_TEST
AS
      TYPE SPLIT_array IS TABLE OF VARCHAR2 (4000)
                             INDEX BY BINARY_INTEGER;
   PROCEDURE PROC_REM_LIST (p_array SPLIT_array)
   IS
   BEGIN
      FOR i IN 1 .. p_array.COUNT
      LOOP
         DBMS_OUTPUT.put_line (p_array (i));
      END LOOP;
   END;
   PROCEDURE PROC_SPLIT (IN_LIST VARCHAR2)
   IS
      l_data   SPLIT_array;
      l_txt    LONG := '100,200,300,400,500,600';
      l_str    LONG := IN_LIST || ',';
      l_n      NUMBER;
   BEGIN
      BEGIN
         l_data.delete;
         LOOP
            l_n := INSTR (l_str, ',');
            EXIT WHEN NVL (l_n, 0) = 0;
            l_data (l_data.COUNT + 1) := SUBSTR (l_str, 1, l_n - 1);
            l_str := SUBSTR (l_str, l_n + 1);
         END LOOP;
         PROC_REM_LIST (l_data);
      END;
   END;
END pak_split_test;
/PROC_REM_LIST was expecting a PL/SQL type of L_DATA. You have not defined that type anywhere (e.g. in your package spec, body, or in SQL). I move the declaration from PROC_SPLIT to your package body and it compiles.
Hope this helps!