DECLARE
v_key_ty VARCHAR2(20) := 'COND_OFFER_MSG';
outinfo Order_types.Order_info_tp;
TYPE master_cd_record IS RECORD(
m_key_ty master_cd.key_ty%TYPE,
m_cd master_cd.cd%TYPE,
m_decode master_cd.decode%type,
m_supp_cd master_cd.supp_cd%type);
test_record master_cd_record;
BEGIN
GET_MASTER_CD_DTLS(v_key_ty, outinfo);
loop
FETCH outinfo
into test_record;
EXIT WHEN outinfo%NOTFOUND;
DBMS_OUTPUT.put_line('m_key_ty = ' || test_record.m_key_ty);
DBMS_OUTPUT.put_line('m_cd = ' || test_record.m_cd);
DBMS_OUTPUT.put_line('m_decode = ' || test_record.m_decode);
DBMS_OUTPUT.put_line('m_supp_cd = ' || test_record.m_supp_cd);
DBMS_OUTPUT.put_line('.....');
END LOOP;
END;
Oracle Cursor与Store Procedure
最新推荐文章于 2023-05-26 21:18:06 发布