PL/SQL:记录 / 集合例子

CREATE OR REPLACE PROCEDURE test_gj_record_collection(

IV_ZZJG_ID  IN VARCHAR2,

IV_QY_ID    IN VARCHAR2,

iv_sbym     IN VARCHAR2

) AS

V_ROWCNT NUMBER := 0; --计数器

v_err_code    varchar2(20); --错误代码 Y:错误 N:正确    --gaoj add 20160505

v_err_msg     varchar2(4000); --错误信息 空 无错误      --gaoj add 20160505

v_ocur_msg    SYS_REFCURSOR ;

-- 写法1: 集合 + 使用定义变量(简单)写法

v_bbname       VARCHAR2(50) := ' ';

v_bbcode       VARCHAR2(30) := ' ';

v_ssq          varchar2(6) := ' ';

v_no           varchar2(4) := ' ';

v_msg2         varchar2(200) := ' ';

v_flag2        varchar2(1) := ' ';

-- 写法2: 集合 + record写法

TYPE R2 IS RECORD (  --定义记录类型

v_bbname      VARCHAR2(50) ,

v_bbcode      VARCHAR2(30) ,

v_ssq         varchar2(6) ,

v_no          varchar2(4) ,

v_msg2        varchar2(200) ,

v_flag2       varchar2(1) );

record_r2 R2 ;     --定义记录变量

-- 写法3: 集合 + %rowtype

-- TYPE .. IS RECORD

TYPE R3 IS RECORD (  --定义记录类型

v_bbname      VARCHAR2(50) ,

v_bbcode      VARCHAR2(30) ,

v_ssq         varchar2(6) ,

v_no          varchar2(4) ,

v_msg2        varchar2(200) ,

v_flag2       varchar2(1) );

TYPE t3 IS TABLE OF R3;

table_t3 t3;

BEGIN

DELETE FROM tt_chk_err; --清理临时表

pkg_sc_jc_sjyzx.p_chk_mxhz(IV_ZZJG_ID, IV_QY_ID, v_err_code, v_err_msg, v_ocur_msg);

if v_err_code = 'Y' then

insert into TT_WM_QRMX_QR (msg)

values ('调用 P_CHK_MXHZ 出现异常'||substr(v_err_msg,0,150));

return;

end if;

-- 写法1:使用定义变量(简单)写法

LOOP

FETCH v_ocur_msg INTO v_bbname,  v_bbcode,  v_ssq,  v_no,  v_msg2,  v_flag2;

exit when v_ocur_msg%notfound;

IF ( nvl(v_msg2,' ') <> ' ' AND v_ssq = iv_sbym )  THEN

v_rowcnt := v_rowcnt + 1;

END IF;

END LOOP;

-- 写法2:使用 record写法

LOOP

FETCH v_ocur_msg INTO record_r2;

exit when v_ocur_msg%notfound;

IF ( nvl(record_r2.v_msg2,' ') <> ' ' AND record_r2.v_ssq = iv_sbym ) THEN

v_rowcnt := v_rowcnt + 1;

END IF;

END LOOP;

-- 写法3: 集合 + record

FOR src IN table_t3.first .. table_t3.last LOOP

exit when v_ocur_msg%notfound;

IF (nvl(table_t3(src).v_msg2,' ') <> ' ' AND table_t3(src).v_ssq = iv_sbym)  THEN

v_rowcnt := v_rowcnt + 1;

END IF;

END LOOP;

IF v_rowcnt > 0 THEN

insert into TT_WM_QRMX_QR(bmc, msg)

SELECT ' ' BMC,

'汇总计算有'||v_rowcnt||'条记录与明细数据不符，请进行<数据一致性检查>' MSG

FROM DUAL;

END IF;

EXCEPTION

WHEN OTHERS THEN

NULL;

end;

/