Internal Table Manipulation

Question

Hi,
I have an internal tables with 5 fields each of type Char - L1 L2 L3 L4 L5.
I have to make the first occurance of 0 after a non zero value as 1.
Example: if i have the values as 1 0 0 0 0, it s'd be made 1 1 0 0 0.
If 1 1 0 0 0 it s'd be made 1 1 1 0 0.
If 0 1 0 0 0 then it should be made 0 1 1 0 0.
If i try this using nested IF statements the code becomes more complex.. Is there any other way out.. like using string operations??
Regards,
Pradhiba

Answer 1

Pradhiba,
You try the following code:
DATA: BEGIN OF tbl_table1 OCCURS 0,
        f1 TYPE n,
        f2 TYPE n,
        f3 TYPE n,
        f4 TYPE n,
        f5 TYPE n,
      END OF tbl_table1.
DATA: g_index LIKE sy-tabix,
      g_found TYPE c.
FIELD-SYMBOLS: <fs> TYPE n.
START-OF-SELECTION.
  CLEAR tbl_table1.
  tbl_table1-f2 = 1.
  APPEND tbl_table1.
  LOOP AT tbl_table1.
    CLEAR: g_index,
           g_found.
    DO.
      ADD 1 TO g_index.
      ASSIGN COMPONENT g_index OF STRUCTURE tbl_table1 TO <fs>.
      IF sy-subrc NE 0.
        EXIT.
      ENDIF.
* Was there a 1 in the previous field?
      IF g_found = 'X'.
* Yes! Previous field was a 1, now make current field a 1 clear the
* G_FOUND flag and CONTINUE to next field
        <fs> = 1.
        CLEAR g_found.
        CONTINUE.
      ENDIF.
* Current field is a 1, mark the G_FOUND flag!
      IF <fs> = 1.
        g_found = 'X'.
      ENDIF.
    ENDDO.
    MODIFY tbl_table1.
  ENDLOOP.
END-OF-SELECTION.
  LOOP AT tbl_table1.
    WRITE:/ tbl_table1-f1, tbl_table1-f2, tbl_table1-f3, tbl_table1-f4,
            tbl_table1-f5.
  ENDLOOP.
Cheers,
Pat