ABAP如何把字段（字符串）转化成内表

1.Code

REPORT ZJGLTEST01.

DATA:BEGIN OF  GW_DATA,
    BUKRS(50)  TYPE C,
    ANLN1(50)  TYPE C,
    END OF GW_DATA.

DATA:BEGIN OF  GT_DATA_FIN OCCURS 0,
    BUKRS_FIN  LIKE ANLA-BUKRS,
    ANLN1_FIN  TYPE ANLA-ANLN1,
    END OF GT_DATA_FIN.

 DATA:  GW_DATA_FIN  LIKE LINE OF GT_DATA_FIN.

data:lt_bukrs TYPE TABLE OF  char5.
data:lw_bukrs LIKE LINE OF lt_bukrs.
data:lt_anln1 TYPE TABLE OF char14,
     lw_anln1 LIKE line of  lt_anln1.



gw_data-anln1 = '100000'.

gw_data-bukrs = '2100,2200,2300' .

split gw_data-anln1 at ',' into TABLE  lt_anln1 .
split gw_data-bukrs at ',' into TABLE  lt_bukrs .

loop at lt_bukrs  into  lw_bukrs.

  READ TABLE lt_anln1 INTO LW_anln1 INDEX 1.
  IF SY-SUBRC = 0 .
  GW_DATA_FIN-BUKRS_FIN = lw_bukrs .
  GW_DATA_FIN-ANLN1_FIN =  LW_anln1 .


  APPEND GW_DATA_FIN to  GT_DATA_FIN .
   ENDIF.

  CLEAR: lw_bukrs ,LW_anln1.

ENDLOOP.



IF SY-SUBRC = 0.


  ENDIF.

2 Summarry

The usage

split gw_data-anln1 at ',' into TABLE  lt_anln1 .

Search skill
“split internal table”
“abap 字符串 内表”