Pass multiple values with IN parameter in stored procedure

Question

CREATE TABLE VTEST_INSERT (
MY_ID NUMBER,
COLUMN1 VARCHAR2(50)
--SELECT * FROM VTEST_INSERT;
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (1,'TEST1');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (2,'TEST2');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (3,'TEST3');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (4,'TEST4');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (5,'TEST5');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (1,'TEST6');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (2,'TEST7');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (3,'TEST8');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (4,'TEST9');
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (5,'TEST10');
CREATE OR REPLACE
PROCEDURE VTEST_INSERT_SP(vid IN VARCHAR2,vname IN VARCHAR2)
AS
BEGIN
DELETE FROM VTEST_INSERT WHERE MY_ID IN (vid);
INSERT INTO VTEST_INSERT (MY_ID,COLUMN1) VALUES (vid,vname);
END;
EXEC VTEST_INSERT_SP(1,'TEST999');
This all works fine above. But I want to be able to pass in multiple vname values. so something like:
EXEC VTEST_INSERT_SP(1,'TEST999','TEST888','TEST777');
all help appreciated. thank you.
This would do multiple inserts each with the same vid and the different vname values.

Answer 1

Try something like this
SET SQLBLANKLINES ON;
ALTER SESSION SET PLSQL_WARNINGS='ENABLE:ALL';
DROP TABLE vtest_insert;
CREATE TABLE vtest_insert(vid NUMBER, vname VARCHAR2(20));
INSERT ALL
   INTO vtest_insert(vid, vname) VALUES(1, 'aaaa')
   INTO vtest_insert(vid, vname) VALUES(1, 'bb')
   INTO vtest_insert(vid, vname) VALUES(1, 'cccccc')
   INTO vtest_insert(vid, vname) VALUES(2, 'ddd')
   INTO vtest_insert(vid, vname) VALUES(2, 'ee')
SELECT * FROM "PUBLIC".dual;
SELECT * FROM vtest_insert;
CREATE OR REPLACE TYPE vnames_tab_ty IS TABLE OF VARCHAR2(20)
SHOW ERRORS;
CREATE OR REPLACE PROCEDURE vtest_insert_sp
   p_vid     IN  vtest_insert.vid%TYPE,
   p_vnames  IN  vnames_tab_ty
AUTHID DEFINER
IS
BEGIN
   DELETE FROM vtest_insert WHERE vid = p_vid;
   FORALL idx IN p_vnames.FIRST .. p_vnames.LAST
       INSERT INTO vtest_insert(vid, vname) VALUES(p_vid, p_vnames(idx));
END vtest_insert_sp;
SHOW ERRORS;
<<bk>>
DECLARE
  vnames vnames_tab_ty;
  vid vtest_insert.vid%TYPE;
BEGIN
  bk.vid := 1;
  bk.vnames := vnames_tab_ty('vn-01', 'vn-02', 'vn-03');
  vtest_insert_sp(p_vid=>bk.vid, p_vnames=>bk.vnames);
  COMMIT;
  bk.vid := 2;
  bk.vnames := vnames_tab_ty('vn-04', 'vn-05', 'vn-06', 'vn-07');
  vtest_insert_sp(p_vid=>bk.vid, p_vnames=>bk.vnames);
  COMMIT;
END;
SELECT * FROM vtest_insert;
Which produces the following output
Table created.
5 rows created.
       VID VNAME
     1 aaaa
     1 bb
     1 cccccc
     2 ddd
     2 ee
Type created.
No errors.
Procedure created.
No errors.
PL/SQL procedure successfully completed.
       VID VNAME
     1 vn-01
     1 vn-02
     1 vn-03
     2 vn-04
     2 vn-05
     2 vn-06
     2 vn-07
7 rows selected.
SQL>
Regards,
Dariyoosh