ABAP Select data from SAP table AFVG_CLEAR into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP AFVG_CLEAR 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 AFVG_CLEAR. 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 AFVG_CLEAR 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_AFVG_CLEAR TYPE STANDARD TABLE OF AFVG_CLEAR,
      WA_AFVG_CLEAR TYPE AFVG_CLEAR,
      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: <AFVG_CLEAR> TYPE AFVG_CLEAR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM AFVG_CLEAR
*  INTO TABLE @DATA(IT_AFVG_CLEAR2).
*--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_AFVG_CLEAR INDEX 1 INTO DATA(WA_AFVG_CLEAR2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_AFVG_CLEAR ASSIGNING <AFVG_CLEAR>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<AFVG_CLEAR>-VBKZ = 1.
<AFVG_CLEAR>-FLG_SEL = 1.
<AFVG_CLEAR>-AUFNR_T = 1.
<AFVG_CLEAR>-FLG_CALCUL = 1.
<AFVG_CLEAR>-RUECK = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_AFVG_CLEAR-RMZHL, sy-vline,
  WA_AFVG_CLEAR-BEDID, sy-vline,
  WA_AFVG_CLEAR-BEDZL, sy-vline,
  WA_AFVG_CLEAR-BANFN, sy-vline,
  WA_AFVG_CLEAR-BNFPO, sy-vline,
  WA_AFVG_CLEAR-EBELN, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_AFVG_CLEAR 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_AFVG_CLEAR 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_AFVG_CLEAR INTO WA_AFVG_CLEAR.


*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 AUFNR_T
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_AFVG_CLEAR-AUFNR_T
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_AFVG_CLEAR-AUFNR_T.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit MATN1, internal->external for field ASSEMBLY
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_AFVG_CLEAR-ASSEMBLY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_AFVG_CLEAR-ASSEMBLY.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MAINBOM
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_AFVG_CLEAR-MAINBOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_AFVG_CLEAR-MAINBOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSP, internal->external for field PROJN
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_AFVG_CLEAR-PROJN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_AFVG_CLEAR-PROJN.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field PDAE
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_AFVG_CLEAR-PDAE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_AFVG_CLEAR-PDAE.
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_AFVG_CLEAR_STR, 
VBKZ TYPE STRING,
FLG_SEL TYPE STRING,
AUFNR_T TYPE STRING,
FLG_CALCUL TYPE STRING,
RUECK TYPE STRING,
RMZHL TYPE STRING,
BEDID TYPE STRING,
BEDZL TYPE STRING,
BANFN TYPE STRING,
BNFPO TYPE STRING,
EBELN TYPE STRING,
EBELP TYPE STRING,
LEK01 TYPE STRING,
LEK02 TYPE STRING,
LEK03 TYPE STRING,
LEK04 TYPE STRING,
LEK05 TYPE STRING,
LEK06 TYPE STRING,
ANZLU TYPE STRING,
LEKNW TYPE STRING,
LMNGA TYPE STRING,
XMNGA TYPE STRING,
GMNGA TYPE STRING,
ISM01 TYPE STRING,
ISM02 TYPE STRING,
ISM03 TYPE STRING,
ISM04 TYPE STRING,
ISM05 TYPE STRING,
ISM06 TYPE STRING,
ISMNW TYPE STRING,
FSAVD TYPE STRING,
FSAVZ TYPE STRING,
FSSBD TYPE STRING,
FSSBZ TYPE STRING,
FSSAD TYPE STRING,
FSSAZ TYPE STRING,
FSEDD TYPE STRING,
FSEDZ TYPE STRING,
FSSLD TYPE STRING,
FSSLZ TYPE STRING,
FSELD TYPE STRING,
FSELZ TYPE STRING,
SSAVD TYPE STRING,
SSAVZ TYPE STRING,
SSSBD TYPE STRING,
SSSBZ TYPE STRING,
SSSAD TYPE STRING,
SSSAZ TYPE STRING,
SSEDD TYPE STRING,
SSEDZ TYPE STRING,
SSSLD TYPE STRING,
SSSLZ TYPE STRING,
SSELD TYPE STRING,
SSELZ TYPE STRING,
ISAVD TYPE STRING,
IEAVD TYPE STRING,
ISDD TYPE STRING,
ISDZ TYPE STRING,
IERD TYPE STRING,
IERZ TYPE STRING,
ISBD TYPE STRING,
ISBZ TYPE STRING,
IEBD TYPE STRING,
IEBZ TYPE STRING,
ISAD TYPE STRING,
ISAZ TYPE STRING,
IEDD TYPE STRING,
IEDZ TYPE STRING,
PEDD TYPE STRING,
PEDZ TYPE STRING,
PUFFR TYPE STRING,
PUFGS TYPE STRING,
NTANF TYPE STRING,
NTANZ TYPE STRING,
NTEND TYPE STRING,
NTENZ TYPE STRING,
EWSTD TYPE STRING,
EWSTZ TYPE STRING,
EWEND TYPE STRING,
EWENZ TYPE STRING,
EWSTE TYPE STRING,
EWSTA TYPE STRING,
WARTZ TYPE STRING,
ISERH TYPE STRING,
OFM01 TYPE STRING,
OFM02 TYPE STRING,
OFM03 TYPE STRING,
OFM04 TYPE STRING,
OFM05 TYPE STRING,
OFM06 TYPE STRING,
OFMNW TYPE STRING,
FPAVD TYPE STRING,
FPAVZ TYPE STRING,
FPEDD TYPE STRING,
FPEDZ TYPE STRING,
SPAVD TYPE STRING,
SPAVZ TYPE STRING,
SPEDD TYPE STRING,
SPEDZ TYPE STRING,
PUFGP TYPE STRING,
PUFFP TYPE STRING,
NO_DISP TYPE STRING,
SEQTYPE TYPE STRING,
WEMNG_OPR TYPE STRING,
WEMEH_OPR TYPE STRING,
BANFN_DEL TYPE STRING,
BNFPO_DEL TYPE STRING,
FLG_PURS TYPE STRING,
INDEXSUMNR TYPE STRING,
KONNR TYPE STRING,
KTPNR TYPE STRING,
FLG_VAB TYPE STRING,
XCHAR TYPE STRING,
AMGLG TYPE STRING,
KNTTP_SNET TYPE STRING,
KZKFG TYPE STRING,
TXCHG TYPE STRING,
AMGKO TYPE STRING,
SPLQ TYPE STRING,
COMP_RES TYPE STRING,
ASKUM TYPE STRING,
DKCHG TYPE STRING,
PSTXCHG TYPE STRING,
IDENT TYPE STRING,
SERVCHG TYPE STRING,
SANKA_CHG TYPE STRING,
ASSEMBLY TYPE STRING,
MAINBOM TYPE STRING,
MAINTY TYPE STRING,
EPROFILE TYPE STRING,
/CUM/INTCUNR TYPE STRING,
EPANF TYPE STRING,
EPANZ TYPE STRING,
EPEND TYPE STRING,
EPENZ TYPE STRING,
PROJN TYPE STRING,
ARBII TYPE STRING,
WERKI TYPE STRING,
RMNGA TYPE STRING,
ILE01 TYPE STRING,
ILE02 TYPE STRING,
ILE03 TYPE STRING,
ILE04 TYPE STRING,
ILE05 TYPE STRING,
ILE06 TYPE STRING,
PDAU TYPE STRING,
PDAE TYPE STRING,
VSNMR TYPE STRING,
ORGAUFPL TYPE STRING,
ORGAPLZL TYPE STRING,
INACT TYPE STRING,
AFNAM TYPE STRING,
BEDNR TYPE STRING,
OBJTYPE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_AFVG_CLEAR_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_AFVG_CLEAR_STR-VBKZ sy-vline 
WA_AFVG_CLEAR_STR-FLG_SEL sy-vline 
WA_AFVG_CLEAR_STR-AUFNR_T sy-vline 
WA_AFVG_CLEAR_STR-FLG_CALCUL sy-vline 
WA_AFVG_CLEAR_STR-RUECK sy-vline 
WA_AFVG_CLEAR_STR-RMZHL sy-vline 
WA_AFVG_CLEAR_STR-BEDID sy-vline 
WA_AFVG_CLEAR_STR-BEDZL sy-vline 
WA_AFVG_CLEAR_STR-BANFN sy-vline 
WA_AFVG_CLEAR_STR-BNFPO sy-vline 
WA_AFVG_CLEAR_STR-EBELN sy-vline 
WA_AFVG_CLEAR_STR-EBELP sy-vline 
WA_AFVG_CLEAR_STR-LEK01 sy-vline 
WA_AFVG_CLEAR_STR-LEK02 sy-vline 
WA_AFVG_CLEAR_STR-LEK03 sy-vline 
WA_AFVG_CLEAR_STR-LEK04 sy-vline 
WA_AFVG_CLEAR_STR-LEK05 sy-vline 
WA_AFVG_CLEAR_STR-LEK06 sy-vline 
WA_AFVG_CLEAR_STR-ANZLU sy-vline 
WA_AFVG_CLEAR_STR-LEKNW sy-vline 
WA_AFVG_CLEAR_STR-LMNGA sy-vline 
WA_AFVG_CLEAR_STR-XMNGA sy-vline 
WA_AFVG_CLEAR_STR-GMNGA sy-vline 
WA_AFVG_CLEAR_STR-ISM01 sy-vline 
WA_AFVG_CLEAR_STR-ISM02 sy-vline 
WA_AFVG_CLEAR_STR-ISM03 sy-vline 
WA_AFVG_CLEAR_STR-ISM04 sy-vline 
WA_AFVG_CLEAR_STR-ISM05 sy-vline 
WA_AFVG_CLEAR_STR-ISM06 sy-vline 
WA_AFVG_CLEAR_STR-ISMNW sy-vline 
WA_AFVG_CLEAR_STR-FSAVD sy-vline 
WA_AFVG_CLEAR_STR-FSAVZ sy-vline 
WA_AFVG_CLEAR_STR-FSSBD sy-vline 
WA_AFVG_CLEAR_STR-FSSBZ sy-vline 
WA_AFVG_CLEAR_STR-FSSAD sy-vline 
WA_AFVG_CLEAR_STR-FSSAZ sy-vline 
WA_AFVG_CLEAR_STR-FSEDD sy-vline 
WA_AFVG_CLEAR_STR-FSEDZ sy-vline 
WA_AFVG_CLEAR_STR-FSSLD sy-vline 
WA_AFVG_CLEAR_STR-FSSLZ sy-vline 
WA_AFVG_CLEAR_STR-FSELD sy-vline 
WA_AFVG_CLEAR_STR-FSELZ sy-vline 
WA_AFVG_CLEAR_STR-SSAVD sy-vline 
WA_AFVG_CLEAR_STR-SSAVZ sy-vline 
WA_AFVG_CLEAR_STR-SSSBD sy-vline 
WA_AFVG_CLEAR_STR-SSSBZ sy-vline 
WA_AFVG_CLEAR_STR-SSSAD sy-vline 
WA_AFVG_CLEAR_STR-SSSAZ sy-vline 
WA_AFVG_CLEAR_STR-SSEDD sy-vline 
WA_AFVG_CLEAR_STR-SSEDZ sy-vline 
WA_AFVG_CLEAR_STR-SSSLD sy-vline 
WA_AFVG_CLEAR_STR-SSSLZ sy-vline 
WA_AFVG_CLEAR_STR-SSELD sy-vline 
WA_AFVG_CLEAR_STR-SSELZ sy-vline 
WA_AFVG_CLEAR_STR-ISAVD sy-vline 
WA_AFVG_CLEAR_STR-IEAVD sy-vline 
WA_AFVG_CLEAR_STR-ISDD sy-vline 
WA_AFVG_CLEAR_STR-ISDZ sy-vline 
WA_AFVG_CLEAR_STR-IERD sy-vline 
WA_AFVG_CLEAR_STR-IERZ sy-vline 
WA_AFVG_CLEAR_STR-ISBD sy-vline 
WA_AFVG_CLEAR_STR-ISBZ sy-vline 
WA_AFVG_CLEAR_STR-IEBD sy-vline 
WA_AFVG_CLEAR_STR-IEBZ sy-vline 
WA_AFVG_CLEAR_STR-ISAD sy-vline 
WA_AFVG_CLEAR_STR-ISAZ sy-vline 
WA_AFVG_CLEAR_STR-IEDD sy-vline 
WA_AFVG_CLEAR_STR-IEDZ sy-vline 
WA_AFVG_CLEAR_STR-PEDD sy-vline 
WA_AFVG_CLEAR_STR-PEDZ sy-vline 
WA_AFVG_CLEAR_STR-PUFFR sy-vline 
WA_AFVG_CLEAR_STR-PUFGS sy-vline 
WA_AFVG_CLEAR_STR-NTANF sy-vline 
WA_AFVG_CLEAR_STR-NTANZ sy-vline 
WA_AFVG_CLEAR_STR-NTEND sy-vline 
WA_AFVG_CLEAR_STR-NTENZ sy-vline 
WA_AFVG_CLEAR_STR-EWSTD sy-vline 
WA_AFVG_CLEAR_STR-EWSTZ sy-vline 
WA_AFVG_CLEAR_STR-EWEND sy-vline 
WA_AFVG_CLEAR_STR-EWENZ sy-vline 
WA_AFVG_CLEAR_STR-EWSTE sy-vline 
WA_AFVG_CLEAR_STR-EWSTA sy-vline 
WA_AFVG_CLEAR_STR-WARTZ sy-vline 
WA_AFVG_CLEAR_STR-ISERH sy-vline 
WA_AFVG_CLEAR_STR-OFM01 sy-vline 
WA_AFVG_CLEAR_STR-OFM02 sy-vline 
WA_AFVG_CLEAR_STR-OFM03 sy-vline 
WA_AFVG_CLEAR_STR-OFM04 sy-vline 
WA_AFVG_CLEAR_STR-OFM05 sy-vline 
WA_AFVG_CLEAR_STR-OFM06 sy-vline 
WA_AFVG_CLEAR_STR-OFMNW sy-vline 
WA_AFVG_CLEAR_STR-FPAVD sy-vline 
WA_AFVG_CLEAR_STR-FPAVZ sy-vline 
WA_AFVG_CLEAR_STR-FPEDD sy-vline 
WA_AFVG_CLEAR_STR-FPEDZ sy-vline 
WA_AFVG_CLEAR_STR-SPAVD sy-vline 
WA_AFVG_CLEAR_STR-SPAVZ sy-vline 
WA_AFVG_CLEAR_STR-SPEDD sy-vline 
WA_AFVG_CLEAR_STR-SPEDZ sy-vline 
WA_AFVG_CLEAR_STR-PUFGP sy-vline 
WA_AFVG_CLEAR_STR-PUFFP sy-vline 
WA_AFVG_CLEAR_STR-NO_DISP sy-vline 
WA_AFVG_CLEAR_STR-SEQTYPE sy-vline 
WA_AFVG_CLEAR_STR-WEMNG_OPR sy-vline 
WA_AFVG_CLEAR_STR-WEMEH_OPR sy-vline 
WA_AFVG_CLEAR_STR-BANFN_DEL sy-vline 
WA_AFVG_CLEAR_STR-BNFPO_DEL sy-vline 
WA_AFVG_CLEAR_STR-FLG_PURS sy-vline 
WA_AFVG_CLEAR_STR-INDEXSUMNR sy-vline 
WA_AFVG_CLEAR_STR-KONNR sy-vline 
WA_AFVG_CLEAR_STR-KTPNR sy-vline 
WA_AFVG_CLEAR_STR-FLG_VAB sy-vline 
WA_AFVG_CLEAR_STR-XCHAR sy-vline 
WA_AFVG_CLEAR_STR-AMGLG sy-vline 
WA_AFVG_CLEAR_STR-KNTTP_SNET sy-vline 
WA_AFVG_CLEAR_STR-KZKFG sy-vline 
WA_AFVG_CLEAR_STR-TXCHG sy-vline 
WA_AFVG_CLEAR_STR-AMGKO sy-vline 
WA_AFVG_CLEAR_STR-SPLQ sy-vline 
WA_AFVG_CLEAR_STR-COMP_RES sy-vline 
WA_AFVG_CLEAR_STR-ASKUM sy-vline 
WA_AFVG_CLEAR_STR-DKCHG sy-vline 
WA_AFVG_CLEAR_STR-PSTXCHG sy-vline 
WA_AFVG_CLEAR_STR-IDENT sy-vline 
WA_AFVG_CLEAR_STR-SERVCHG sy-vline 
WA_AFVG_CLEAR_STR-SANKA_CHG sy-vline 
WA_AFVG_CLEAR_STR-ASSEMBLY sy-vline 
WA_AFVG_CLEAR_STR-MAINBOM sy-vline 
WA_AFVG_CLEAR_STR-MAINTY sy-vline 
WA_AFVG_CLEAR_STR-EPROFILE sy-vline 
WA_AFVG_CLEAR_STR-/CUM/INTCUNR sy-vline 
WA_AFVG_CLEAR_STR-EPANF sy-vline 
WA_AFVG_CLEAR_STR-EPANZ sy-vline 
WA_AFVG_CLEAR_STR-EPEND sy-vline 
WA_AFVG_CLEAR_STR-EPENZ sy-vline 
WA_AFVG_CLEAR_STR-PROJN sy-vline 
WA_AFVG_CLEAR_STR-ARBII sy-vline 
WA_AFVG_CLEAR_STR-WERKI sy-vline 
WA_AFVG_CLEAR_STR-RMNGA sy-vline 
WA_AFVG_CLEAR_STR-ILE01 sy-vline 
WA_AFVG_CLEAR_STR-ILE02 sy-vline 
WA_AFVG_CLEAR_STR-ILE03 sy-vline 
WA_AFVG_CLEAR_STR-ILE04 sy-vline 
WA_AFVG_CLEAR_STR-ILE05 sy-vline 
WA_AFVG_CLEAR_STR-ILE06 sy-vline 
WA_AFVG_CLEAR_STR-PDAU sy-vline 
WA_AFVG_CLEAR_STR-PDAE sy-vline 
WA_AFVG_CLEAR_STR-VSNMR sy-vline 
WA_AFVG_CLEAR_STR-ORGAUFPL sy-vline 
WA_AFVG_CLEAR_STR-ORGAPLZL sy-vline 
WA_AFVG_CLEAR_STR-INACT sy-vline 
WA_AFVG_CLEAR_STR-AFNAM sy-vline 
WA_AFVG_CLEAR_STR-BEDNR sy-vline 
WA_AFVG_CLEAR_STR-OBJTYPE sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.