set serveroutput on

declare 
  l_port         number;
  l_port2        number;

  l_host         varchar2(4000);
  l_host2        varchar2(4000);
   
  l_protocol     number;   
  l_protocol2    number;
begin
  dbms_xdb.getlistenerendpoint(dbms_xdb.xdb_endpoint_http,  l_host,  l_port,  l_protocol);
  dbms_xdb.getlistenerendpoint(dbms_xdb.xdb_endpoint_http2, l_host2, l_port2, l_protocol2);
  
  dbms_output.put_line('host: '  || nvl(l_host,'*') 
                     || case when l_host = 'localhost' then ' (Available locally)' end
                     || ', port: '  || l_port  || ', protocol: '  
                     || case when l_protocol=dbms_xdb.xdb_protocol_tcp then 'HTTP' when l_protocol=dbms_xdb.xdb_protocol_tcps then 'HTTPS' end );
  
  if l_host2 is not null or l_port2 is not null or l_protocol2 is not null then

    dbms_output.put_line('host2: '  || nvl(l_host2,'*')
                       || case when l_host2 = 'localhost' then ' (Available locally)' end
                       || ', port2: '  || l_port2  || ', protocol2: '  
                       || case when l_protocol2=dbms_xdb.xdb_protocol_tcp then 'HTTP' when l_protocol2=dbms_xdb.xdb_protocol_tcps then 'HTTPS' end );
  end if;
end;
/

exec dbms_xdb.setListenerLocalAccess (l_access => false);