zyyy123 dongtaineibiao1234



DATA:BEGIN OF ty,
  aa1 TYPE c,
  aa2 TYPE c,
  bb1 type c,
  bb2 TYPE c,
  END OF ty.

DATA:wa_itab like ty .
DATA:wa_itab1 like TABLE OF ty.
DATA:wa_itab2 like TABLE OF ty.

FIELD-SYMBOLS:<fs> like ty.
FIELD-SYMBOLS:<gs> TYPE ANY.
FIELD-SYMBOLS:<gs1> TYPE ANY.

wa_itab-aa1 = 1.
wa_itab-aa2 = ''.
wa_itab-bb1 = ''.
wa_itab-bb2 = ''.
APPEND wa_itab to wa_itab1.

wa_itab-aa1 = 2.
wa_itab-aa2 = ''.
wa_itab-bb1 = ''.
wa_itab-bb2 = ''.
APPEND wa_itab to wa_itab1.

wa_itab-aa1 = ''.
wa_itab-aa2 = '1'.
wa_itab-bb1 = ''.
wa_itab-bb2 = ''.
APPEND wa_itab to wa_itab1.

wa_itab-aa1 = ''.
wa_itab-aa2 = '2'.
wa_itab-bb1 = ''.
wa_itab-bb2 = ''.
APPEND wa_itab to wa_itab1.
CLEAR wa_itab.

 DATA:dd TYPE c.


START-OF-SELECTION.

  DATA:XX(3) TYPE C.
  DATA:YY(6) TYPE C.

  ASSIGN ty to <fs>.

  LOOP AT  wa_itab1 INTO ty.
    WRITE:/ ty-aa1,ty-aa2,ty-bb1,ty-bb2.
  ENDLOOP.
  uline.

  LOOP AT wa_itab1 INTO ty .
    do 2 times.
      dd = dd + 1.
    CONCATENATE 'BB' dd INTO xx.
    CONCATENATE 'AA' dd INTO YY.

    ASSIGN COMPONENT  yy OF STRUCTURE <fs> TO <GS>.

    IF <GS> = 1.
      ASSIGN COMPONENT  xx OF STRUCTURE <fs> TO <GS1>.
      <gs1> = 2.
    ENDIF.
    ENDDO.
    MODIFY wa_itab1 FROM  <FS> INDEX sy-tabix.
    CLEAR dd.
  ENDLOOP.

  LOOP AT  wa_itab1 INTO ty.
    WRITE:/ ty-aa1,ty-aa2,ty-bb1,ty-bb2.
  ENDLOOP.