调用路径:
存储过程-》调用函数初始化TYPE里变量-》存储过程调用具体级别的日志操作-》调用TYPES实现体TYPE BOBIES里的具体Member实现体-》调用公用的Member成员存储过程写入syslog表。
代码样例展示:
1、存储过程
createorreplaceprocedure sp_message_hisorderdata_create(
p_l_date HsCrmType.LDate%TYPE,
p_vc_customer hscrmtype.vc50%type) IS
v_l_date HsCrmType.LDate%Type;
v_l_currentdate HsCrmType.LDate%Type;
v_vc_customer hscrmtype.vc50%type;
v_l_count HsCrmType.LInt%Type;
v_l_total HsCrmType.LInt%Type;
v_vc_open_value HsCrmType.VC255%Type;
v_vc_open_value_temp HsCrmType.VC255%Type;
v_vc_customer_no HsCrmType.VC20%Type;
vc_product_no HsCrmType.CKind%Type;
vc_product_temp HsCrmType.CKind%Type;
v_vc_prefix HsCrmType.CKind%Type;
v_vc_temp1 HsCrmType.VC255%Type;
v_vc_temp2 HsCrmType.VC255%Type;
v_vc_temp3 HsCrmType.VC255%Type;
v_vc_temp4 HsCrmType.VC255%TYPE;
V_L_SPEAK_NO HsCrmType.LInt%Type;
l_tyLog ty_logManager := ty_logManager('system','003');
begin
l_tyLog.up_Enter('sp_message_hisorderdata_create开始');
v_vc_temp1 := chr(1)||' '||chr(1)||' '||chr(1)||' '||chr(1)||' ';
v_vc_temp2 := chr(1)||' '||chr(1)||' '||chr(1)||' ';
v_vc_temp3 := chr(1)||' '||chr(1)||' ';
v_vc_temp4 := chr(1)||' ';
--zhoudy 2013-01-30 添加初始化赋值
v_vc_open_value := '';
v_l_total := 0;
V_L_SPEAK_NO := 0;
v_l_date := nvl(p_l_date,0);
v_vc_customer := nvl(p_vc_customer,' ');
if v_l_date = 0 then
v_l_date := to_number(to_char(SYSDATE-1,'YYYYMMDD'));
end if;
FOR r IN (SELECT a.vc_customer_no
,a.l_product_no
,'3'AS c_sourcetype
,a.l_de_begin_date AS l_de_begin_date
,a.l_de_end_date AS l_de_end_date
,(SELECT WMSYS.WM_CONCAT(b.vc_open_value) FROM hscrm_dbo.orderinfo b
WHERE b.vc_customer_no=a.vc_customer_no
AND b.l_product_no=a.l_product_no
and b.l_product_no < 20000) AS vc_open_value
,'1'AS c_processtype
FROM hscrm_dbo.speakforrelation a
WHERE--a.l_create_date