Oracle package 的另类调试方法

    由于涉及Oracle不久，有许多调试方法还不是很会，目前用的最多的就是PLSQL developer 自带的调试，虽然没有微软的 VS.net系列好用，比如说查看变量值的时候，如果变量是一个collection，在观察数值里面是显示不出collection里面的具体内容的，但是对于我这个初学者来说已经是大大够用了。

    现在碰到有一个比较棘手的问题，就是在调试的时候，我的某些packages中的函数输入参数是我自定义的nest table，但是PLSQL 调试的时候，输入变量类型中是没有我自己定义的变量类型，这叫我如何是好？google了很长一段时间都没有发现有类似的参考文章。

 

    经过多番反复的折磨和折腾，我终于有了一个我自己的解决方法，虽然挺笨的，但是却行之有效。

    这个方法就是利用邮件~！

    对，没错，就是发邮件。利用sys中的ult_smtp package的函数可以实现发送邮件的功能，这样，我在我觉得有问题的函数当中，“设置断点”，当然这个是个人虚拟的，然后在这个断点后面附上一段发送邮件的代码函数，这样，在运行整个系统的时候，程序到达这个断点，就会发送邮件到指定的邮箱，然后你就知道程序是否运行到此处，你可以在邮件的内容中写上一些信息，如此段点在那个函数中，在那一个代码块，运行的条件是什么，等等，这样就更加清晰。现在我还不知道如何把变量的值写入到邮件中，我不知道如何获取变量的值并赋值到字符串，如果可以的话，这种方法就更加完美了。

 

附上自己写的发送邮件的procedure

   -- ============================================================

   PROCEDURE send_html_mail (

   -- ============================================================

    p_sender_in       IN VARCHAR2,

    p_to_rcpt_in      IN VARCHAR2,

    p_cc_rcpt_in      IN VARCHAR2 DEFAULT NULL,

    p_bcc_rcpt_in     IN VARCHAR2 DEFAULT NULL,

    p_subject_in      IN VARCHAR2,

    p_htmlmsg_in      IN VARCHAR2,

    p_priority_in     IN PLS_INTEGER DEFAULT NULL) IS

 

   l_smtp_conn     UTL_SMTP.connection;

   l_sender        VARCHAR2(32767) := p_sender_in;

   l_to_rcpt       VARCHAR2(32767) := p_to_rcpt_in;

   l_cc_rcpt       VARCHAR2(32767) := p_cc_rcpt_in;

   l_bcc_rcpt      VARCHAR2(32767) := p_bcc_rcpt_in;

 

   BEGIN

      l_smtp_conn := open_session;

      UTL_SMTP.mail(l_smtp_conn, fetch_address(l_sender));

 

      WHILE (l_to_rcpt IS NOT NULL) LOOP

         UTL_SMTP.rcpt(l_smtp_conn, fetch_address(l_to_rcpt));

      END LOOP;

 

      WHILE (l_cc_rcpt IS NOT NULL) LOOP

         UTL_SMTP.rcpt(l_smtp_conn, fetch_address(l_cc_rcpt));

      END LOOP;

 

      WHILE (l_bcc_rcpt IS NOT NULL) LOOP

         UTL_SMTP.rcpt(l_smtp_conn, fetch_address(l_bcc_rcpt));

      END LOOP;

 

      -- Start body of email

      UTL_SMTP.open_data(l_smtp_conn);

 

      -- Set "From" MIME header

      write_mime_header(l_smtp_conn, 'From', p_sender_in);

 

      -- Set "To" MIME header

      write_mime_header(l_smtp_conn, 'To', p_to_rcpt_in);

 

      -- Set "Cc" MIME header

      write_mime_header(l_smtp_conn, 'Cc', p_cc_rcpt_in);

 

      -- Set "Bcc" MIME header

      write_mime_header(l_smtp_conn, 'Bcc', p_bcc_rcpt_in);

 

      -- Set "Subject" MIME header

      write_mime_header(l_smtp_conn, 'Subject', p_subject_in);

 

      -- Set "Reply-To" MIME header

      write_mime_header(l_smtp_conn, 'Reply-To', c_reply_to);

 

      -- Set "Content-Type" MIME header

      write_mime_header(l_smtp_conn, 'Content-Type', c_multipart_mime_type);

 

      -- Set "X-Mailer" MIME header

      write_mime_header(l_smtp_conn, 'X-Mailer', c_mailer_id);

 

      -- Set priority:

      --   High      Normal       Low

      --   1     2     3     4     5

      IF (p_priority_in IS NOT NULL) THEN

         write_mime_header(l_smtp_conn, 'X-Priority', p_priority_in);

      END IF;

 

      -- Send an empty line to denote end of MIME headers and

      -- beginning of message body.

      UTL_SMTP.write_data(l_smtp_conn, UTL_TCP.crlf);

 

      -- Set upper HTML boundary

      write_boundary(l_smtp_conn, FALSE);

      write_text(l_smtp_conn,'content-type: text/html;' || UTL_TCP.crlf || UTL_TCP.crlf);

 

      -- Send HTML content

      write_text(l_smtp_conn, p_htmlmsg_in);

 

      -- Set lower HTML boundary

      write_boundary(l_smtp_conn, TRUE);

 

      -- End mail msg

      end_mail(l_smtp_conn);

 

      -- End mail connection

      end_session(l_smtp_conn);

 

   EXCEPTION

      WHEN UTL_SMTP.transient_error OR UTL_SMTP.permanent_error THEN

         end_session(l_smtp_conn);

         ERR_RAISE_PKG.record_and_continue (

            p_err_in => SQLCODE,

            p_msg_in => 'Failed to send mail due to error : ' || SQLERRM);

 

      WHEN UTL_SMTP.invalid_operation THEN

         end_session(l_smtp_conn);

         ERR_RAISE_PKG.record_and_continue (

            p_err_in => SQLCODE,

            p_msg_in => 'Invalid Operation due to error : ' || SQLERRM);

 

      WHEN OTHERS THEN

         end_session(l_smtp_conn);

         ERR_RAISE_PKG.record_and_continue (

            p_err_in => SQLCODE);

   END send_html_mail;