PACKAGE BODY: APPS.ICX_OWA_PARMS

Source

1 package body icx_owa_parms as
2 /* $Header: ICXOWPAB.pls 115.1 99/07/17 03:19:46 porting ship $ */
3 --
4     l_names     array;
5     l_values    array;
6     l_cnt       number;
7 --
8     procedure register( p_names   in array)
9 --                        p_values  in array )
10     is
11     begin
12         for i in 1 .. 100000 loop
13             begin
14                 l_names(i) := p_names(i);
15                 l_cnt := i;
16 
17             exception
18                 when no_data_found then exit;
19             end;
20         end loop;
21 --        l_values := p_values;
22     end register;
23 --
24     function get( p_num in number) return varchar2
25     is
26     begin
27 
28           return l_names(p_num);
29     end get;
30 --
31 end icx_owa_parms;