Internal table reltd issue

Question

Hi,
I have got 3 tables:
it_extnout (old)
Fld1     Fld2     Fld3     Fld4     Fld5     Fld6     Fld7
ABC     123     70     JKL     5.00     A     Q
it_extnin (new)
Fld1     Fld2     Fld3     Fld4     Fld5     Fld6     Fld7
ABC     123     99     LMN          
it_extnin_x(update flag for new)
Fld1     Fld2     Fld3     Fld4     Fld5     Fld6     Fld7
ABC     123     X     X          X     
So now...my requirement is as follows:
if an update flag is set for any field in it_extnin_x, then new value should get updated in it_extnout table.
Here, fld3, 4, and 6 is set for update, so finally my it_extnout should look like
Fld1     Fld2     Fld3     Fld4     Fld5     Fld6     Fld7
ABC     123     99     LMN     5.00          Q
Also, any field from fld3 to fld7 could be marked for an update, so it is dynamic.
I do not want to write read statements for each column like
read table itab with key fld3 = X (if sy-subrc is 0, then do some processing)
or read table itab with key where fld4 = X and so on....
What is the optimum way to achieve the same?
Any useful is deeply appreciated!
Thanks
Follow the rules of engagement, Don't use multiple user accounts for posting the question
If you repeat this your user will be locked and deleted
Edited by: Vijay Babu Dudla on Apr 20, 2011 10:19 AM

Answer 1

Try this.I think you want output like this......
DATA: BEGIN OF LINE,
        CARRID   TYPE SBOOK-CARRID,
        CONNID   TYPE SBOOK-CONNID,
        FLDATE   TYPE SBOOK-FLDATE,
        CUSTTYPE TYPE SBOOK-CUSTTYPE,
        CLASS    TYPE SBOOK-CLASS,
        BOOKID   TYPE SBOOK-BOOKID,
      END OF LINE.
DATA ITAB LIKE SORTED TABLE OF LINE WITH UNIQUE KEY TABLE LINE.
SELECT CARRID CONNID FLDATE CUSTTYPE CLASS BOOKID
       FROM SBOOK INTO CORRESPONDING FIELDS OF TABLE ITAB.
LOOP AT ITAB INTO LINE.
  AT FIRST.
    WRITE / 'List of Bookings'.
    ULINE.
  ENDAT.
    AT NEW CARRID.
      WRITE: / 'Carrid:', LINE-CARRID.
    ENDAT.
      AT NEW CONNID.
        WRITE: / 'Connid:', LINE-CONNID.
      ENDAT.
        AT NEW FLDATE.
          WRITE: / 'Fldate:', LINE-FLDATE.
        ENDAT.
          AT NEW CUSTTYPE.
            WRITE: / 'Custtype:', LINE-CUSTTYPE.
          ENDAT.
               WRITE: / LINE-BOOKID, LINE-CLASS.
            AT END OF CLASS.
              ULINE.
            ENDAT.
ENDLOOP.
This is also helpful......
LOOP AT <itab>.
  AT FIRST. ... ENDAT.
    AT NEW <f1>. ...... ENDAT.
      AT NEW <f2 >. ...... ENDAT.
          <single line processing>
      AT END OF <f2>. ... ENDAT.
    AT END OF <f1>. ... ENDAT.
  AT LAST. .... ENDAT.
ENDLOOP.
Regards
Abhishek