du har minst tre alternativ:
- (standard) använd en associativ array som en procedurparameter
- definiera ett "tillräckligt" antal valfria formella parametrar
- använd en enda varchar-parameter med ett definierat separator-char
exempelkod 1.)
TYPE t_map IS TABLE OF VARCHAR2(50) INDEX BY VARCHAR2(20);
CREATE OR REPLACE PROCEDURE demo_1 ( vararg IN t_map ) IS
BEGIN
/* whatever */
NULL;
END demo_1;
/* ... somewhere else ... */
my_var t_map;
my_var('first') := 'this';
my_var('next') := ' is a ';
my_var('last') := 'demo';
demo_1 ( my_var );
/* ... */
exempelkod 2.) (max. 5 parametrar)
CREATE OR REPLACE PROCEDURE demo_2 (
vararg1 IN VARCHAR2 DEFAULT NULL
, vararg2 IN VARCHAR2 DEFAULT NULL
, vararg3 IN VARCHAR2 DEFAULT NULL
, vararg4 IN VARCHAR2 DEFAULT NULL
, vararg5 IN VARCHAR2 DEFAULT NULL
) IS
BEGIN
/* whatever */
NULL;
END demo_2;
/* ... somewhere else ... */
demo_2 ( 'this', ' is a ', 'demo' );
/* ... */
exempelkod 3.) (särskilt tecken är ';' - får inte förekomma i nyttolastdatan)
CREATE OR REPLACE PROCEDURE demo_3 (
vararg IN VARCHAR2
) IS
l_arg2 VARCHAR2(50);
l_arg5 VARCHAR2(50);
BEGIN
l_arg2 := SUBSTR(REGEXP_SUBSTR(vararg, ';[^;]*', 1, 2), 2);
l_arg5 := SUBSTR(REGEXP_SUBSTR(vararg, ';[^;]*', 1, 5), 2);
/* whatever */
END demo_3;
/* ... somewhere else ... */
demo_3 ( ';this; is a ;demo;;really!;' );
/* ... */