T-SQL to PL/SQL

Question

Hi,
I'm trying to convert some code in T-SQL into PL/SQL (see below). The trouble is that my PL/SQL is mediocre and my T-SQL is almost non-existent.
Short of spending the next couple of months learning T-SQL is there an easy way to convert the code below?
A handy utility or a cross reference source?
create procedure dbo.pca_ByPostcode(@postcode varchar(50), @account_code varchar(50), @license_code varchar(50), @machine_id varchar(50)) as
begin
declare @document int
declare @url varchar(500)
declare @error int
declare @result int
declare @error_number int
declare @error_message varchar(100)
set nocount on
--Build the url
set @url = 'http://services.postcodeanywhere.co.uk/dataset.aspx?'
set @url = @url + '&action=lookup'
set @url = @url + '&type=by_postcode'
set @url = @url + '&postcode=' + @postcode
set @url = @url + '&account_code=' + @account_code
set @url = @url + '&license_code=' + @license_code
set @url = @url + '&machine_id=' + @machine_id
--Create the temporary table
if object_id('tempdb..#xmltemp') is not null drop table #xmltemp
create table #xmltemp(xml text null, xml2 text null)
--Create the http object
exec @result=sp_oacreate 'msxml2.serverxmlhttp',@error out
if @result <> 0 exec sp_oageterrorinfo @error
--Get the data from Postcode Anywhere
exec @result=sp_oamethod @error, 'open',null,'GET',@url,'false'
if @result <> 0 exec sp_oageterrorinfo @error
exec @result=sp_oamethod @error,'send'
if @result <> 0 exec sp_oageterrorinfo @error
--Copy the response to a temporary table
insert #xmltemp(xml) exec @result=sp_oagetproperty @error,'responsetext'
if @result <> 0 exec sp_oageterrorinfo @error
--Remove the quotes
declare @counter int
declare @chunk varchar(4000)
declare @ptr binary(16)
update #xmltemp set xml2=''
select @ptr = textptr(xml2) from #xmltemp
select @chunk = convert(varchar(1000),xml) from #xmltemp
set @counter = 0
while (len(@chunk) > 0) begin
set @chunk = replace(@chunk, '''', '''''')
updatetext #xmltemp.xml2 @ptr null 0 @chunk
set @counter = @counter+1
select @chunk = convert(varchar(1000),substring(xml, 1+@counter*1000,1000)) from #xmltemp
end
--Release the resources used by msxml
exec @result=sp_oadestroy @error
--Generate and execute the script which concatenates the xml and gets the xml document
exec('
declare @counter int
declare @chunk varchar(4000)
declare @declare varchar(8000)
declare @assign varchar(8000)
declare @concat varchar(8000)
select @chunk = replace(convert(varchar(4000),xml2),'''','''''''') from #xmltemp
select @declare = ''declare'', @concat = '''''''''''''''', @assign = '''', @counter = 0
while (len(@chunk) > 0) begin
select @declare = @declare + '' @chunk''+cast(@counter as varchar(15)) +'' varchar(8000),'', @assign = @assign + ''select @chunk''+convert(varchar(15),@counter) +''= substring(xml2,''+ convert(varchar(15), 1+@counter*8000)+ '', 8000) from #xmltemp '', @concat = @concat + ''+@chunk''+convert(varchar(15),@counter)
set @counter = @counter+1
select @chunk = replace(convert(varchar(4000),substring(xml2, 1+@counter*4000,4000)),'''','''''''') from #xmltemp
end
if (@counter = 0)
set @declare = ''''
else
set @declare = substring(@declare,1,len(@declare)-1)
set @concat = @concat + ''+''''''''''''''
exec(@declare+'' ''+@assign+'' ''+''exec(''''declare @document_doc int exec sp_xml_preparedocument @document_doc out, ''+@concat+'' declare hdlcursor cursor for select @document_doc as dochandle'''')'')')
--Get the reference to the xml document
open hdlcursor
fetch hdlcursor into @document
deallocate hdlcursor
--Drop the temporary table
drop table #xmltemp
--Check for an error and report that first
select @error_number=errornumber, @error_message=message from openxml(@document, '/NewDataSet/Data', 1) with (ErrorNumber int 'error_number', Message varchar(300) 'message')
if @error_number is not null
begin
--Release the resources use by the xml document
exec sp_xml_removedocument @document
--Throw the exception
raiserror (@error_message,16,1)
end
else
begin
--Get the data from the xml document
select * from openxml(@document, '/NewDataSet/Data', 1) with (id varchar(100) 'id', seq varchar(100) 'seq', description varchar(100) 'description')
--Release the resources use by the xml document
exec sp_xml_removedocument @document
end
end
Cheers
Yog

Answer 1

Hi Justin,
Tried the migration tool in Sql Developer and got the following:
/* Translation Extracted DDL For Required Objects */
CREATE TABLE tt_xmltemp (     
XML CLOB ,     
xml2 CLOB );
CREATE OR REPLACE PROCEDURE pca_ByPostcode
v_postcode IN VARCHAR2 DEFAULT NULL ,
v_account_code IN VARCHAR2 DEFAULT NULL ,
v_license_code IN VARCHAR2 DEFAULT NULL ,
v_machine_id IN VARCHAR2 DEFAULT NULL
AS
v_document NUMBER(10,0);
v_url VARCHAR2(500);
v_error NUMBER(10,0);
v_result NUMBER(10,0);
v_error_number NUMBER(10,0);
v_error_message VARCHAR2(100);
BEGIN
NULL/*TODO:set nocount on*/;
--Build the url
v_url := 'http://services.postcodeanywhere.co.uk/dataset.aspx?';
v_url := v_url || '&action=lookup';
v_url := v_url || '&type=by_postcode';
v_url := v_url || '&postcode=' || v_postcode;
v_url := v_url || '&account_code=' || v_account_code;
v_url := v_url || '&license_code=' || v_license_code;
v_url := v_url || '&machine_id=' || v_machine_id;
--Create the temporary table
IF NULL/*TODO:object_id('tempdb..#xmltemp')*/ IS NOT NULL THEN
EXECUTE IMMEDIATE ' TRUNCATE TABLE tt_xmltemp ';
END IF;
--Create the http object
v_result :=sp_oacreate('msxml2.serverxmlhttp',
v_error);
--Get the data from Postcode Anywhere
--Copy the response to a temporary table
/*Limitation:Syntax Not Recognized:XML ) */
--Remove the quotes
--Release the resources used by msxml
--Generate and execute the script which concatenates the xml and gets the xml document
--Get the reference to the xml document
--Drop the temporary table
--Check for an error and report that first
--Release the resources use by the xml document
--Throw the exception
--Get the data from the xml document
--Release the resources use by the xml document
END;
It pretty much just changes the declaration syntax and leaves the rest blank, i.e. the stuff I could probably have done myself.
Is there such a thing as a library of t-sql functions with their equivalent pl/sql functions?
Sort of like a Spanish-English phrasebook I suppose :-)
Cheers
Yog