64: -- For M1 return a list of numbers
65: --
66:
67:
68: function getadapters return hr_nvpair_tab_t is
69:
70: l_response varchar2(2000);
71: l_cmd varchar2(255);
72: l_action varchar2(2000);
78: l_cmdsep_len number;
79: l_name varchar2(40);
80: l_value varchar2(240);
81: l_done boolean := false;
82: l_retval hr_nvpair_tab_t := hr_nvpair_tab_t();
83: l_store hr_nvpair_t;
84: l_cookie varchar2(100) := '';
85: e_fatal_error exception;
86:
79: l_name varchar2(40);
80: l_value varchar2(240);
81: l_done boolean := false;
82: l_retval hr_nvpair_tab_t := hr_nvpair_tab_t();
83: l_store hr_nvpair_t;
84: l_cookie varchar2(100) := '';
85: e_fatal_error exception;
86:
87: begin
100: raise e_fatal_error;
101: end if;
102:
103:
104: -- build up hr_nvpair_tab_t table
105: l_cmdsep_len := length(l_cmdsep);
106:
107: while (not l_done) loop
108:
120:
121: l_value := substr(l_action, l_position_m + l_cmdsep_len,
122: l_position_r - l_position_m - l_cmdsep_len);
123:
124: l_store := hr_nvpair_t(l_name, l_value);
125:
126: l_retval.EXTEND;
127: l_retval(l_entry) := l_store;
128: