example:
CREATE OR REPLACE PACKAGE xxabc AS
TYPE qty_compl_t IS RECORD(
action VARCHAR2(30)
,production_order VARCHAR2(30)
,qty_completed NUMBER
,operation_code NUMBER
,production_card VARCHAR2(30)
,shift
VARCHAR2(10)
,scrap NUMBER
,resource_code VARCHAR(30)
,time_usage NUMBER
,operator VARCHAR2(200)
,reg_date DATE
,crate_id VARCHAR2(200));
TYPE qty_com_table_t IS TABLE OF qty_compl_t INDEX BY
BINARY_INTEGER;
PROCEDURE qtycom
(
p_prod_no
IN VARCHAR2
,p_qty_com_table IN qty_com_table_t
);
END;
/
CREATE OR REPLACE PACKAGE BODY xxabc AS
PROCEDURE qtycom
(
p_prod_no
IN VARCHAR2
,p_qty_com_table IN qty_com_table_t
) IS
BEGIN
dbms_output.put_line('p_prod_no :' ||
p_prod_no);
dbms_output.put_line('p_qty_com_table.count
:' || p_qty_com_table.count);
NULL;
END;
END;
/
DECLARE
l_tab xxabc.qty_com_table_t;
BEGIN
l_tab(1).action := 'hello';
l_tab(2).action := 'world';
xxabc.qtycom('value', l_tab);
END;
No comments:
Post a Comment
comments are welcome