Oracle - Proceso almacenado

CREATE PROCEDURE

IS

BEGIN

SELECT DECODE ('OBJECT_TYPE','TABLE','GRANT SELECT, INSERT, UPDATE, DELETE ON '||'wbalaguera'||'.',

'VIEW','GRANT SELECT ON '||'wbalaguera'||'.',

'SEQUENCE','GRANT SELECT ON '||'wbalaguera'||'.',

'PROCEDURE','GRANT EXECUTE ON '||'wbalaguera'||'.',

'PACKAGE','GRANT EXECUTE ON '||'wbalaguera'||'.',

'FUNCTION','GRANT EXECUTE ON '||'wbalaguera'||'.' )||object_name||' TO CAL_DML_ALL ;'

FROM user_objects

WHERE

OBJECT_TYPE IN ( 'TABLE', 'VIEW', 'SEQUENCE', 'PROCEDURE', 'PACKAGE','FUNCTION')

and lower(object_name) not like '%tableau%'

AND lower(object_name) not like '%qos_%'

AND lower(object_name) not like 'sni_%'

AND lower(object_name) not like '%#t%'

and CREATED>to_date('18/02/2019','dd/mm/yyyy')

ORDER BY OBJECT_TYPE;

END;

CREATE OR REPLACE PACKAGE test AS

    TYPE measure_record IS RECORD(

       l4_id VARCHAR2(50),

       l6_id VARCHAR2(50),

       l8_id VARCHAR2(50),

       year NUMBER,

       period NUMBER,

       VALUE NUMBER);

    TYPE measure_table IS TABLE OF measure_record;

    FUNCTION get_ups(foo NUMBER)

        RETURN measure_table

        PIPELINED;

END;

CREATE OR REPLACE PACKAGE BODY test AS

    FUNCTION get_ups(foo number)

        RETURN measure_table

        PIPELINED IS

        rec            measure_record;

    BEGIN

        SELECT 'foo', 'bar', 'baz', 2010, 5, 13

          INTO rec

          FROM DUAL;

        -- you would usually have a cursor and a loop here

        PIPE ROW (rec);

        RETURN;

    END get_ups;

END;