oracle 发送 HTTP 请求

调用例子

declare
  retdata clob;
  retcode varchar2(1000);
  retmsg  varchar2(1000);
  par     varchar2(1000);
begin
  par := 'reqNum=QUERY_ROAD_002' || chr(38) ||
         'jsonData=%7B"AAC001"%3A"0000000002"%2C"AAC002"%3A""%2C"QUERY_ID"%3A"Q006"%7D' ||
         chr(38) || 'userName=xxm' || chr(38) || 'businessType=00' ||
         chr(38) || 'businessDate=20180928202533';
  odk_http.p_postrequest('http://10.83.143.52:8091/sscmApi/httpService/doRequest',
                         par,
                         retdata,
                         retcode,
                         retmsg);
  dbms_output.put_line(retdata);
  dbms_output.put_line(retcode);
  dbms_output.put_line(retmsg);
end;

设置 NETWORK_ACL

BEGIN DBMS_NETWORK_ACL_ADMIN.CREATE_ACL 
(acl          => 'xxm_20180928.xml',
description  => 'Enables network permissions for the xxm_20180928 server',
principal    => 'INSIIS6',
is_grant     => TRUE,
privilege    => 'connect');
END;

BEGIN DBMS_NETWORK_ACL_ADMIN.ASSIGN_ACL 
(acl         => 'xxm_20180928.xml',
host        => '10.83.143.52',
lower_port  => 8091,
upper_port  => 8091);
COMMIT;
END;

BEGIN DBMS_NETWORK_ACL_ADMIN.ADD_PRIVILEGE 
( acl => 'xxm_20180928.xml',
principal => 'INSIIS6',
is_grant => TRUE, 
privilege => 'connect', 
start_date => null, 
end_date => null); 
end;

-- 查询
SELECT host, lower_port, upper_port, acl FROM dba_network_acls;