begin
   DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE('<YOUR_ACL>.xml','<USERNAME>',TRUE,'connect');
   commit;
end;
/


col PRINCIPAL format a10


select acl, principal, privilege from dba_network_acl_privileges;


column host format a30
column acl format a25
select * from dba_network_acls


BEGIN
  DBMS_NETWORK_ACL_ADMIN.CREATE_ACL(
     acl          => 'mail-abbott.xml',
     description  => 'Network permissions for mail.abbott.com',
     principal    => 'GANGIVX',
     is_grant     => TRUE,
     privilege    => 'connect');
END;

BEGIN
DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL (
   acl        => 'mail-abbott.xml',
   host       => 'mail.abbott.com',
   lower_port  => 2525,
   upper_port  => 2525);
END;

BEGIN
DBMS_NETWORK_ACL_ADMIN.UNASSIGN_ACL (
   acl        => 'mail-abbott.xml',
   host       => 'mail.abbott.com',
   lower_port  => 25,
   upper_port  => 25);
END;


DBMS_NETWORK_ACL_ADMIN.UNASSIGN_ACL (
   acl         IN VARCHAR2 DEFAULT NULL,
   host        IN VARCHAR2 DEFAULT NULL,
   lower_port  IN PLS_INTEGER DEFAULT NULL,
   upper_port  IN PLS_INTEGER DEFAULT NULL);