IBM Books

管理与程序设计指南,OS/400 版

SQL 语言环境示例

以下例子显示了具有 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>                       
%}


[ 页的顶部 | 上一页 | 下一页 | 目录 | 索引 ]