zyyy123 dongtaineibiao1234

转载 2015年08月19日 14:01:34

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(3TYPE C.
  DATA:YY(6TYPE 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 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.

相关文章推荐

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:zyyy123 dongtaineibiao1234
举报原因:
原因补充:

(最多只允许输入30个字)