Oracle | TO_LABEL

Oracle TO_LABEL_LIST Version 21c

General Information

Library Note

Morgan's Library Page Header

Which has the higher priority in your organization: Deploying a new database or securing the ones you already have? Looking for a website, and resources, dedicated solely to securing Oracle databases? Check out DBSecWorx.

Purpose Internal component of Label Security

AUTHID DEFINER

Dependencies

LBAC_CACHE	LBAC_LABEL_LIST	LBAC_STANDARD
LBAC_LABEL

Documented No

First Available Not known

Security Model Owned by SYS with EXECUTE granted to PUBLIC

Source {ORACLE_HOME}/rdbms/admin/prvtolsdd.plb

FROM_LABEL

Undocumented

Demo code from $ORACLE_HOME/rdbms/admin/olse112.sql to_label_list.from_label( polid IN BINARY_INTEGER label1 IN XMLTYPE label2 IN XMLTYPE label3 IN XMLTYPE label4 IN XMLTYPE label5 IN XMLTYPE label6 IN XMLTYPE RETURN XMLTYPE;

...

      BEGIN

       
      FOR erow IN cur LOOP

          IF erow.MAX_READ IS NOT NULL THEN

      

            SELECT NLABEL INTO nlabel

            FROM LBACSYS.ols$lab 

            WHERE ILABEL=erow.MAX_READ;

      

            maxr_label := LBACSYS.lbac_label.new_lbac_label(nlabel);

      

            SELECT NLABEL INTO nlabel

            FROM LBACSYS.ols$lab 

            WHERE ILABEL=erow.MAX_WRITE;

      

            maxw_label := LBACSYS.lbac_label.new_lbac_label(nlabel);

      

            SELECT NLABEL INTO nlabel

            FROM LBACSYS.ols$lab

            WHERE ILABEL=erow.MIN_WRITE;

      

            minw_label := LBACSYS.lbac_label.new_lbac_label(nlabel);

      

            SELECT NLABEL INTO nlabel

            FROM LBACSYS.ols$lab

            WHERE ILABEL=erow.DEF_READ;

      

            defr_label := LBACSYS.lbac_label.new_lbac_label(nlabel);

      

            SELECT NLABEL INTO nlabel

            FROM LBACSYS.ols$lab WHERE 

            ILABEL=erow.DEF_WRITE;

      

            defw_label := LBACSYS.lbac_label.new_lbac_label(nlabel);

      

            SELECT NLABEL INTO nlabel

            FROM LBACSYS.ols$lab

            WHERE ILABEL=erow.DEF_ROW;

      

            row_label := LBACSYS.lbac_label.new_lbac_label(nlabel);

      

            label_list := lbacsys.to_label_list.from_label(erow.pol#, maxr_label, maxw_label, minw_label, defr_label, defw_label, row_label);

          END IF;

          ...

        END LOOP;

        COMMIT;

      EXCEPTION

        WHEN OTHERS THEN

          RAISE;

      END;