BEGIN
   DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
    acl          => 'ftp.xml',
    description  => 'Permissions to access FTP Server',
    principal    => 'CRM',
    is_grant     => TRUE,
    privilege    => 'connect');

  DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE (
    acl          => 'ftp.xml',
    principal    => 'CRM',
    is_grant     => TRUE, 
    privilege    => 'resolve',
    position     => null);

  DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL (
    acl          => 'ftp.xml',
    host         => '10.77.44.118',
    lower_port    => 20,
    upper_port    => 21);
   COMMIT;
END;

grant execute on UTL_TCP to CRM  
--проверил 
 SELECT DECODE(
      dbms_network_acl_admin.check_privilege('ftp.xml',
      'CRM', 'connect'), 1, 'GRANTED', 0, 'DENIED', NULL) PRIVILEGE
    FROM DUAL;
 

-- Get a directory listing from a remote FTP server.
DECLARE
  l_conn  UTL_TCP.connection;
  l_list  ftp.t_string_table;
BEGIN
  l_conn := ftp.login('ftp.company.com', '21', 'ftpuser', 'ftppassword');
  ftp.list(p_conn   => l_conn,
           p_dir   => '/u01/app/oracle',
           p_list  => l_list);
  ftp.logout(l_conn);
  
  IF l_list.COUNT > 0 THEN
    FOR i IN l_list.first .. l_list.last LOOP
      DBMS_OUTPUT.put_line(i || ': ' || l_list(i));
    END LOOP;
  END IF;
END;
/

 l_conn := ftp.login('10.77.44.118', '21', 'ftpuser', 'ftppassword');