json value to json

[Lourival Queiroz]

/*
-- i have the Table Rota (rota_iu number(10), name varchar2(40))

rota_iu Name

---

1 PRAÇA
2 ZONA SUL
3 OLINDA
4 VIAJANDO
5 CLIENTE VEM BUSCAR
*/

declare
obj JSON;
obj1 JSON;
objArr JSON_list;
elem json_value;
Campo varchar2(2000);
Tabela varchar2(100);
i number:=0;
n number:=0;
begin
obj:=Json();
obj.put('Table', 'Rota');
objArr := json_dyn.executeList('select rota_iu, name
from Rota
order by name');
obj.put('Records',objArr);
Tabela:=json_ext.get_string(obj, 'Table');
dbms_output.put_line(Tabela);
-- obj.print;
objArr:=json_ext.get_json_list(obj,'Records');
for i in 1..objArr.count
loop
elem:=objArr.get(i);
elem.print;

-- ********
-- elem value = {"rota_iu" : 5, "name" : "CLIENTE VEM BUSCAR"}
-- how do i take each element individually ? Example: "rota_iu" : 5
-- or "name" : "CLIENTE VEM BUSCAR"
-- ********

end loop;
end;
/

Thanks.

[James Sumners]

Please ask your question on StackOverflow using a "pljson" tag -- http://stackoverflow.com/questions/tagged/pljson