解析Oracle/Oracle Forms 的多用途代码

     来源：赛迪网    作者：Alice

几年前，当Oracle放弃客户端的Forms的时候，随之消失的那些内置的函数中有一项是关于向警告消息函数(alert message function)传递参数。如果你处理错误或者缺失的输入参数(你应该这么做)，Forms迁移过程的一部分是将这个内置的函数从6i版本改成9i版本。复杂的应用可能包含有上千条警告消息，并且一个主要的应用(即Forms)的变化会导致上千条改变。做这样的改变的确是一件讨人嫌的行为。

另一方面，作为一个使用PL/SQL的DBA和程序员，你到底写过多少次DBMS_OUTPUT.PUT_LINE('')?必须写的或者敲入的DBMS_OUTPUT.PUT_LINE变得非常无聊，使用方便的、内置的短小的代码不是更好吗?可能并不是经过深思熟虑，但是更多的归咎于好运或者意识到同样的东西必须敲一遍又一遍的现实，机灵的Forms程序员们创建了自己的内置函数，采用了过程的方式来产生警告消息。相同的原理可以被用在你日常的PL/SQL代码中。事实上，你可以创建一个小的消息库管理很多类型的输出消息。让我们看看一些这样的可能性。

一个简单的警告消息过程

就像在这一章节标题中表示的那样，第一个方法是非常简单的。假设你有一个常见的需求要输出某个过程、函数或者代码块更新的记录个数。让我们假定被更新行的个数是46。使用下面的过程之后，一个简单的“am(46);”语句就可以你需要的输出：

CREATE OR REPLACE procedure am (msg number) 
as begin dbms_output.put_line
('Records updated: '||msg); end; /

另一个版本可以处理字符串类型，因此对 “ams('your message here');”的调用显著的降低了你敲入的次数。当调试或者解决问题的代码中，有这样一个简单的内置函数对输出“where am I in the code”的语句是非常宝贵的。位置报告可以确认，比如，你进入了IF-THEN-ELSE语句中哪个分支。假如你的问题代码调用了很多次其他的对象(过程、函数等等)，输出像“calling function X”或者“returned from function X”这样的状态信息可以确认过程流。最终，另外一种使用情况是报告数值。你可以报告或者跟踪一个变量的值是如何被改变的。

建立一个警告消息库

当然，你的消息库的复杂性和灵活性完全取决于你。假如你的(输出)消息是简单的，那么保持函数过程简单。更准确的讲，保持函数过程的个数是最少的。只要两个简单的过程，ams和amn，就可以用来输出基于字符串和数值的消息了。

假如你需要让输出的文字内容根据运算的输出有所变化，比如DML语句的输出，那么你可能需要三个新的内置过程(插入、更新和删除运算各一个)。可能你想说明删除的类型或者原因。比如一个批处理作业的某一步是计算重复记录的个数。那么像“Records counted: 46” 这样的输出是足够有用的，但是在这种情况下，“Duplicates counted: 46”会显得更有效。因此，我们增加了2个新的内置过程。

这样，我们现在有了至少6个不同的过程。现在，管理性的问题应该比较明显了。我们寻找一些简单的，但是同时又是健壮的过程。至少有两种方式可以用于重新简化需要的功能。一种方法是让警告消息过程能够接收两个输入参数。另外一种方法，正是我准备介绍的，是把这些过程打包。

增加输入参数的个数

再说一遍，假如前面的简单方法可以满足了你的要求，那么就没必要继续深入了。创建有两个输入参数的过程，第一个参数是消息文字或者说基础，第二个参数可以是输出、位置、状态或者数值。如果你关注数据类型的转化，那么这两个输入参数的组合text/text和text/number都可以统一成text/text类型。你的确必须做这样的转换吗?不，但是为了和你已有的保持一致，如果你在别的地方做了类型映射，那么这里也进行类型映射。不管这些，下面的例子显示了第一种方法的灵活性。

CREATE OR REPLACE procedure am 
(msg1 varchar2, msg2 varchar2) 
as begin dbms_output.put_line(msg1||msg2); end; /

 

编译之后，下面是使用的例子。

SQL> set serveroutput on SQL> exec am
('Here I am',46); Here I am46 PL/SQL procedure 
successfully completed.

好了，这次输出本可以看起来更好一些(注意输出中msg1和msg2中没有空格)。我们到这里就必须格式化一个或者全部两个消息输入让输出好看一些。然而，假如美观不需要关心，那么创建基于像 ('dupes ',46)这样的输入的消息，这样做也是非常简单的，虽然你需要处理空格或者格式化。那么这种方法是否有缺陷呢?这就看情况了。假如你需要的仅仅是msg1，而不需要msg2，怎么办?当创建这个过程，需要允许msg2是null值。显然，msg1不需要这样，对吧?

CREATE OR REPLACE procedure am (msg1 
varchar2, msg2 varchar2 default null) 
as begin dbms_output.put_line(msg1||msg2); 
end; / Procedure created. SQL> exec am
('Where am I?'); Where am I? PL/SQL 
procedure successfully completed.

增加健壮性

假如你的消息很长，或者需要填满被spool的输出中的一页?让我们暂时忽略自动换行(word wrapping)，分切文本的一个简单的方法是合适的截取子串。这种情况迫切需要递归(recursion)，当然，理解递归的最好方法是首先理解递归(对不起，老笑话了)。分切过程将执行长度检查，假如剩下的字符串比你设置的要切除的值长，那么调用截取子串过程，必要的时候进行重复上面的过程。

假如截取发生在一个单词的中间怎么办?好，记住，这是PL/SQL，而不是字处理程序。在Forms环境中，当文本输入到了一个文本字段，一般你都可以获得自动的格式化。你的确可以通过SQL*Plus使用一些格式化功能，但是请确信选择了符合你需要的正确的类型。使用八个由A到J组成的字符串(在J之后有一个空格)，设置linesize为low(容易看出自动换行选项的区别)，下面的例子展示了结果。

set serveroutput on format word_wrapped exec 
am(insert the 8 strings here); abcdefghij 
abcdefghij abcdefghij abcdefghij abcdefghij 
abcdefghij abcdefghij abcdefghij set 
serveroutput on format wrapped exec am
(insert the 8 strings here); abcdefghij 
abcdefghij abcdefgh ij abcdefghij 
abcdefghij abcde fghij abcdefghij abcdefghij

上面例子教育我们要利用现有的内置的功能。不必重新发明轮子?假如“FORMAT WORD_WRAPPED”没有，那么你怎么解决?第二个例子就显示了递归方法造成的直接的截取结果。

将你的库打成包(Package)

O'Reilly出版社的《Oracle PL/SQL Developer's Workbook》 (Steven Feuerstein编写,2000年出版)中有一个关于如何创建基础库的很好的例子，并且这个例子利用了重载(overload)。你可能从以前的一篇文章中回忆起来，重载允许你在一个包(package)中使用相同的名字命名函数或者过程，并且Oracle通过比较参数的个数和类型能够知道你引用了哪个版本的函数或者过程。

一个明智的命名方法，尤其当你和Java程序员共事的话，会将包命名为“prt”，将过程命名为“ln”。这样最后的结果是“prt.ln('your message');”。Java中打印一行的方法是使用System.out.println()，这样你可以看出从目的和功能上为什么“prn.ln”这个名字很直观。在那本书中的例子处理文本、数字、日期和布尔类型的输入。

CREATE or REPLACE package prt is 
Procedure ln (msg in varchar2); 
Procedure ln (msg in number); 
Procedure ln (msg in date);
Procedure ln (msg in boolean); END prt; /

上面的过程可以被扩展以包含其他的例子或者前面提到的情况。你可以让输出文字采用内置的格式。只要加入“Procedure dup(msg in number” 到包中，那么像“prt.dup(46);” 这样的调用会产生 “Duplicates counted: 46.”的输出消息。

结束语

假如有一天Oracle公司改变或者不支持内置的DBMS_OUTPUT过程，怎么办?在你的代码中有多少地方使用了这个过程?将这个功能打包到你自己的库的美妙之处在于你只需要更新一处代码——在包中的那些代码。Forms程序员社区已经花费了数千小时更新数千个，如果不是数百万的话，forms的二进制文件，因为警告消息功能或者规范发生了变化。对于DBA和程序员来说，这是宝贵的一课，教会他们如何利用Oracle提供的东西来让事情满足自己需求。