请高手帮我看看这个DB2存储过程,谢谢了！！！

[mx1029]

CREATE PROCEDURE payment.batsave_bars (
in number integer,
in areaid integer,
)

LANGUAGE SQL

BEGIN
DECLARE init INT 0;
DECLARE Bar varchar(10);
DECLARE BarCode varchar(10);
DECLARE LoginName varchar(10);
DECLARE ID int;

WHILE (init < number)
DO
SET ID = NEXT VALUE FOR payment.Seq_Bars_Id;
-- insert bars
insert into payment.bars
(id,AREA_ID,BAR_NAME,BAR_CODE,LOGIN_NAME,ADDRESS,CONTACT,MOBILE,TEL,EMAIL,ZIP_CODE,PASSWORD,CREATE_TIME,LAST_MODIFIED,
STATUS,DOWNLOAD_EXPIRE,CREATOR_ID,LAST_MODIFIER_ID,PROFIT_MARGIN)
values
(ID,areaid,Bar||char(init),BarCode||char(init),LoginName||char(init),'','','','','','','',current date,char(current date),
0,char(current date),1,1,1);

-- insert bar_accounts
insert into payment.bar_accounts (BAR_ID,BALANCE,LAST_MODIFIED) values (ID,0,char(current date));

-- insert bar_detail
insert into payment.bar_detail (BAR_ID) values (ID);

SET init = init + 1;

END WHILE;

END

老是报错,我是在MYECLIPSE数据库视图调的...又不知道错在哪里...DB2怎么没有调试工具啊...真麻烦.请熟悉的高手帮我看看.谢谢了.

[王帆]

报什么错，能贴出来吗？
db2有调试工具呀，developer workbench，常说的DWB，挺好用的。

[mx1029]

Error: END-OF-STATEMENT;BEGIN;JOIN <joined_table>
SQLState: 42601
ErrorCode: -104

CREATE PROCEDURE payment.batsave_bars
( in number integer, in areaid integer )

LANGUAGE SQL

BEGIN

(问题就出在这里面，不知道错在哪里)

END

[mx1029]

哎。。DB2我觉得根本就是一垃圾，资料又少，工具也不好用。不知道有什么存在意义。。。网上找点资料，都是你抄我我抄你的。。根本没有参考价值。。

[yangxiao_jiang]

in areaid integer --这里没有，
DECLARE init INT 0; --DECLARE init INT DEFAULT 0;

BEGIN----P1:BEGIN

END ---- END P1
然后你再看看是否还有错误

[mx1029]

An unexpected token "END-OF-STATEMENT" was found follwing "END P1". Expected tokens may include: "JOIN <joined_table>"

谢谢楼上的关心.我改过了,不过错误依旧...由于时间问题,没有办法在这上面耗,所以原打算在存储过程中实现的批量插入数据,只能放弃,我只能放到外面的层来循环插入了...哎,为了这个还被不少小人浇了冷水..被打击得不行..

CREATE PROCEDURE payment.batsave_bars (
in number integer,
in areaid integer
)

LANGUAGE SQL

P1:BEGIN
DECLARE init INT DEFAULT 0;

WHILE (init < number) DO
SET ID = NEXT VALUE FOR payment.Seq_Bars_Id;

-- insert bar_detail
insert into payment.bar_detail (BAR_ID) values (ID);

SET init = init + 1;

END WHILE;

END P1

改成这样简单了,还是不行...

[yangxiao_jiang]

payment.Seq_Bars_Id--这个是哪来的？

[mx1029]

这个是建立的一个Sequence,虽说现在程序是可以跑起来了,但是心还是有不甘,怎么这么简单的存储过程就搞不定呢??!!!

[yangxiao_jiang]

DECLARE init INT DEFAULT 0;
DECLARE ID INT DEFAULT 0; ---需要定义id

WHILE (init < number) DO
SET ID = NEXTVAL FOR payment.Seq_Bars_Id;

-- insert bar_detail
insert into payment.bar_detail (BAR_ID) values (ID);

SET init = init + 1;

END WHILE;

我这里调试正常,db2 v8.2