SQL/PLSQL:oracle存儲過程 集合類型 代碼示例

程序代碼示例:

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;

寫法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;
/