DB2编程基础要点(2)

CREATE PROCEDURE DB2INST1.Proc1 (  ) 
LANGUAGE SQL 
result sets 2(返回两个结果集) 
------------------------------------------------------------------------ 
-- SQL 存储过程  
------------------------------------------------------------------------ 
P1: BEGIN 
declare c1 cursor  with return to caller for  
select  market_code 
from    tb_market_code; 
--指定该结果集用于返回给调用者 
declare c2 cursor  with return to caller for  
select  market_code 
from    tb_market_code; 
open c1; 
open c2; 
END P1

CREATE PROCEDURE DB2INST1.Proc2 ( 
out out_market_code char(1)) 
LANGUAGE SQL 
------------------------------------------------------------------------ 
-- SQL 存储过程  
------------------------------------------------------------------------ 
P1: BEGIN 
declare loc1,loc2 result_set_locator varying;  
--建立一个结果集数组 
call proc1; 
--调用该SP返回结果集。 
associate result set locator(loc1,loc2) with procedure proc1; 
--将返回结果集和结果集数组关联 
allocate cursor1 cursor for result set loc1; 
allocate cursor2 cursor for result set loc2; 
--将结果集数组分配给cursor 
fetch  cursor1 into out_market_code; 
--直接从结果集中赋值 
close cursor1;          
END P1

DECLARE CURSOR C1 FOR STMT1;  
PREPARE STMT1 FROM 
'ALLOCATE C2 CURSOR FOR RESULT SET ?';

select cast ( current time as char(8)) from tb_market_code

create procedure pr_clear_task_ctrl( 
IN IN_BRANCH_CODE char(4), 
IN IN_TRADEDATE   char(8), 
IN IN_TASK_ID     char(2), 
IN IN_SUB_TASK_ID char(4), 
OUT OUT_SUCCESS_FLAG INTEGER ) 

DYNAMIC RESULT SETS 0 
LANGUAGE C  
PARAMETER STYLE GENERAL WITH NULLS(如果不是这样，
sql 的sp将不能调用该用c写的存储过程，产生保护性错误) 
NO DBINFO 
FENCED 
MODIFIES SQL DATA 
EXTERNAL NAME 'pr_clear_task_ctrl!pr_clear_task_ctrl'@

select * from tb_head_stock_balance with ur