Replace the following open/fetch/close statements with a cursor FOR loop

Question

Hi anyone could you please help me,
I would like to replace the following open/fetch/close statements with a cursor FOR loop.
Codes are:
CREATE OR REPLACE PROCEDURE COMOES.orchid_shipment_interface IS
  -- get the com shipment header records
  CURSOR c_com_shphdr ( p_dwn_end_dt DATE ) IS
  SELECT custno client_id
       , plheadno plheadno
       , DECODE(carr_no,'FEDX',lading_no,'UPS',lading_no,carrier_pro_no) tracking_no
       , carr_no||'/'||carr_method carrier_id
       , plantid plant_id
       , carr_no
       , lading_no
       , del_custaddr ship_to_id
       , ol_type cfm_order_type
       , del_custno
       , shipterm    freight_terms
       , del_custattn attn_line
       , custaddr
    FROM com_plhead@com_pricing.world
   WHERE status = '9'
     AND (mod_dat) > p_dwn_end_dt;
  -- get the com shipment address records
  CURSOR c_com_shpadr (p_custaddr VARCHAR2) IS
  SELECT name1 addr_name
       , street1 addr_line1
       , street2 addr_line2
       , city city
       , state state_cd
       , zip zip
       , country country_cd
       , phone work_phone
       , email email1
    FROM com_address@com_pricing.world
   WHERE addr_id = p_custaddr;
  -- get the com shipment detail records
  CURSOR c_com_shpdtl ( p_plheadno NUMBER) IS
  SELECT pll.plheadno pllheadno
       , pll.pllineno ord_line_no
       , pll.ol_no erp_line_no
       , pll.ol_segno
       , pll.fg_id sku
       , pll.qty_shipped ship_qty
       , pll.ordno erp_ord_no
       FROM com_plline@com_pricing.world pll
   WHERE pll.plheadno = p_plheadno
     AND NOT EXISTS (SELECT '1'
                       FROM com_pkg_int_interface@com_pricing.world  cpi
                      WHERE pll.ordno = cpi.ordno
                        AND pll.ol_no = cpi.ol_no);
  -- type declaration
  -- type declaration of com table.
  TYPE t_com_shphdr IS TABLE OF c_com_shphdr%ROWTYPE INDEX BY BINARY_INTEGER;
  TYPE t_orchid_shphdr IS TABLE OF orchid_shipment_hdr_intf%ROWTYPE INDEX BY BINARY_INTEGER;
  TYPE t_com_shpadr IS TABLE OF c_com_shpadr%ROWTYPE INDEX BY BINARY_INTEGER;
  TYPE t_orchid_shpadr IS TABLE OF orchid_shipment_address_intf%ROWTYPE INDEX BY BINARY_INTEGER;
  TYPE t_com_shpdtl IS TABLE OF c_com_shpdtl%ROWTYPE INDEX BY BINARY_INTEGER;
  TYPE t_orchid_shpdtl IS TABLE OF orchid_shipment_dtl_intf%ROWTYPE INDEX BY BINARY_INTEGER;
  lv_company_code       com_customer.business_unit%TYPE;
  lv_erp_ord_no         com_plline.ordno%TYPE;
  lv_actual_ship_date   com_plline.confirm_date%TYPE;
  lv_po_no              com_oline.po_no%TYPE;
  lv_ord_date           com_oline.entrydate%TYPE;
  lv_hdr_batch_ctrl_no  download_batch_info.batch_ctrl_no%TYPE;
  lv_adr_batch_ctrl_no  download_batch_info.batch_ctrl_no%TYPE;
  lv_dtl_batch_ctrl_no  download_batch_info.batch_ctrl_no%TYPE;
  lv_sku_desc           com_salesitem.title%TYPE;
  lv_ord_qty            com_oldelseg.qty%TYPE;
  lr_com_shphdr    t_com_shphdr;
  lr_orchid_shphdr t_orchid_shphdr;
  lr_com_shpadr    t_com_shpadr;
  lr_orchid_shpadr t_orchid_shpadr;
  lr_com_shpdtl    t_com_shpdtl;
  lr_orchid_shpdtl t_orchid_shpdtl;
  -- variable declaration
  ln_shphdr_seq    NUMBER(10):= 0;
  ln_shpadr_seg    NUMBER(10):= 0;
  ln_shpdtl_seq    NUMBER(10):= 0;
  cnt              NUMBER(10):= 0;
  cnt1             NUMBER(10):= 0;
  ld_hdr_dwn_end_dt           download_batch_info.download_end_tstamp%TYPE;
  lc_hdr_dwn_status           download_batch_info.dwn_status%TYPE;
  ld_hdr_download_end_tstamp  DATE;
  ln_hdr_running_seq          NUMBER(10) := 0;
  ld_adr_dwn_end_dt           download_batch_info.download_end_tstamp%TYPE;
  lc_adr_dwn_status           download_batch_info.dwn_status%TYPE;
  ld_adr_download_end_tstamp  DATE;
  ln_adr_running_seg          NUMBER(10) := 0;
  ld_dtl_dwn_end_dt           download_batch_info.download_end_tstamp%TYPE;
  lc_dtl_dwn_status           download_batch_info.dwn_status%TYPE;
  ld_dtl_download_end_tstamp  DATE;
  ln_dtl_running_seq          NUMBER(10) := 0;
BEGIN
  -- get the batch control number details from batch information table for shipment header
  BEGIN
    SELECT batch_ctrl_no
         , NVL(download_end_tstamp,TO_DATE('01/01/1980','MM/DD/YYYY'))
         , dwn_status
      INTO lv_hdr_batch_ctrl_no
         , ld_hdr_dwn_end_dt
         , lc_hdr_dwn_status
      FROM comoes.download_batch_info
     WHERE download_id = 'ORCHID_SHIPMENT_HDR_INTF';
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE (' No Data Found for ORCHID_SHIPMENT_HDR_INTF in Download Batch Info table...!!!');
      RAISE;
    WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE (' Too Many Rows found for ORCHID_SHIPMENT_HDR_INTF in Download Batch Info table...!!!');
      RAISE;
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE (' Following error occured while getting batch control number for ORCHID_SHIPMENT_HDR_INTF in Download Batch Info table...!!!'||SQLERRM);
      RAISE;
  END;
  -- get the batch control number details from batch information table for shipment address
  BEGIN
    SELECT batch_ctrl_no
         , NVL(download_end_tstamp,TO_DATE('01/01/1980','MM/DD/YYYY'))
         , dwn_status
      INTO lv_adr_batch_ctrl_no
         , ld_adr_dwn_end_dt
         , lc_adr_dwn_status
      FROM comoes.download_batch_info
     WHERE download_id = 'ORCHID_SHIPMENT_ADDRESS_INTF';
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE (' No Data Found for ORCHID_SHIPMENT_ADDRESS_INTF in Download Batch Info table...!!!');
      RAISE;
    WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE (' Too Many Rows found for ORCHID_SHIPMENT_ADDRESS_INTF in Download Batch Info table...!!!');
      RAISE;
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE (' Following error occured while getting batch control number for ORCHID_SHIPMENT_ADDRESS_INTF in Download Batch Info table...!!!'||SQLERRM);
      RAISE;
  END;
  -- get the batch control number details from batch information table for shipment details
  BEGIN
    SELECT batch_ctrl_no
         , NVL(download_end_tstamp,TO_DATE('01/01/1980','MM/DD/YYYY'))
         , dwn_status
      INTO lv_dtl_batch_ctrl_no
         , ld_dtl_dwn_end_dt
         , lc_dtl_dwn_status
      FROM download_batch_info
     WHERE download_id = 'ORCHID_SHIPMENT_DTL_INTF';
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      DBMS_OUTPUT.PUT_LINE (' No Data Found for ORCHID_SHIPMENT_DTL_INTF in Download Batch Info table...!!!');
      RAISE;
    WHEN TOO_MANY_ROWS THEN
      DBMS_OUTPUT.PUT_LINE (' Too Many Rows found for ORCHID_SHIPMENT_DTL_INTF in Download Batch Info table...!!!');
      RAISE;
    WHEN OTHERS THEN
      DBMS_OUTPUT.PUT_LINE (' Following error occured while getting batch control number for ORCHID_SHIPMENT_DTL_INTF in Download Batch Info table...!!!'||SQLERRM);
      RAISE;
  END;
  -- if previous run is not sucess then do nothing and return.
  OPEN c_com_shphdr ( ld_hdr_dwn_end_dt ) ;
  LOOP
    -- delete the collection for every cycle
    lr_com_shphdr.DELETE;
    lr_orchid_shphdr.DELETE;
    lr_com_shpadr.DELETE;
    lr_orchid_shpadr.DELETE;
    lr_com_shpdtl.DELETE;
    lr_orchid_shpdtl.DELETE;
    -- fetch the order header records to collection
    FETCH c_com_shphdr BULK COLLECT INTO lr_com_shphdr LIMIT 500;
    -- where there is no record in the collection the exit from the loop
    EXIT WHEN lr_com_shphdr.COUNT = 0;
    -- build your logic there to populate the data into order header collection.
      FOR i IN 1..lr_com_shphdr.COUNT
      LOOP
        -- accumulate header running sequence number
        ln_hdr_running_seq := ln_hdr_running_seq + 1;
        ln_shphdr_seq      := ln_hdr_running_seq;
         -- Get the business unit for the customer from com_customer
        BEGIN
          SELECT business_unit
            INTO lv_company_code
            FROM com_customer@com_pricing.world
           WHERE custno = lr_com_shphdr(i).del_custno;
        EXCEPTION
        WHEN OTHERS THEN
          lv_company_code := NULL;
        END;
        -- Get the ordno, confirm_date from COM_PLLINE
        BEGIN
        SELECT ordno
             , confirm_date
          INTO lv_erp_ord_no
             , lv_actual_ship_date
          FROM com_plline@com_pricing.world cpl
         WHERE cpl.plheadno = lr_com_shphdr(i).plheadno
           AND ROWNUM = 1;
        EXCEPTION
        WHEN OTHERS THEN
          lv_erp_ord_no       := NULL;
          lv_actual_ship_date := NULL;
        END;
        -- Get the po_no, Entry_date from COM_OLINE
        BEGIN
          SELECT po_no
               , entrydate
            INTO lv_po_no
               , lv_ord_date
            FROM com_oline@com_pricing.world col
           WHERE col.ordno = lv_erp_ord_no
             AND ROWNUM = 1;
        EXCEPTION
        WHEN OTHERS THEN
          lv_po_no    := NULL;
          lv_ord_date := NULL;
        END;
        -- To assign the Bol Number from Lading Number
        IF lr_com_shphdr(i).carr_no NOT IN ('FEDX','UPS') THEN
           lr_orchid_shphdr(i).bol_no     := lr_com_shphdr(i).lading_no;
        ELSE
           lr_orchid_shphdr(i).bol_no     := NULL;
        END IF;
        -- For each order header get the Shipment Delivery Adderss
        OPEN c_com_shpadr ( lr_com_shphdr(i).custaddr);
        FETCH c_com_shpadr BULK COLLECT INTO lr_com_shpadr;
        -- where there is no record in the collection the exit from the loop
        EXIT WHEN lr_com_shpadr.COUNT = 0;
        -- biuld your logic here to populate the del address collection.
          FOR j IN 1..lr_com_shpadr.COUNT
          LOOP
            -- accumulate the loop count into temp variable, so that will through tell each set of order header.
            cnt := cnt + 1;
            -- accumolate the header running sequence number.
            ln_adr_running_seg := ln_adr_running_seg + 1;
            ln_shpadr_seg := ln_adr_running_seg;
            -- move the order address data into collection.
            lr_orchid_shpadr(cnt).client_id       := lr_com_shphdr(i).del_custno;
            lr_orchid_shpadr(cnt).ord_no          := lr_com_shphdr(i).plheadno;
            lr_orchid_shpadr(cnt).tracking_no     := lr_com_shphdr(i).tracking_no;
            lr_orchid_shpadr(cnt).addr_name       := lr_com_shpadr(j).addr_name;
            lr_orchid_shpadr(cnt).attn_line       := lr_com_shphdr(i).attn_line;
            lr_orchid_shpadr(cnt).addr_line1      := lr_com_shpadr(j).addr_line1;
            lr_orchid_shpadr(cnt).addr_line2      := lr_com_shpadr(j).addr_line2;
            lr_orchid_shpadr(cnt).addr_line3      := NULL;
            lr_orchid_shpadr(cnt).addr_line4      := NULL;
            lr_orchid_shpadr(cnt).addr_line5      := NULL;
            lr_orchid_shpadr(cnt).city            := lr_com_shpadr(j).city;
            lr_orchid_shpadr(cnt).state_cd        := lr_com_shpadr(j).state_cd;
            lr_orchid_shpadr(cnt).zip             := lr_com_shpadr(j).zip;
            lr_orchid_shpadr(cnt).zip_ext         := NULL;
            lr_orchid_shpadr(cnt).country_cd      := lr_com_shpadr(j).country_cd;
            lr_orchid_shpadr(cnt).tax_geo_cd      := NULL;
            lr_orchid_shpadr(cnt).work_phone      := lr_com_shpadr(j).work_phone;
            lr_orchid_shpadr(cnt).email1          := lr_com_shpadr(j).email1;
            lr_orchid_shpadr(cnt).cre_dat         := SYSDATE;
            lr_orchid_shpadr(cnt).cre_usr         := USER;
            lr_orchid_shpadr(cnt).batch_ctrl_no   := lv_adr_batch_ctrl_no;
          END LOOP;
        CLOSE c_com_shpadr;
        -- For each order header get the order detail/delivery segment data
        OPEN c_com_shpdtl ( lr_com_shphdr(i).plheadno );
        FETCH c_com_shpdtl BULK COLLECT INTO lr_com_shpdtl;
        -- where there is no record in the collection the exit from the loop
        EXIT WHEN lr_com_shpdtl.COUNT = 0;
        -- build your logic here to populate the order detail collection
          FOR k IN 1..lr_com_shpdtl.COUNT
          LOOP
            -- accumulate the loop count into a temp variable, so that will through till each set of Order Header.
            cnt1 := cnt1 + 1;
            -- accumulate header running sequence number
            ln_dtl_running_seq := ln_dtl_running_seq + 1;
            ln_shpdtl_seq := ln_dtl_running_seq;
            -- Get Quantity for the delvery from delevery segment table.
            BEGIN
              SELECT NVL(Qty,0)
                INTO lv_ord_qty
                FROM com_oldelseg@com_pricing.world cds
               WHERE cds.ordno = lr_com_shpdtl(k).erp_ord_no
                 AND cds.ol_no = lr_com_shpdtl(k).erp_line_no
                 AND cds.ol_segno = lr_com_shpdtl(k).ol_segno;
            EXCEPTION
              WHEN OTHERS THEN
                lv_ord_qty := NULL;
            END;
            -- Get Title for the salesitem from the salesitem table.
            BEGIN
              SELECT Title
                INTO lv_sku_desc
                FROM com_salesitem@com_pricing.world cs
               WHERE cs.fg_id = lr_com_shpdtl(k).sku;
            EXCEPTION
              WHEN OTHERS THEN
                lv_sku_desc := NULL;
            END;
            -- move the Order detail data into collection
            lr_orchid_shpdtl(cnt1).client_id         := lr_com_shphdr(i).client_id;
            lr_orchid_shpdtl(cnt1).ord_no            := lr_com_shphdr(i).plheadno;
            lr_orchid_shpdtl(cnt1).ord_line_no       := lr_com_shpdtl(k).ord_line_no;
            lr_orchid_shpdtl(cnt1).erp_line_no       := lr_com_shpdtl(k).erp_line_no;
            lr_orchid_shpdtl(cnt1).sku               := lr_com_shpdtl(k).sku;
            lr_orchid_shpdtl(cnt1).tracking_no       := lr_com_shphdr(i).tracking_no;
            lr_orchid_shpdtl(cnt1).container_no      := NULL;
            lr_orchid_shpdtl(cnt1).ord_qty           := lv_ord_qty;
            lr_orchid_shpdtl(cnt1).ship_qty          := lr_com_shpdtl(k).ship_qty;
            lr_orchid_shpdtl(cnt1).price_point       := NULL;
            lr_orchid_shpdtl(cnt1).pick_invoice_no   := NULL;
            lr_orchid_shpdtl(cnt1).cancel_qty        := NULL;
            lr_orchid_shpdtl(cnt1).bldg_id           := NULL;                              --lr_com_shpdtl(k).bldg_id;
            lr_orchid_shpdtl(cnt1).sku_company       := NULL;                              --lr_com_shpdtl(k).sku_company;
            lr_orchid_shpdtl(cnt1).sku_desc          := lv_sku_desc;
            lr_orchid_shpdtl(cnt1).icc_cd1           := NULL;                              --lr_com_shpdtl(k).icc_cd1;
            lr_orchid_shpdtl(cnt1).erp_ord_no        := lr_com_shpdtl(k).erp_ord_no;
            lr_orchid_shpdtl(cnt1).cre_dat           := SYSDATE;
            lr_orchid_shpdtl(cnt1).cre_usr           := USER;
            lr_orchid_shpdtl(cnt1).batch_ctrl_no     := lv_dtl_batch_ctrl_no;
          END LOOP;
        CLOSE c_com_shpdtl;
        -- build the logic to populate Order Header
        lr_orchid_shphdr(i).client_id              := lr_com_shphdr(i).client_id;
        lr_orchid_shphdr(i).ord_no                 := lr_com_shphdr(i).plheadno;
        lr_orchid_shphdr(i).tracking_no            := lr_com_shphdr(i).tracking_no;
        lr_orchid_shphdr(i).container_no           := NULL;                            -- container number is not maintained in COM
        lr_orchid_shphdr(i).carrier_id             := lr_com_shphdr(i).carrier_id;
        lr_orchid_shphdr(i).plant_id               := lr_com_shphdr(i).plant_id;
        lr_orchid_shphdr(i).erp_ord_no             := lv_erp_ord_no;
        lr_orchid_shphdr(i).erp_ord_no2            := NULL;
        lr_orchid_shphdr(i).po_no                  := lv_po_no;
        lr_orchid_shphdr(i).ship_to_id             := lr_com_shphdr(i).ship_to_id;
        lr_orchid_shphdr(i).ship_to_addr_id        := lr_com_shphdr(i).custaddr;
        lr_orchid_shphdr(i).scac                   := NULL;                             --lr_com_shphdr(i).scac;
        lr_orchid_shphdr(i).actual_ship_date       := lv_actual_ship_date;
        lr_orchid_shphdr(i).cfm_order_type         := lr_com_shphdr(i).cfm_order_type;
        lr_orchid_shphdr(i).company_code           := lv_company_code;
        lr_orchid_shphdr(i).no_of_order_lines      := NULL;                             --lr_com_shphdr(i).no_of_order_lines;
        lr_orchid_shphdr(i).pick_invoice_no        := NULL;
        lr_orchid_shphdr(i).ord_date               := lv_ord_date;
        lr_orchid_shphdr(i).orig_tender_date       := NULL;
        lr_orchid_shphdr(i).orig_delv_date         := NULL;
        lr_orchid_shphdr(i).delivery_flag          := NULL;
        lr_orchid_shphdr(i).delv_date_from         := NULL;
        lr_orchid_shphdr(i).delv_date_to           := NULL;
        lr_orchid_shphdr(i).orig_carr_cd           := NULL;
        lr_orchid_shphdr(i).routing_comment        := NULL;
        lr_orchid_shphdr(i).segment_type           := NULL;
        lr_orchid_shphdr(i).back_order_flag        := NULL;
        lr_orchid_shphdr(i).addr_override_flag     := NULL;
        lr_orchid_shphdr(i).fmx_assigned_carr      := NULL;
        lr_orchid_shphdr(i).fmx_assigned_ship_date := NULL;
        lr_orchid_shphdr(i).fmx_assigned_delv_date := NULL;
        lr_orchid_shphdr(i).freight_terms          := lr_com_shphdr(i).freight_terms;
        lr_orchid_shphdr(i).fmx_load_id            := NULL;
        lr_orchid_shphdr(i).asn_type               := NULL;
        lr_orchid_shphdr(i).icc_cd1                := NULL;                             --lr_com_shphdr(i).icc_cd1;
        lr_orchid_shphdr(i).trans_type             := NULL;
        lr_orchid_shphdr(i).ref_no1                := NULL;
        lr_orchid_shphdr(i).ref_no2                := NULL;
        lr_orchid_shphdr(i).ref_no3                := NULL;
        lr_orchid_shphdr(i).ref_no4                := NULL;
        lr_orchid_shphdr(i).cre_dat                := SYSDATE;
        lr_orchid_shphdr(i).cre_usr                := USER;
        lr_orchid_shphdr(i).batch_ctrl_no          := lv_hdr_batch_ctrl_no;
        -- logic to get total boxes and weight.
        BEGIN
          SELECT SUM(no_cartons), SUM(weight)
            INTO lr_orchid_shphdr(i).total_boxes
               , lr_orchid_shphdr(i).weight
            FROM com_plline@com_pricing.world pll
           WHERE pll.plheadno = lr_com_shphdr(i).plheadno;
        EXCEPTION
         WHEN OTHERS THEN
            lr_orchid_shphdr(i).total_boxes := NULL;
            lr_orchid_shphdr(i).weight      := NULL;
        END;
      END LOOP;
    -- initialize the variables for next loop cycle.
    cnt := 0;
    cnt1 := 0;
    -- populate the shipment header interface table.
    FOR x IN 1..lr_orchid_shphdr.COUNT
    LOOP
      ld_hdr_download_end_tstamp := lr_orchid_shphdr(x).cre_dat;
      INSERT INTO orchid_shipment_hdr_intf
                (record_qualifier
                ,client_id
                ,ord_no
                ,tracking_no
                ,container_no
                ,bol_no
                ,carrier_id
                ,plant_id
                ,erp_ord_no
                ,erp_ord_no2
                ,po_no
                ,ship_to_id
                ,ship_to_addr_id
                ,scac
                ,actual_ship_date
                ,cfm_order_type
                ,company_code
                ,no_of_order_lines
                ,pick_invoice_no
                ,total_boxes
                ,weight
                ,ord_date
                ,orig_tender_date
                ,orig_delv_date
                ,delivery_flag
                ,delv_date_from
                ,delv_date_to
                ,orig_carr_cd
                ,routing_comment
                ,segment_type
                ,back_order_flag
                ,addr_override_flag
                ,fmx_assigned_carr
                ,fmx_assigned_ship_date
                ,fmx_assigned_delv_date
                ,freight_terms
                ,fmx_load_id
                ,asn_type
                ,upl_status
                ,icc_cd1
                ,trans_type
                ,ref_no1
                ,ref_no2
                ,ref_no3
                ,ref_no4
                ,cre_dat
                ,cre_usr
                ,batch_ctrl_no)
        VALUES
                ( 10
                ,lr_orchid_shphdr(x).client_id
                ,lr_orchid_shphdr(x).ord_no
                ,lr_orchid_shphdr(x).tracking_no
                ,lr_orchid_shphdr(x).container_no
                ,lr_orchid_shphdr(x).bol_no
                ,lr_orchid_shphdr(x).carrier_id
                ,lr_orchid_shphdr(x).plant_id
                ,lr_orchid_shphdr(x).erp_ord_no
                ,lr_orchid_shphdr(x).erp_ord_no2
                ,lr_orchid_shphdr(x).po_no
                ,lr_orchid_shphdr(x).ship_to_id
                ,lr_orchid_shphdr(x).ship_to_addr_id
                ,lr_orchid_shphdr(x).scac
                ,lr_orchid_shphdr(x).actual_ship_date
                ,lr_orchid_shphdr(x).cfm_order_type
                ,lr_orchid_shphdr(x).company_code
                ,lr_orchid_shphdr(x).no_of_order_lines
                ,lr_orchid_shphdr(x).pick_invoice_no
                ,lr_orchid_shphdr(x).total_boxes
                ,lr_orchid_shphdr(x).weight
                ,lr_orchid_shphdr(x).ord_date
                ,lr_orchid_shphdr(x).orig_tender_date
                ,lr_orchid_shphdr(x).orig_delv_date
                ,lr_orchid_shphdr(x).delivery_flag
                ,lr_orchid_shphdr(x).delv_date_from
                ,lr_orchid_shphdr(x).delv_date_to
                ,lr_orchid_shphdr(x).orig_carr_cd
                ,lr_orchid_shphdr(x).routing_comment
                ,lr_orchid_shphdr(x).segment_type
                ,lr_orchid_shphdr(x).back_order_flag
                ,lr_orchid_shphdr(x).addr_override_flag
                ,lr_orchid_shphdr(x).fmx_assigned_carr
                ,lr_orchid_shphdr(x).fmx_assigned_ship_date
                ,lr_orchid_shphdr(x).fmx_assigned_delv_date
                ,lr_orchid_shphdr(x).freight_terms
                ,lr_orchid_shphdr(x).fmx_load_id
                ,lr_orchid_shphdr(x).asn_type
                ,00
                ,lr_orchid_shphdr(x).icc_cd1
                ,lr_orchid_shphdr(x).trans_type
                ,lr_orchid_shphdr(x).ref_no1
                ,lr_orchid_shphdr(x).ref_no2
                ,lr_orchid_shphdr(x).ref_no3
                ,lr_orchid_shphdr(x).ref_no4
                ,lr_orchid_shphdr(x).cre_dat
                ,lr_orchid_shphdr(x).cre_usr
                ,lr_orchid_shphdr(x).batch_ctrl_no);
    END LOOP;
    -- populate the shipment address interface table.
    FOR y IN 1..lr_orchid_shpadr.COUNT
    LOOP
      ld_adr_download_end_tstamp := lr_orchid_shpadr(y).cre_dat;
      INSERT INTO orchid_shipment_address_intf
                  ( record_qualifier
                  , client_id
                  , ord_no
                  , tracking_no
                  , addr_name
                  , attn_line
                  , addr_line1
                  , addr_line2
                  , addr_line3
                  , addr_line4
                  , addr_line5
                  , city
                  , state_cd
                  , zip
                  , zip_ext
                  , country_cd
                  , tax_geo_cd
                  , work_phone
                  , email1
                  , cre_dat
                  , cre_usr
                  , batch_ctrl_no)
           VALUES ( 14
                  , lr_orchid_shpadr(y).client_id
                  , lr_orchid_shpadr(y).ord_no
                  , lr_orchid_shpadr(y).tracking_no
                  , lr_orchid_shpadr(y).addr_name
                  , lr_orchid_shpadr(y).attn_line
                  , lr_orchid_shpadr(y).addr_line1
                  , lr_orchid_shpadr(y).addr_line2
                  , lr_orchid_shpadr(y).addr_line3
                  , lr_orchid_shpadr(y).addr_line4
                  , lr_orchid_shpadr(y).addr_line5
                  , lr_orchid_shpadr(y).city
                  , lr_orchid_shpadr(y).state_cd
                  , lr_orchid_shpadr(y).zip
                  , lr_orchid_shpadr(y).zip_ext
                  , lr_orchid_shpadr(y).country_cd
                  , lr_orchid_shpadr(y).tax_geo_cd
                  , lr_orchid_shpadr(y).work_phone
                  , lr_orchid_shpadr(y).email1
                  , lr_orchid_shpadr(y).cre_dat
                  , lr_orchid_shpadr(y).cre_usr
                  , lr_orchid_shpadr(y).batch_ctrl_no);
    END LOOP;
    -- populate the shipment detail interface table.
    FOR z IN 1..lr_orchid_shpdtl.COUNT
    LOOP
      ld_dtl_download_end_tstamp := lr_orchid_shpdtl(z).cre_dat;
      INSERT INTO orchid_shipment_dtl_intf
                  ( record_qualifier
                  , client_id
                  , ord_no
                  , ord_line_no
                  , erp_line_no
                  , sku
                  , tracking_no
                  , container_no
                  , ord_qty
                  , ship_qty
                  , price_point
                  , pick_invoice_no
                  , cancel_qty
                  , bldg_id
                  , sku_company
                  , sku_desc
                  , icc_cd1
                  , erp_ord_no
                  , cre_dat
                  , cre_usr
                  , batch_ctrl_no)
           VALUES ( 20
                  , lr_orchid_shpdtl(z).client_id
                  , lr_orchid_shpdtl(z).ord_no
                  , lr_orchid_shpdtl(z).ord_line_no
                  , lr_orchid_shpdtl(z).erp_line_no
                  , lr_orchid_shpdtl(z).sku
                  , lr_orchid_shpdtl(z).tracking_no
                  , lr_orchid_shpdtl(z).container_no
                  , lr_orchid_shpdtl(z).ord_qty
                  , lr_orchid_shpdtl(z).ship_qty
                  , lr_orchid_shpdtl(z).price_point
                  , lr_orchid_shpdtl(z).pick_invoice_no
                  , lr_orchid_shpdtl(z).cancel_qty
                  , lr_orchid_shpdtl(z).bldg_id
                  , lr_orchid_shpdtl(z).sku_company
                  , lr_orchid_shpdtl(z).sku_desc
                  , lr_orchid_shpdtl(z).icc_cd1
                  , lr_orchid_shpdtl(z).erp_ord_no
                  , lr_orchid_shpdtl(z).cre_dat
                  , lr_orchid_shpdtl(z).cre_usr
                  , lr_orchid_shpdtl(z).batch_ctrl_no);
    END LOOP;
    COMMIT;
  END LOOP;
  CLOSE c_com_shphdr;
  -- set the status to success
  UPDATE comoes.download_batch_info
     SET batch_ctrl_no = orchid_plhead_btch_ctrl_seq.NEXTVAL
       , dwn_status = '90'
       , download_end_tstamp = NVL(ld_hdr_download_end_tstamp,SYSDATE)
   WHERE download_id = 'ORCHID_SHIPMENT_HDR_INTF'
     AND batch_ctrl_no = lv_hdr_batch_ctrl_no;
  UPDATE comoes.download_batch_info
     SET batch_ctrl_no = orchid_address_btch_ctrl_seq.NEXTVAL
       , dwn_status = '90'
       , download_end_tstamp = NVL(ld_hdr_download_end_tstamp,SYSDATE)
   WHERE download_id = 'ORCHID_SHIPMENT_ADDRESS_INTF'
     AND batch_ctrl_no = lv_adr_batch_ctrl_no;
  UPDATE comoes.download_batch_info
     SET batch_ctrl_no = orchid_plline_btch_ctrl_seq.NEXTVAL
       , dwn_status = '90'
       , download_end_tstamp = NVL(ld_dtl_download_end_tstamp,SYSDATE)
   WHERE download_id = 'ORCHID_SHIPMENT_DTL_INTF'
     AND batch_ctrl_no = lv_dtl_batch_ctrl_no;
  -- Update the download status to success in the interface table.
  -- Shipment Header
  COMMIT;
EXCEPTION
  WHEN OTHERS THEN
    -- load is not sucess then set the status to fail
    UPDATE comoes.download_batch_info
       SET dwn_status = '99'
     WHERE download_id = 'ORCHID_SHIPMENT_HDR_INTF'
       AND batch_ctrl_no = lv_hdr_batch_ctrl_no;
    UPDATE comoes.download_batch_info
       SET dwn_status = '99'
     WHERE download_id = 'ORCHID_SHIPMENT_ADDRESS_INTF'
       AND batch_ctrl_no = lv_adr_batch_ctrl_no;
    UPDATE comoes.download_batch_info
       SET dwn_status = '99'
     WHERE download_id = 'ORCHID_SHIPMENT_DTL_INTF'
       AND batch_ctrl_no = lv_dtl_batch_ctrl_no;
    COMMIT;
    DBMS_OUTPUT.PUT_LINE('Following error occured while executing ORCHID_SHIPMENT_INTF procedure...!!!'||SQLERRM);
    RAISE;
END orchid_shipment_interface;Edited by: BluShadow on 03-Aug-2011 13:28
added {noformat}{noformat} tags. Please read {message:id=9360002} to learn to do this yourself.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                &nb

Answer 1

Please read the Forum FAQ on how to ask a question, particularly how to format code
SQL and PL/SQL FAQ
SQL and PL/SQL FAQ
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE (' Following error occured while getting batch control number for ORCHID_SHIPMENT_HDR_INTF in Download Batch Info table...!!!'||SQLERRM);
RAISE;http://tkyte.blogspot.com/2008/01/why-do-people-do-this.html