XML Output to HTML

Question

I want a user to call a procedure from a Web browser and the procedure combine an XML recordset with an XSLT Stylesheet to produce the HTML.
I can query the database and return the results to a CLOB, but I want do the transformation and return the result as a web page.
Is there an easy way to do return the contents of the CLOB?
Current Code
theCurrs CLOB ;
queryCtx DBMS_XMLQuery.ctxType ;
BEGIN
queryCtx := DBMS_XMLquery.newContext ('SELECT * FROM locations');
DBMS_XMLQuery.setRowTag(queryCtx,'location');
DBMS_XMLQuery.setRowsetTag(queryCtx,'locations');
DBMS_XMLQuery.setTagCase(queryCtx,1) ;
DBMS_XMLQuery.setXSLT(queryCtx,'d:\apps\StyleSheets\locations.xsl');
theCurrs := DBMS_XMLquery.getXML (queryCtx) ;
-- Now what do I do with the CLOB??
DBMS_XMLQuery.closeContext(queryCtx);
END;
null

Answer 1

Hi,
I've written a procedure (see below) which writes a clob to a text-file.
You're probably only interested in following line:
l_output := dbms_lob.SUBSTR(p_clob,32767);
which puts the clob into a varchar2, declare l_output as varchar2(32767).
The procedure below sets p_result = 1 if the filewrite succeded otherwise p_result will be = 0.
Hope this helps you.
Best of luck
/Jorgen
create or replace procedure p_clob_toFile
p_clob IN CLOB
,f_FileDir IN VARCHAR2
,f_FileName IN VARCHAR2
,p_result OUT INTEGER
is
l_output varchar2(32767);
l_file_handle UTL_FILE.FILE_TYPE;
begin
p_result := 1;
l_output := dbms_lob.SUBSTR(p_clob,32767);
l_file_handle := utl_file.fopen(f_FileDir,f_FileName,'w');
utl_file.put(l_file_handle, l_output);
utl_file.fclose(l_file_handle);
exception
when OTHERS then
begin
p_result := 0;
utl_file.fclose(l_file_handle);
end;
end;
<BLOCKQUOTE><font size="1" face="Verdana, Arial">quote:</font><HR>Originally posted by Karl Miller ([email protected]):
I want a user to call a procedure from a Web browser and the procedure combine an XML recordset with an XSLT Stylesheet to produce the HTML.
I can query the database and return the results to a CLOB, but I want do the transformation and return the result as a web page.
Is there an easy way to do return the contents of the CLOB?
Current Code
theCurrs CLOB ;
queryCtx DBMS_XMLQuery.ctxType ;
BEGIN
queryCtx := DBMS_XMLquery.newContext ('SELECT * FROM locations');
DBMS_XMLQuery.setRowTag(queryCtx,'location');
DBMS_XMLQuery.setRowsetTag(queryCtx,'locations');
DBMS_XMLQuery.setTagCase(queryCtx,1) ;
DBMS_XMLQuery.setXSLT(queryCtx,'d:\apps\StyleSheets\locations.xsl');
theCurrs := DBMS_XMLquery.getXML (queryCtx) ;
-- Now what do I do with the CLOB??
DBMS_XMLQuery.closeContext(queryCtx);
END;<HR></BLOCKQUOTE>
null