以下例子显示了具有 DTW_SQL 函数定义的宏(该函数定义调用一个 SQL 存储过程)。它有三个不同 数据类型的参数。DTW_SQL 语言环境将每个参数中的字符串值转换成正确的内部格式,并以“传地址”的 方式将每个参数传递给 SQL 存储过程。当 SQL 存储过程完成处理之后,更新后内部表示被转换成一个 字符串放置在相应的参数中。
%{*********************************************************** ********************DEFINE BLOCK****************************
************************************************************%}
DEFINE {
MACRO_NAME = "TEST ALL TYPES"
DTW_HTML_TABLE = "YES"
Procedure = "NDLIB.TESTTYPE"
parm1 = "1" %{SMALLINT %}
parm2 = "11" %{INT %}
parm3 = "1.1" %{DECIMAL (2,1) %}
%}
%FUNCTION(DTW_SQL) CRTPROC(){
CREATE PROCEDURE $(Procedure)
( INOUT SMALLINT,
INOUT INT,
INOUT DECIMAL(2,1))
EXTERNAL NAME $(Procedure) LANGUAGE C SIMPLE CALL
%MESSAGE{
default : "$(DTW_DEFAULT_MESSAGE) : continuing.<br>": continue
%}
%}
%FUNCTION(DTW_SQL) myProc
(INOUT SMALLINT parm1,
INOUT INT parm2,
INOUT DECIMAL(2,1) parm3){
CALL $(Procedure)
%}
%HTML(REPORT){
<HEAD>
<TITLE>Net.Data : SQL Stored Procedure: Example '$(MACRO_NAME)'. <?TITLE>
</HEAD>
<BODY BGCOLOR="#BBFFFF" TEXT="#000000" LINK="#000000">
<p><p>
Calling the function to create the stored procedure.
<p><p>
@CRTPROC()
< hr>
<h2>
Values of the INOUT parameters
prior to calling the stored procedure:<p>
</h2>
<b>parm1 (SMALLINT)</b><br>
$(parm1)<p>
<b>parm2 (INT)</b><br>
$(parm2)<p>
<b>parm3 (DECIMAL)</b><br>
$(parm3)<p>
<p>
< hr>
<h2>
Calling the function that executes the stored procedure.
</h2>
<p><p>
@myProc(parm1,parm2,parm3)
< hr>
<h2>
Values of the INOUT parameters after
calling the stored procedure:<p>
</h2>
<b>parm1 (SMALLINT)</b><br>
$(parm1)<p>
<b>parm2 (INT)</b><br>
$(parm2)<p>
<b>parm3 (DECIMAL)</b><br>
$(parm3)<p>
</body>
%}