PB调用DB2存储过程，报错[IBM][CLI Dviver][DB2/NT]SQL0104N 在"WU.CXXTRQS(PI_AGR"后面找到异常标记"='。预期标记可能包括:","。

[huihuishou]

1、DB2存储过程在DB2数据库中已生成，且用DB2 CLP执行很正常
2、PB使用ODBC连接DB2数据库，检索数据正常，就是调用后台过程就不行了,出错信息见标题。

db2存储过程如下：
CREATE PROCEDURE "CXXTRQS"
(IN "PI_ARG" VARCHAR(100),
OUT "PO_ARG" VARCHAR(100),
OUT "PO_FHZ" VARCHAR(200),
OUT "PO_MSG" VARCHAR(200)
)
--EXTERNAL NAME 'CXXTRQS'
SPECIFIC CXXTRQS
--CONTAINS SQL
LANGUAGE SQL
BEGIN
DECLARE SQLCODE INTEGER default 0;
DECLARE SQLSTATE CHAR(5);
DECLARE v_errnum INTEGER default 0;
DECLARE V_CUR_TIME TIMESTAMP;
DECLARE CONTINUE HANDLER FOR SQLEXCEPTION,SQLWARNING,NOT FOUND
Set v_errnum = SQLCODE;

SELECT WU.TO_CHAR(CURRENT TIMESTAMP,'YYYYMMDDHH24MISS')
INTO PO_ARG
FROM DUAL;

IF V_ERRNUM <> 0 THEN
SET PO_FHZ = 'CXXTRQS'||digits(v_errnum);
SET PO_MSG = 'CXXTRQS查询系统日期字符串失败，错误信息'||SQLSTATE;
SET PO_ARG = NULL;
ELSE
SET PO_FHZ = '1';
SET PO_MSG = '' ;
--SET PO_ARG = coalesce(V_SBJGH,'')||CHR(2)||coalesce(V_JFDQDM,'');
END IF;

END!

PB中调用存储过程脚本如下：
DECLARE lprc_1 PROCEDURE FOR WU.CXXTRQS
PI_ARG = :ls_in_argu,
PO_ARG = :ls_out_argu OUT,
PO_FHZ = :ls_fhz OUT,
PO_MSG = :ls_msg OUT;

ls_in_argu="1"

execute lprc_1;
gf_msg(STRING(sqlca.sqlcode)+sqlca.sqlerrtext,111)
//fetch lprc_1 into :as_out_argu,:as_fhz,:as_msg;
DO WHILE SQLCA.SQLcode = 0
FETCH lprc_1 INTO :ls_out_argu,:ls_fhz,:ls_msg;
LOOP

gf_msg(STRING(sqlca.sqlcode)+sqlca.sqlerrtext,111)
close lprc_1;
gf_msg(STRING(sqlca.sqlcode)+sqlca.sqlerrtext,111)

gf_msg(ls_out_argu,111)

[AFIC]

DB2的没用过,帮顶.

[dawugui]

以下内容为PB调用sql server和oracle的.

声明存储过程

　　CREATE PROCEDURE sp_results_demo @InParmInt Int,@OutParmInt OUTPUT

　　AS

　　BEGIN

　　SELECT 1,2,3,4

　　SELECT uid,id

　　FROM sysobjects

　　WHERE type='U'

　　SELECT @OutParmInt=69

　　Return 16

　　END

　　用于返回每个返回值时用PowerScrip如下：

　　Long lReturn,lPram1,lPram2,lResult1,lResult2,lResult3,lResult4,lResult5,lResult6

　　DECLARE results_demo PROCEDURE FOR

　　@returnValue=sp_results_demo

　　@InParmInt = :lPram1,

　　@OutParmInt = :lPram2 OUTPUT using sqlca;

　　execute results_demo;

　　Do While SQLCA.SQLCode=0

　　　Fetch results_demo INTO :lResult1,:lResult2,:lResult3,:lResult4 ;

　　Loop

　　Fetch results_demo INTO :lResult5,:lResult6 ;

　　Do While sqlca.sqlcode=0

　　　Fetch results_demo Into :lResult5,:lResult6;

　　Loop

　　Fetch results_demo Into :lReturn,:lPram2;

　　Close results_demo ;

[dawugui]

存储过程简介

一、存储过程介绍
　　存储过程是由流控制和SQL语句书写的过程，这个过程经编译和优化后存储在数据库服务器中，使用时只要调用即可。在ORACLE中，若干个有联系的过程可以组合在一起构成程序包。
　　使用存储过程有以下的优点：
　　* 存储过程的能力大大增强了SQL语言的功能和灵活性。存储过程可以用流控制语句编写，有很强的灵活性，可以完成复杂的判断和较复杂的运算。
　　* 可保证数据的安全性和完整性。
　　# 通过存储过程可以使没有权限的用户在控制之下间接地存取数据库，从而保证数据的安全。
　　# 通过存储过程可以使相关的动作在一起发生，从而可以维护数据库的完整性。
　　* 再运行存储过程前，数据库已对其进行了语法和句法分析，并给出了优化执行方案。这种已经编译好的过程可极大地改善SQL语句的性能。
　　由于执行SQL语句的大部分工作已经完成，所以存储过程能以极快的速度执行。
　　* 可以降低网络的通信量。
　　* 使体现企业规则的运算程序放入数据库服务器中，以便：
　　# 集中控制。
　　# 当企业规则发生变化时在服务器中改变存储过程即可，无须修改任何应用程序。企业规则的特点是要经常变化，如果把体现企业规则的运算程序放入应用程序中，则当企业规则发生变化时，就需要修改应用程序工作量非常之大（修改、发行和安装应用程序）。如果把体现企业规则的运算放入存储过程中，则当企业规则发生变化时，只要修改存储过程就可以了，应用程序无须任何变化。
　　不同数据库存储过程的写法不一，在后面的讲座中将分别介绍ORACLE和SYBASE存储过程的用法。

　　二、ORACLE 的存储过程
　　ORACLE 创建存储过程的语法为：
　　create [or replace] procedure 过程名
　　参数1 [in|out|in out] 数据类型
　　[,参数2 [in|out|in out] 数据类型]...
　　{is|as} pl/sql 语句
　　下面举例说明ORACLE数据库存储过程的写法和用法。
　　可以建立一个存储过程，每当用户修改数据库的重要数据时，即把用户的用户名、日期和操作类型记录下来：
　　create procedure update_log is
　　begin
　　　insert into update_log_tab(use_name,update_date,operation)
　　　values(user,sysdate,'update'
　　end;
　　可以在恰当的位置调用这个存储过程来记录用户对表的修改。例如下面在表sal_comm上建立一个修改触发器，每当用户修改此表后，用户的名称、修改时间和操作即被记录在了表update_log_tab中：
　　create trigger audit_update
　　after update on sal_comm
　　for each row
　　begin
　　　update_log
　　end

　　三、Sybase的存储过程
　　尽管Sybase存储过程的功能和写法与ORACLE类似，但他们之间还是有一定的差别。下面讲述SYBASE的存储过程。
　　SYBASE可以用CREATE PROCedure命令生成存储过程：
　　CREATE PROCedure 存储过程名 [；number]
　　[[(] @parameter_name datatype [=default] [OUTput]
　　[, @parameter_name datatype [=default] [OUTput]]...[)]]
　　[WITH RECOMPILE]
　　AS SQL_statements
　　下面是一个查询作者编码、名称和生日的存储过程：
　　create proc p_auths @author_code varchar(10)
　　as
　　select author_code, name, birthdate
　　from auths
　　where author_code=@author_code
　　下面执行过程p_auths:
　　p_auths @author_code=A00001
　　在CREATE PROC语句中，可以为参数赋缺省值，该值可以是任何常量。当用户不提供参数值时，该值便作为参数值提供给过程。

谈谈PB中存储过程（Stored Proedure）的使用
　　1、定义：
　　存储过程（Stored Produre）是为了完成特定的功能而汇集成一组的SQL语句集，并为该组SQL语句命名，经编译后存储在SQL Server的数据库中。用户可以根据需要决定是否在每次执行时让SQL Server进行重新编译。用户可以指定存储过程的名字和给出参数来执行它。
　　语法：
　　创建存储过程：
　　CREATE PROC procedure_name(@parameter_name datatype [OUTPUT][,@parameter_name datatype[OUTPUT]…])
　　AS
　　SQL_statements
　　[RETURN]
　　执行存储过程：
　　EXEC procedure_name [@parameter_name = value[,@parameter_name = ] @variable output ……]

　　2、存储过程的优点：
　　使用存储过程可以提高：
　　安全性
　　一致性
　　数据完整性
　　响应速度
　　应用开发效率

　　3、应用举例：
　　用存储过程进行对输入仓位的查询:
　　表inventory的字段为： site,supplier,style,kind,color,size,qty…
　　Create Proc proc_qty_inventory(@lnsite char(3))
　　As
　　select supplier,style,kind,color,size,qty…
　　from inventory
　　where site = @lnsite
　　return

[huihuishou]

[Quote=引用 1 楼 dawugui 的回复:]
以下内容为PB调用sql server和oracle的.

声明存储过程

　　CREATE PROCEDURE sp_results_demo @InParmInt Int,@OutParmInt OUTPUT

谢谢你的答复，我这些过程和语法在ORACLE数据库中是可以执行成功的，我已经试了。
现在的问题，就是同样的语法，用DB2数据库就是执行报错。

[dawugui]

[Quote=引用 3 楼 huihuishou 的回复:]
[Quote=引用 1 楼 dawugui 的回复:]
以下内容为PB调用sql server和oracle的.

声明存储过程

　　CREATE PROCEDURE sp_results_demo @InParmInt Int,@OutParmInt OUTPUT

谢谢你的答复，我这些过程和语法在ORACLE数据库中是可以执行成功的，我已经试了。
现在的问题，就是同样的语法，用DB2数据库就是执行报错。
[/Quote]
DB2的没用过,帮顶.

[asdftest]

要做网站的朋友看过来：会打字就会做网站，空间、域名、网站程序全包！

[SKY_4K_PPM]

DB2没用过

[v888]

mark

[meiZiNick]

这个简单啊,网上搜一下就得到答案了.