SQLPLXML

--SQLPL
--1
--2
SELECT DISTINCT deref(id_aviao).tipo
FROM tb_plano_voo p
WHERE deref(id_rota).destino LIKE '%John F. Kennedy';
--3
ALTER TYPE tp_Piloto REPLACE AS object (
    cpf varchar2(15),
        cadastro INTEGER,
        nome varchar2(30),
        habilitacao varchar2(30),
        cpf_comandante REF tp_Piloto,
        constructor FUNCTION tp_Piloto(
        x1 varchar2,
        x2 varchar2,
        x3 INTEGER,
        x4 varchar2)
    RETURN SELF AS RESULT
);
CREATE OR REPLACE TYPE body tp_Piloto AS
    constructor FUNCTION tp_Piloto(
        x1 varchar2,
        x2 varchar2,
        x3 INTEGER,
        x4 varchar2)
    RETURN SELF AS RESULT IS
    BEGIN
        cpf:=x1;
        cadastro:=x3;
        nome:=x2;
        habilitacao:=x4;
        cpf_comandante:=NULL;
        RETURN;
    END;
END;
/
INSERT INTO tb_Piloto VALUES (tp_Piloto('12345678990','JETS','15','A1'));

--4
SELECT p.nome, p.habilitacao
FROM tb_Piloto p
WHERE p.habilitacao='A2'
AND REF(p) IS NOT dangling;

--5
/*
select r.id_pista.condicoes, r.id_pista.comprimento
from tb_Pouso_Decolagem v, table(v.reservas) r
where v.max_velocidade>'500';
*/

--6
SELECT T.*
FROM tb_fones_funcionario f, TABLE(f.lista_fone) T, tb_Pilota p
WHERE p.cpf_piloto.cpf=f.cpf_piloto.cpf
AND p.id_aviao.tipo LIKE 'Boeing 737-800';




--XML
--4
SET serveroutput ON;
DECLARE
ctx dbms_xmlgen.ctxhandle;
RESULT CLOB;
BEGIN
    ctx := dbms_xmlgen.newContext('select pilota.id_aviao.tipo from tb_Pilota pilota where pilota.cpf_piloto.nome=''Maria W. Griffith''');
    DBMS_XMLGEN.setRowsetTag(ctx, 'Aviões');
    DBMS_XMLGEN.setRowTag(ctx,'Tipos');
    RESULT := dbms_xmlgen.getXML(ctx);
    dbms_output.put_line(RESULT);
    dbms_xmlgen.closeContext(ctx);
END;
/