Wednesday, July 3, 2013

NESTED TABLE INITIALIZATION - Work in Progress


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