How to convert XMLTYPE data into CLOB without using getclobval()

Question

Please tell me how to convert data which is stored in the table in XMLTYPE column to a CLOB.
When i use getClobVal(), i get an error. So please tell me some other option except getClobVal()

Answer 1

CREATE OR REPLACE PACKAGE BODY CONVERT_XML_TO_HTML AS
     FUNCTION GENERATE_HTML(TABLE_NAME VARCHAR2, FILE_NAME VARCHAR2, STYLESHEET_QUERY VARCHAR2, WHERE_CLAUSE VARCHAR2, ORDERBY_CLAUSE VARCHAR2) RETURN CLOB IS
     lHTMLOutput XMLType;
     lXSL CLOB;
          lXMLData XMLType;
          FILEID UTL_FILE.FILE_TYPE;
          HTML_RESULT CLOB;
          SQL_QUERY VARCHAR2(300);
          WHERE_QUERY VARCHAR2(200);
          fileDirectory VARCHAR2(100);
          slashPosition NUMBER;
          actual_fileName VARCHAR2(100);
          XML_HTML_REF_CUR_PT XML_HTML_REF_CUR;
          BEGIN
               IF WHERE_CLAUSE IS NOT NULL AND ORDERBY_CLAUSE IS NOT NULL THEN
               SQL_QUERY := 'SELECT * FROM ' || TABLE_NAME ||' WHERE ' || WHERE_CLAUSE || ' ORDER BY ' || ORDERBY_CLAUSE;
                    ELSE IF WHERE_CLAUSE IS NOT NULL AND ORDERBY_CLAUSE IS NULL THEN
                         SQL_QUERY := 'SELECT * FROM ' || TABLE_NAME || ' WHERE ' || WHERE_CLAUSE;
                         ELSE IF WHERE_CLAUSE IS NULL AND ORDERBY_CLAUSE IS NOT NULL THEN
                              SQL_QUERY := 'SELECT * FROM ' || TABLE_NAME || ' ORDER BY ' || ORDERBY_CLAUSE;
                              ELSE IF WHERE_CLAUSE IS NULL AND ORDERBY_CLAUSE IS NULL THEN
                              SQL_QUERY := 'SELECT * FROM ' || TABLE_NAME;
               END IF;
                    END IF;
                         END IF;
                              END IF;
               OPEN XML_HTML_REF_CUR_PT FOR SQL_QUERY;
          lXMLData := GENERATE_XML(XML_HTML_REF_CUR_PT);
               --lXSL := GET_STYLESHEET(STYLESHEET_QUERY);
                              if(lXMLData is not null) then
                              dbms_output.put_line('lXMLData pass');
                              else
                                        dbms_output.put_line('lXMLData fail');
               end if;
               lHTMLOutput := lXMLData.transform(XMLType(STYLESHEET_QUERY));
               --INSERT INTO TEMP_CLOB_TAB2 VALUES(CLOB(lHTMLOutput));
               if(lHTMLOutput is not null) then
                              dbms_output.put_line('lHTMLOutput pass');
                              else
                                        dbms_output.put_line('lHTMLOutput fail');
               end if;
               HTML_RESULT := lHTMLOutput.getclobVal();
               if(HTML_RESULT is not null) then
                              dbms_output.put_line('HTML_RESULT pass'||HTML_RESULT);
                              else
                                        dbms_output.put_line('HTML_RESULT fail');
               end if;
               -- If the filename has been supplied ...
     IF FILE_NAME IS NOT NULL THEN
-- locate the final '/' or '\' in the pathname ...
     slashPosition := INSTR(FILE_NAME, '/', -1 );
     IF slashPosition = 0 THEN
     slashPosition := INSTR(FILE_NAME,'\', -1 );
     END IF;
-- separate the filename from the directory name ...
     fileDirectory := SUBSTR(FILE_NAME, 1,slashPosition - 1 );
     actual_fileName := SUBSTR(FILE_NAME, slashPosition + 1 );
               END IF;
                    DBMS_OUTPUT.PUT_LINE(fileDirectory||' ' ||actual_fileName);
               FILEID := UTL_FILE.FOPEN(fileDirectory,actual_fileName, 'W');
               UTL_FILE.PUT_LINE(FILEID, '<title> hi </title>');
          UTL_FILE.PUT_LINE(FILEID, HTML_RESULT);
               UTL_FILE.FCLOSE (FILEID);
DBMS_OUTPUT.PUT_LINE('CLOB SIZE'||DBMS_LOB.GETLENGTH(HTML_RESULT));               
               RETURN HTML_RESULT;
               --RETURN lHTMLOutput;
          EXCEPTION
                    WHEN OTHERS
                         THEN DBMS_OUTPUT.PUT_LINE('ERROR!!!!!!!!!!!!');
          END GENERATE_HTML;
     FUNCTION GENERATE_XML(XML_HTML_REF_CUR_PT XML_HTML_REF_CUR) RETURN XMLType IS
          qryCtx DBMS_XMLGEN.ctxHandle;
          result CLOB;
          result1 xmltype;
          BEGIN
               qryCtx := DBMS_XMLGEN.newContext(XML_HTML_REF_CUR_PT);
               result := DBMS_XMLGEN.getXML(qryCtx);
               --dbms_output.put_line(result);
               result1 := xmltype(result);
               INSERT INTO temp_clob VALUES(result);
               if(result1 is not null) then
                              dbms_output.put_line('pass');
                              else
                                        dbms_output.put_line('fail');
               end if;
                    return result1;
                    DBMS_XMLGEN.closeContext(qryCtx);
     END GENERATE_XML;     
END CONVERT_XML_TO_HTML;
This is the code which i am using to generate the XML and subsequently to generate the HTML output out of that using a XSL stylesheet.
The error is Numeric or value error..