-- update by zsk at 2002/11/25 as SZ --
-- move from oracle to db2 by dengl 2002-12-8 as sz --
-- 返回值结果：0：执行通过 --
-- 1：执行不通过 --
-- -1：调用本过程时异常出错 --
-- 联合体用户是 ADMINISTRATOR BILL.BILL.* /BILL.CAL.* --
-------------------------------------------------------------------
------------------------------------------------------------------------
P1: BEGIN
--临时变量出错变量
declare rec integer default 0;
declare SQLCODE integer default 0;
declare stmt varchar(1024);
declare at_end integer default 0;
declare r_code integer default 0;
declare state varchar(1024) default 'AAA';--记录程序当前所作工作
declare temp_int integer default 0;
--声明变量
declare v_cycle_str varchar(1000);
declare v_sql_str varchar(2000);
共14页 第1页 第2页 第3页 第4页 第5页 第6页 第7页 第8页 第9页 第10页 第11页 第12页 第13页 第14页
