Oracle Cursor与Store Procedure

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;