How can I run two DML in one FORALL statement?

Question

How can I run 1) select 2) update in one FORALL for each item as below?
OPEN FXCUR;
  LOOP
        FETCH FXCUR BULK COLLECT INTO v_ims_trde_oids LIMIT 1000;
        EXIT  WHEN v_ims_trde_oids.COUNT() = 0;
     FORALL i IN v_ims_trde_oids.FIRST .. v_ims_trde_oids.LAST     
          SELECT EXTRACTVALUE(XMLTYPE(CNTNT),'/InboundGTMXML/ProcessingIndicators/ClientCLSEligibleIndicator')        INTO v_cls_ind
          FROM IMS_TOMS_MSGE  WHERE ims_trde_oid = v_ims_trde_oids(i);
         IF v_cls_ind      IS NOT NULL THEN
                  v_cls_ind       := '~2136|S|'||v_cls_ind||'|';
         UPDATE ims_alctn_hstry  SET CHNGE_DATA_1   =concat(CHNGE_DATA_1,v_cls_ind)
         WHERE ims_trde_hstry_id = (select max(ims_trde_hstry_id) from ims_alctn_hstry where ims_trde_oid=v_ims_trde_oids(i));
         DBMS_OUTPUT.PUT_LINE('Trade oid: '||v_ims_trde_oids(i)||'   CLS Eligible Indicator: '||v_cls_ind);
      END IF;
  END LOOP;
  CLOSE FXCUR;Your help will be appreciated.
Thanks
Edited by: PhoenixBai on Aug 6, 2010 6:05 PM

Answer 1

I came through this forum while googling on the issue of 'using two DML's in one FORALL statement.
Thanks for all the useful information guys.
I need to extend this functionality a bit.
My present scenario is as follows:
FOR I in 1..collection1.count Loop
     BEGIN
          insert into tab1(col1)
          values collection1(I) ;
     EXCEPTION
          WHEN OTHERS THEN
          RAISE_APPLICATION_ERROR('ERROR AT'||collection1(I));
     END;
     BEGIN
          UPDATE tab2
          SET col1 = collection1(I);
     EXCEPTION
          WHEN OTHERS THEN
          RAISE_APPLICATION_ERROR('ERROR AT'||collection1(I));
     END;
commit;
END LOOP;
I need to use the FORALL functionality in this scenario, but without using the SAVE EXCEPTIONS clause keeping in mind that I also need to get value in the
collection that led to the error.Also, the each INSERT statement has to be followed by an UPDATE and then the cycle goes on(Hence I cannot use 2 FORALL statements for INSERT and UPDATE coz then all the INSERT will be performed at once and similarly the UPDATEs). So I created something like this:
DECLARE
l_stmt varchar2(1000);
BEGIN
l_stmt := 'BEGIN '||
          'insert into tab1(col1) '||
          'values collection1(I) ; '||
     'EXCEPTION '||
          'WHEN OTHERS THEN '||
          'RAISE_APPLICATION_ERROR(''ERROR AT''|| :1); '||
     'END; '||
     'BEGIN '||
          'UPDATE tab2 '||
          'SET col1 = :1; '||
     'EXCEPTION '||
          'WHEN OTHERS THEN '||
          'RAISE_APPLICATION_ERROR(''ERROR AT''|| :1); '||
     'END;'
FORALL I in 1..collection1.count
EXECUTE IMMEDIATE l_stmt USING Collection1(SQL%BULK_EXCEPTIONS(1).ERROR_INDEX);
END;
Will this approach work? Or is there any better aproach to this? I am trying to avoid the traditional FOR ..LOOP to achieve better performance of query