procedure xmltype_to_file (p_asmx_id in number) is 
rc sys_refcursor;
doc DBMS_XMLDOM.DOMDocument;
begin
 OPEN rc FOR SELECT  ASMX_XML FROM asm_xml t where t.ASMX_ID=p_asmx_id;
 doc := DBMS_XMLDOM.NewDOMDocument(xmltype(rc));
 DBMS_XMLDOM.WRITETOFILE(doc, 'TMP_XML/xml'||p_asmx_id||'.xml');    
end;