ABAP Select data from SAP table VTTK into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP VTTK table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to VTTK. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the VTTK table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_VTTK TYPE STANDARD TABLE OF VTTK,
      WA_VTTK TYPE VTTK,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <VTTK> TYPE VTTK.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_VTTK.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM VTTK
  INTO TABLE IT_VTTK.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VTTK
*  INTO TABLE @DATA(IT_VTTK2).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_VTTK INDEX 1 INTO DATA(WA_VTTK2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_VTTK ASSIGNING <VTTK>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<VTTK>-MANDT = 1.
<VTTK>-TKNUM = 1.
<VTTK>-VBTYP = 1.
<VTTK>-SHTYP = 1.
<VTTK>-TPLST = 1.
ENDLOOP.

LOOP AT IT_VTTK INTO WA_VTTK.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VTTK-ERNAM, sy-vline,
WA_VTTK-ERDAT, sy-vline,
WA_VTTK-ERZET, sy-vline,
WA_VTTK-AENAM, sy-vline,
WA_VTTK-AEDAT, sy-vline,
WA_VTTK-AEZET, sy-vline.
ENDLOOP. *Add any further fields from structure WA_VTTK you want to display... WRITE:/ sy-uline. * Aternatively use generic code to Write field values (and NAME) to screen report DO. ASSIGN COMPONENT sy-index OF STRUCTURE wa_VTTK TO <field>. IF sy-subrc <> 0. EXIT. ENDIF. WRITE:/ 'Field Value', <field>, sy-vline. gd_str = <field> . lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ). lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ). WRITE:/ 'Field Name', lv_fieldname. ENDDO. *Redo loop but convert all fields from internal to out value LOOP AT IT_VTTK INTO WA_VTTK. *Write horizonal line to screen report. WRITE:/ sy-uline. *Convert all fields to display/output versions using conversion routines PERFORM convert_all_field_values CHANGING wa_EKKO. ENDLOOP. *&---------------------------------------------------------------------* *& Form convert_all_field_values *&---------------------------------------------------------------------* FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO. DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.

*Conversion exit ALPHA, internal->external for field TKNUM CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-TKNUM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-TKNUM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field TDLNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-TDLNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-TDLNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field TERNR CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-TERNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-TERNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field DTMEG CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_VTTK-DTMEG IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-DTMEG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field DTMEV CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_VTTK-DTMEV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-DTMEV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEDST CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_VTTK-MEDST IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-MEDST.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEIZT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_VTTK-MEIZT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-MEIZT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field STAFO CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-STAFO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-STAFO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRG, internal->external for field GESZTD CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT' EXPORTING input = WA_VTTK-GESZTD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-GESZTD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field FAHZTD CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT' EXPORTING input = WA_VTTK-FAHZTD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-FAHZTD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRG, internal->external for field GESZTDA CALL FUNCTION 'CONVERSION_EXIT_TSTRG_OUTPUT' EXPORTING input = WA_VTTK-GESZTDA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-GESZTDA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field FAHZTDA CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT' EXPORTING input = WA_VTTK-FAHZTDA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-FAHZTDA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TMPLA, internal->external for field TSEGTP CALL FUNCTION 'CONVERSION_EXIT_TMPLA_OUTPUT' EXPORTING input = WA_VTTK-TSEGTP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-TSEGTP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field WARZTD CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT' EXPORTING input = WA_VTTK-WARZTD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-WARZTD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field WARZTDA CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT' EXPORTING input = WA_VTTK-WARZTDA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-WARZTDA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field TNDR_LDLU CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_VTTK-TNDR_LDLU IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-TNDR_LDLU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field VERURSYS CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-VERURSYS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-VERURSYS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field /BEV1/RPFAR1 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-/BEV1/RPFAR1 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-/BEV1/RPFAR1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field /BEV1/RPFAR2 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-/BEV1/RPFAR2 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-/BEV1/RPFAR2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field /BEV1/RPMOWA CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-/BEV1/RPMOWA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-/BEV1/RPMOWA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field /BEV1/RPANHAE CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_VTTK-/BEV1/RPANHAE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VTTK-/BEV1/RPANHAE.
WRITE:/ 'New Value:', ld_input.
ENDFORM. *&---------------------------------------------------------------------* *& Form process_as_string_field_values *&---------------------------------------------------------------------* FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO. TYPES: BEGIN OF T_VTTK_STR,
MANDT TYPE STRING,
TKNUM TYPE STRING,
VBTYP TYPE STRING,
SHTYP TYPE STRING,
TPLST TYPE STRING,
ERNAM TYPE STRING,
ERDAT TYPE STRING,
ERZET TYPE STRING,
AENAM TYPE STRING,
AEDAT TYPE STRING,
AEZET TYPE STRING,
STERM TYPE STRING,
ABFER TYPE STRING,
ABWST TYPE STRING,
BFART TYPE STRING,
VSART TYPE STRING,
VSAVL TYPE STRING,
VSANL TYPE STRING,
LAUFK TYPE STRING,
VSBED TYPE STRING,
ROUTE TYPE STRING,
SIGNI TYPE STRING,
EXTI1 TYPE STRING,
EXTI2 TYPE STRING,
TPBEZ TYPE STRING,
STDIS TYPE STRING,
DTDIS TYPE STRING,
UZDIS TYPE STRING,
STREG TYPE STRING,
DPREG TYPE STRING,
UPREG TYPE STRING,
DAREG TYPE STRING,
UAREG TYPE STRING,
STLBG TYPE STRING,
DPLBG TYPE STRING,
UPLBG TYPE STRING,
DALBG TYPE STRING,
UALBG TYPE STRING,
STLAD TYPE STRING,
DPLEN TYPE STRING,
UPLEN TYPE STRING,
DALEN TYPE STRING,
UALEN TYPE STRING,
STABF TYPE STRING,
DPABF TYPE STRING,
UPABF TYPE STRING,
DTABF TYPE STRING,
UZABF TYPE STRING,
STTBG TYPE STRING,
DPTBG TYPE STRING,
UPTBG TYPE STRING,
DATBG TYPE STRING,
UATBG TYPE STRING,
STTEN TYPE STRING,
DPTEN TYPE STRING,
UPTEN TYPE STRING,
DATEN TYPE STRING,
UATEN TYPE STRING,
STTRG TYPE STRING,
TDLNR TYPE STRING,
TERNR TYPE STRING,
PKSTK TYPE STRING,
DTMEG TYPE STRING,
DTMEV TYPE STRING,
DISTZ TYPE STRING,
MEDST TYPE STRING,
FAHZT TYPE STRING,
GESZT TYPE STRING,
MEIZT TYPE STRING,
STAFO TYPE STRING,
FBSTA TYPE STRING,
FBGST TYPE STRING,
ARSTA TYPE STRING,
ARGST TYPE STRING,
STERM_DONE TYPE STRING,
VSE_FRK TYPE STRING,
KKALSM TYPE STRING,
SDABW TYPE STRING,
FRKRL TYPE STRING,
GESZTD TYPE STRING,
FAHZTD TYPE STRING,
GESZTDA TYPE STRING,
FAHZTDA TYPE STRING,
ROCPY_DONE TYPE STRING,
HANDLE TYPE STRING,
TSEGFL TYPE STRING,
TSEGTP TYPE STRING,
ADD01 TYPE STRING,
ADD02 TYPE STRING,
ADD03 TYPE STRING,
ADD04 TYPE STRING,
TEXT1 TYPE STRING,
TEXT2 TYPE STRING,
TEXT3 TYPE STRING,
TEXT4 TYPE STRING,
PROLI TYPE STRING,
DGTLOCK TYPE STRING,
DGMDDAT TYPE STRING,
CONT_DG TYPE STRING,
WARZTD TYPE STRING,
WARZTDA TYPE STRING,
AULWE TYPE STRING,
TNDRST TYPE STRING,
TNDRRC TYPE STRING,
TNDR_TEXT TYPE STRING,
TNDRDAT TYPE STRING,
TNDRZET TYPE STRING,
TNDR_MAXP TYPE STRING,
TNDR_MAXC TYPE STRING,
TNDR_ACTP TYPE STRING,
TNDR_ACTC TYPE STRING,
TNDR_CARR TYPE STRING,
TNDR_CRNM TYPE STRING,
TNDR_TRKID TYPE STRING,
TNDR_EXPD TYPE STRING,
TNDR_EXPT TYPE STRING,
TNDR_ERPD TYPE STRING,
TNDR_ERPT TYPE STRING,
TNDR_LTPD TYPE STRING,
TNDR_LTPT TYPE STRING,
TNDR_ERDD TYPE STRING,
TNDR_ERDT TYPE STRING,
TNDR_LTDD TYPE STRING,
TNDR_LTDT TYPE STRING,
TNDR_LDLG TYPE STRING,
TNDR_LDLU TYPE STRING,
KZHULFR TYPE STRING,
ALLOWED_TWGT TYPE STRING,
VLSTK TYPE STRING,
VERURSYS TYPE STRING,
CM_IDENT TYPE STRING,
CM_SEQUENCE TYPE STRING,
EXT_FREIGHT_ORD TYPE STRING,
EXT_TM_SYS TYPE STRING,
/BEV1/RPFAR1 TYPE STRING,
/BEV1/RPFAR2 TYPE STRING,
/BEV1/RPMOWA TYPE STRING,
/BEV1/RPANHAE TYPE STRING,
/BEV1/RPFLGNR TYPE STRING,
/VSO/R_STATUS TYPE STRING,END OF T_EKKO_STR. DATA: WA_VTTK_STR type T_EKKO_STR. DATA: ld_text TYPE string. LOOP AT IT_EKKO INTO WA_EKKO. MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR. CONCATENATE: sy-vline
WA_VTTK_STR-MANDT sy-vline
WA_VTTK_STR-TKNUM sy-vline
WA_VTTK_STR-VBTYP sy-vline
WA_VTTK_STR-SHTYP sy-vline
WA_VTTK_STR-TPLST sy-vline
WA_VTTK_STR-ERNAM sy-vline
WA_VTTK_STR-ERDAT sy-vline
WA_VTTK_STR-ERZET sy-vline
WA_VTTK_STR-AENAM sy-vline
WA_VTTK_STR-AEDAT sy-vline
WA_VTTK_STR-AEZET sy-vline
WA_VTTK_STR-STERM sy-vline
WA_VTTK_STR-ABFER sy-vline
WA_VTTK_STR-ABWST sy-vline
WA_VTTK_STR-BFART sy-vline
WA_VTTK_STR-VSART sy-vline
WA_VTTK_STR-VSAVL sy-vline
WA_VTTK_STR-VSANL sy-vline
WA_VTTK_STR-LAUFK sy-vline
WA_VTTK_STR-VSBED sy-vline
WA_VTTK_STR-ROUTE sy-vline
WA_VTTK_STR-SIGNI sy-vline
WA_VTTK_STR-EXTI1 sy-vline
WA_VTTK_STR-EXTI2 sy-vline
WA_VTTK_STR-TPBEZ sy-vline
WA_VTTK_STR-STDIS sy-vline
WA_VTTK_STR-DTDIS sy-vline
WA_VTTK_STR-UZDIS sy-vline
WA_VTTK_STR-STREG sy-vline
WA_VTTK_STR-DPREG sy-vline
WA_VTTK_STR-UPREG sy-vline
WA_VTTK_STR-DAREG sy-vline
WA_VTTK_STR-UAREG sy-vline
WA_VTTK_STR-STLBG sy-vline
WA_VTTK_STR-DPLBG sy-vline
WA_VTTK_STR-UPLBG sy-vline
WA_VTTK_STR-DALBG sy-vline
WA_VTTK_STR-UALBG sy-vline
WA_VTTK_STR-STLAD sy-vline
WA_VTTK_STR-DPLEN sy-vline
WA_VTTK_STR-UPLEN sy-vline
WA_VTTK_STR-DALEN sy-vline
WA_VTTK_STR-UALEN sy-vline
WA_VTTK_STR-STABF sy-vline
WA_VTTK_STR-DPABF sy-vline
WA_VTTK_STR-UPABF sy-vline
WA_VTTK_STR-DTABF sy-vline
WA_VTTK_STR-UZABF sy-vline
WA_VTTK_STR-STTBG sy-vline
WA_VTTK_STR-DPTBG sy-vline
WA_VTTK_STR-UPTBG sy-vline
WA_VTTK_STR-DATBG sy-vline
WA_VTTK_STR-UATBG sy-vline
WA_VTTK_STR-STTEN sy-vline
WA_VTTK_STR-DPTEN sy-vline
WA_VTTK_STR-UPTEN sy-vline
WA_VTTK_STR-DATEN sy-vline
WA_VTTK_STR-UATEN sy-vline
WA_VTTK_STR-STTRG sy-vline
WA_VTTK_STR-TDLNR sy-vline
WA_VTTK_STR-TERNR sy-vline
WA_VTTK_STR-PKSTK sy-vline
WA_VTTK_STR-DTMEG sy-vline
WA_VTTK_STR-DTMEV sy-vline
WA_VTTK_STR-DISTZ sy-vline
WA_VTTK_STR-MEDST sy-vline
WA_VTTK_STR-FAHZT sy-vline
WA_VTTK_STR-GESZT sy-vline
WA_VTTK_STR-MEIZT sy-vline
WA_VTTK_STR-STAFO sy-vline
WA_VTTK_STR-FBSTA sy-vline
WA_VTTK_STR-FBGST sy-vline
WA_VTTK_STR-ARSTA sy-vline
WA_VTTK_STR-ARGST sy-vline
WA_VTTK_STR-STERM_DONE sy-vline
WA_VTTK_STR-VSE_FRK sy-vline
WA_VTTK_STR-KKALSM sy-vline
WA_VTTK_STR-SDABW sy-vline
WA_VTTK_STR-FRKRL sy-vline
WA_VTTK_STR-GESZTD sy-vline
WA_VTTK_STR-FAHZTD sy-vline
WA_VTTK_STR-GESZTDA sy-vline
WA_VTTK_STR-FAHZTDA sy-vline
WA_VTTK_STR-ROCPY_DONE sy-vline
WA_VTTK_STR-HANDLE sy-vline
WA_VTTK_STR-TSEGFL sy-vline
WA_VTTK_STR-TSEGTP sy-vline
WA_VTTK_STR-ADD01 sy-vline
WA_VTTK_STR-ADD02 sy-vline
WA_VTTK_STR-ADD03 sy-vline
WA_VTTK_STR-ADD04 sy-vline
WA_VTTK_STR-TEXT1 sy-vline
WA_VTTK_STR-TEXT2 sy-vline
WA_VTTK_STR-TEXT3 sy-vline
WA_VTTK_STR-TEXT4 sy-vline
WA_VTTK_STR-PROLI sy-vline
WA_VTTK_STR-DGTLOCK sy-vline
WA_VTTK_STR-DGMDDAT sy-vline
WA_VTTK_STR-CONT_DG sy-vline
WA_VTTK_STR-WARZTD sy-vline
WA_VTTK_STR-WARZTDA sy-vline
WA_VTTK_STR-AULWE sy-vline
WA_VTTK_STR-TNDRST sy-vline
WA_VTTK_STR-TNDRRC sy-vline
WA_VTTK_STR-TNDR_TEXT sy-vline
WA_VTTK_STR-TNDRDAT sy-vline
WA_VTTK_STR-TNDRZET sy-vline
WA_VTTK_STR-TNDR_MAXP sy-vline
WA_VTTK_STR-TNDR_MAXC sy-vline
WA_VTTK_STR-TNDR_ACTP sy-vline
WA_VTTK_STR-TNDR_ACTC sy-vline
WA_VTTK_STR-TNDR_CARR sy-vline
WA_VTTK_STR-TNDR_CRNM sy-vline
WA_VTTK_STR-TNDR_TRKID sy-vline
WA_VTTK_STR-TNDR_EXPD sy-vline
WA_VTTK_STR-TNDR_EXPT sy-vline
WA_VTTK_STR-TNDR_ERPD sy-vline
WA_VTTK_STR-TNDR_ERPT sy-vline
WA_VTTK_STR-TNDR_LTPD sy-vline
WA_VTTK_STR-TNDR_LTPT sy-vline
WA_VTTK_STR-TNDR_ERDD sy-vline
WA_VTTK_STR-TNDR_ERDT sy-vline
WA_VTTK_STR-TNDR_LTDD sy-vline
WA_VTTK_STR-TNDR_LTDT sy-vline
WA_VTTK_STR-TNDR_LDLG sy-vline
WA_VTTK_STR-TNDR_LDLU sy-vline
WA_VTTK_STR-KZHULFR sy-vline
WA_VTTK_STR-ALLOWED_TWGT sy-vline
WA_VTTK_STR-VLSTK sy-vline
WA_VTTK_STR-VERURSYS sy-vline
WA_VTTK_STR-CM_IDENT sy-vline
WA_VTTK_STR-CM_SEQUENCE sy-vline
WA_VTTK_STR-EXT_FREIGHT_ORD sy-vline
WA_VTTK_STR-EXT_TM_SYS sy-vline
WA_VTTK_STR-/BEV1/RPFAR1 sy-vline
WA_VTTK_STR-/BEV1/RPFAR2 sy-vline
WA_VTTK_STR-/BEV1/RPMOWA sy-vline
WA_VTTK_STR-/BEV1/RPANHAE sy-vline
WA_VTTK_STR-/BEV1/RPFLGNR sy-vline
WA_VTTK_STR-/VSO/R_STATUS sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.