这段 MSSQL 怎么转换 成 Oracle 的？

Question

CREATE PROCEDURE [dbo].[sp_aaa] AS
Declare @adc int
Declare @hr int
DECLARE @dcnt int
select @adc=1IF @adc=1
BEGIN
DECLARE @sql varchar (8000) select @sql='Open("GET","http://..........",False)' EXEC @hr=sp_OACreate 'Microsoft.XMLHTTP', @adc OUT
EXEC @hr=sp_OAMethod @adc,@sql 
EXEC @hr=sp_OAMethod @adc,'Send()',nullEND
GO

Answer 1

create or replace procedure sp_aaa
as
  v_abc  integer;
  v_hr   integer;
  v_dcnt integer;
  v_sql  varchar2(8000);
begin
  v_abc := 1;
  v_sql := 'Open("GET","http://..........",False)';
  
  exec sp_OACreate('Microsoft.XMLHTTP', v_adc);
  exec sp_OAMethod(v_adc, v_sql);
  exec sp_OAMethod(v_abc, 'Send()');
end;

Answer 2

CREATE OR REPLACE PROCEDURE sp_aaa
IS 
  n_adc int; 
  n_hr int; 
  n_dcnt int;
  v_sql  varchar2(8000); 
BEGIN 
  n_adc := 1; 
  v_sql := 'Open("GET","http://..........",False)';  sp_OACreate('Microsoft.XMLHTTP', n_adc);
  sp_OAMethod(n_adc,v_sql); 
  sp_OAMethod(n_adc,'Send()',null );END sp_aaa;