Sending arrays from Forms to Oracle PL/SQL

Question

Hi All,
I'm stuck up in an urgent requirement where I want to send an array of values(eg., PL/SQL table) with a number of rows say 100 from Forms 6i to Oracle PL/SQL. PL/SQL table is based on a record type consists of a number of columns say 10.
The actual scenario is that, Forms interactive screen (multiple record block) does validations on the values entered by users and then it should send all the rows together to a Stored Procedure or Packaged procedure. Packaged procedure receives the PL/SQL table, does processing on the data values of the PL/SQL table and send it back to Forms 6i.
Please help me in getting the solution on this urgent problem. There is a flexibility of using any kind of arrays, it can be PL/SQL, Nested table or varrays.
Thanks.

Answer 1

hi,
I want to give n-array elements from a forms6i application to
a stored package at the same time. I want to work with n-array
elements in my stored package >>mypackage<<, because I want to sort the
array elements in a stored package. Now >>mypackage<< works only with
one array-element, but I need n-elements. First I start a test with
a procedure and a package.
-- Later >>element<< should be a program unit in Forms6i
CREATE OR REPLACE PROCEDURE element IS
TYPE tab_spoolfile IS TABLE OF VARCHAR2(100) INDEX BY BINARY_INTEGER;
t_file     tab_spoolfile;
BEGIN
t_file(1):= 'abc_00017_cba'; -- 1.
t_file(2):= 'xyz_00002_zyx'; -- 2.
t_file(3):= 'efg_99999_gfe'; -- 3.
t_file(4):= 'mno_00115_onm'; -- 4.
t_file(5):= 'hij_00088_jih'; -- 5.
FOR i IN t_file.FIRST..t_file.LAST
LOOP
out('Element: '||t_file(i));
mypackage.my_procedure(mypackage.tab_array(t_file(i)),null);
END LOOP;
END;
CREATE OR REPLACE PACKAGE MyPackage AS
TYPE tab_array IS TABLE OF VARCHAR2(300);
t_file tab_array;
PROCEDURE my_procedure(in_values IN tab_array, p_param VARCHAR2);
END MyPackage;
CREATE OR REPLACE PACKAGE BODY MyPackage AS
i BINARY_INTEGER:= 1;
PROCEDURE my_procedure(in_values IN tab_array, p_param VARCHAR2) IS
BEGIN
IF in_values.EXISTS(i)
THEN
out('Sort : '||in_values(i));
END IF;
END;
END MyPackage;
SQL> exec element
Element: abc_00017_cba
Sort : abc_00017_cba
Element: xyz_00002_zyx
Sort : xyz_00002_zyx
Element: efg_99999_gfe
Sort : efg_99999_gfe
Element: mno_00115_onm
Sort : mno_00115_onm
Element: hij_00088_jih
Sort : hij_00088_jih
Does anybody have an idea?
Best regards,
Tom