Oracle 记录

CREATE OR REPLACE PACKAGE TESTPACKAGE is
type TEST_CURSOR is REF CURSOR;
PROCEDURE PROCEDURE3 (RNAME IN VARCHAR2, TEST_CURSOR OUT TEST_CURSOR);
END TESTPACKAGE;

CREATE OR REPLACE PACKAGE BODY TESTPACKAGE IS
  PROCEDURE PROCEDURE3 
  (
    RNAME IN VARCHAR2,
    TEST_CURSOR OUT TEST_CURSOR
  ) is
  str_sql varchar2(500);
  BEGIN
    str_sql := ‘select * from ROLE where 1=1 ‘;
    
    if RNAME is not null or NVL(RNAME, ‘null‘) <> ‘null‘ then
         str_sql := str_sql || ‘and RNAME = ‘ || RNAME || ‘‘;
    end if;
    open TEST_CURSOR for str_sql;
    
  END PROCEDURE3;
END TESTPACKAGE;