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怎么没有调试工具啊...真麻烦.请熟悉的高手帮我看看.谢谢了.
