CREATE OR REPLACE PROCEDURE CALL_STACK_DMP(file_ptr VARCHAR2 DEFAULT NULL) IS
--============================================================================
-- Copywright 2002, Ed Campbell
--=============================================================================
-- DESCRIPTION: Writes error stack out to  a text file.  
--
--=============================================================================
-- MODIFICATION HISTORY
-- Person      Date       Comments
-- ---------   ---------- --------------------------------------------
-- Ed          07/17/2001 Initial Creationn; 
--=============================================================================
         config_file UTL_FILE.FILE_TYPE;
         v_stmt      VARCHAR2(2000);
      BEGIN
         config_file := UTL_FILE.FOPEN('D:\LOG','STACK_DMP'||file_ptr||'.TXT','W');
         v_stmt := DBMS_UTILITY.FORMAT_CALL_STACK;
         UTL_FILE.PUT_LINE(config_file,SUBSTR(v_stmt,1,500) );
         UTL_FILE.PUT_LINE(config_file,SUBSTR(v_stmt,501,500) );
         UTL_FILE.PUT_LINE(config_file,SUBSTR(v_stmt,1001,500) );
         UTL_FILE.PUT_LINE(config_file,SUBSTR(v_stmt,1501,500) );
         UTL_FILE.PUT_LINE(config_file,SUBSTR(v_stmt,2001,500) );
         UTL_FILE.PUT_LINE(config_file,SUBSTR(v_stmt,2501,500) );
         UTL_FILE.FCLOSE(config_file);
      EXCEPTION
        WHEN UTL_FILE.INVALID_PATH
        THEN
            dbms_output.put_line('INVALID PATH ERROR ');
        WHEN UTL_FILE.INVALID_MODE
        THEN  
            dbms_output.put_line('INVALID MODE ERROR ');
        WHEN UTL_FILE.INVALID_FILEHANDLE
        THEN
            dbms_output.put_line('FILEHANDLE ERROR ');
        WHEN UTL_FILE.INVALID_OPERATION
        THEN
            dbms_output.put_line('OPERATION ERROR ');
        WHEN UTL_FILE.READ_ERROR
        THEN
            dbms_output.put_line('READ ERROR ');
        WHEN UTL_FILE.WRITE_ERROR
        THEN
            dbms_output.put_line('WRITE ERROR ');
        WHEN UTL_FILE.INTERNAL_ERROR
        THEN
            dbms_output.put_line('INTERNAL ERROR ERROR ');
      END;