CREATE OR REPLACE TYPE APPS.wwt_xx_wms_serial_number_type AS TABLE OF VARCHAR2 (30)
CREATE OR REPLACE TYPE APPS.wwt_xxwms_item_reserve_rectype AS OBJECT (
doc_name VARCHAR2 (100),
doc_source_type_id NUMBER,
doc_header_id NUMBER,
doc_line_id NUMBER,
inventory_item_id NUMBER,
uom VARCHAR2 (10),
quantity NUMBER,
serial_number wwt_xx_wms_serial_number_type
)
CREATE OR REPLACE TYPE APPS.wwt_xxwms_item_reserve_tabtype AS TABLE OF apps.wwt_xxwms_item_reserve_rectype
DECLARE
l_return_status VARCHAR2 (10);
l_return_message VARCHAR2 (32000);
l_item_reservation_rec wwt_xxwms_item_reserve_rectype := wwt_xxwms_item_reserve_rectype (null,null,null,null,null,null,null,wwt_xx_wms_serial_number_type() );
l_item_reservation_tbl wwt_xxwms_item_reserve_tabtype := wwt_xxwms_item_reserve_tabtype();
BEGIN
l_item_reservation_rec := wwt_xxwms_item_reserve_rectype (null,null,null,null,null,null,null,wwt_xx_wms_serial_number_type() );
l_item_reservation_rec.doc_line_id := 24550833;
l_item_reservation_rec.serial_number.EXTEND;
l_item_reservation_rec.serial_number(1) := 'X531316060';
l_item_reservation_rec.serial_number.EXTEND;
l_item_reservation_rec.serial_number(2) := 'X531316061';
l_item_reservation_tbl.EXTEND;
l_item_reservation_tbl(1) := l_item_reservation_rec;
l_item_reservation_rec := wwt_xxwms_item_reserve_rectype (null,null,null,null,null,null,null,wwt_xx_wms_serial_number_type() );
l_item_reservation_rec.doc_line_id := 24550834;
l_item_reservation_rec.serial_number.EXTEND;
l_item_reservation_rec.serial_number(1) := 'X531316062';
l_item_reservation_rec.serial_number.EXTEND;
l_item_reservation_rec.serial_number(2) := 'X531316063';
l_item_reservation_rec.serial_number.EXTEND;
l_item_reservation_rec.serial_number(3) := 'X531316064';
l_item_reservation_rec.serial_number.EXTEND;
l_item_reservation_rec.serial_number(4) := 'X531316065';
l_item_reservation_tbl.EXTEND;
l_item_reservation_tbl(2) := l_item_reservation_rec;
FOR idx IN l_item_reservation_tbl.FIRST .. l_item_reservation_tbl.LAST LOOP
DBMS_OUTPUT.put_line ( idx||'Doc line id '||l_item_reservation_tbl(idx).doc_line_id);
FOR srl_idx IN l_item_reservation_tbl(idx).serial_number.FIRST .. l_item_reservation_tbl(idx).serial_number.LAST LOOP
DBMS_OUTPUT.put_line (srl_idx|| 'serial number '||l_item_reservation_tbl(idx).serial_number(srl_idx));
END LOOP;
END LOOP;
DBMS_OUTPUT.put_line ('l_return_status => ' || l_return_status);
DBMS_OUTPUT.put_line ('ln_msg_count => ' || l_return_message);
END;
No comments:
Post a Comment