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.