ABAP Select data from SAP table ERDZ_M40 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 ERDZ_M40 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 ERDZ_M40. 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 ERDZ_M40 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_ERDZ_M40 TYPE STANDARD TABLE OF ERDZ_M40,
      WA_ERDZ_M40 TYPE ERDZ_M40,
      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: <ERDZ_M40> TYPE ERDZ_M40.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ERDZ_M40
*  INTO TABLE @DATA(IT_ERDZ_M402).
*--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_ERDZ_M40 INDEX 1 INTO DATA(WA_ERDZ_M402).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ERDZ_M40>-MANDT = 1.
<ERDZ_M40>-OPBEL = 1.
<ERDZ_M40>-BELZEILE = 1.
<ERDZ_M40>-BUKRS = 1.
<ERDZ_M40>-KTOSL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ERDZ_M40-HKONT, sy-vline,
  WA_ERDZ_M40-STPRZ, sy-vline,
  WA_ERDZ_M40-SBASW, sy-vline,
  WA_ERDZ_M40-SBETW, sy-vline,
  WA_ERDZ_M40-TXJCD, sy-vline,
  WA_ERDZ_M40-HVORG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ERDZ_M40 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_ERDZ_M40 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_ERDZ_M40 INTO WA_ERDZ_M40.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit GERNR, internal->external for field GERAET
CALL FUNCTION 'CONVERSION_EXIT_GERNR_OUTPUT'
  EXPORTING
    input =                      WA_ERDZ_M40-GERAET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ERDZ_M40-GERAET.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit HH_MM, internal->external for field ATIM
CALL FUNCTION 'CONVERSION_EXIT_HH_MM_OUTPUT'
  EXPORTING
    input =                      WA_ERDZ_M40-ATIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ERDZ_M40-ATIM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit HH_MM, internal->external for field ATIMVA
CALL FUNCTION 'CONVERSION_EXIT_HH_MM_OUTPUT'
  EXPORTING
    input =                      WA_ERDZ_M40-ATIMVA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ERDZ_M40-ATIMVA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit HH_MM, internal->external for field ATIMMAX
CALL FUNCTION 'CONVERSION_EXIT_HH_MM_OUTPUT'
  EXPORTING
    input =                      WA_ERDZ_M40-ATIMMAX
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ERDZ_M40-ATIMMAX.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit EXCRT, internal->external for field UMRECHKURS
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_ERDZ_M40-UMRECHKURS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ERDZ_M40-UMRECHKURS.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field PRINTDOC_REF
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_ERDZ_M40-PRINTDOC_REF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ERDZ_M40-PRINTDOC_REF.
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_ERDZ_M40_STR, 
MANDT TYPE STRING,
OPBEL TYPE STRING,
BELZEILE TYPE STRING,
BUKRS TYPE STRING,
KTOSL TYPE STRING,
HKONT TYPE STRING,
STPRZ TYPE STRING,
SBASW TYPE STRING,
SBETW TYPE STRING,
TXJCD TYPE STRING,
HVORG TYPE STRING,
SHKZG TYPE STRING,
BLDAT TYPE STRING,
BUDAT TYPE STRING,
FAEDN TYPE STRING,
BETRW TYPE STRING,
AUGBW TYPE STRING,
FAEDS TYPE STRING,
SKTOW TYPE STRING,
ASKTW TYPE STRING,
SKTPZ TYPE STRING,
VERTRAG TYPE STRING,
ABPOPBEL TYPE STRING,
SPARTE TYPE STRING,
XTOTAL_AMNT TYPE STRING,
AWTYP TYPE STRING,
AWKEY TYPE STRING,
CA_OPBEL TYPE STRING,
TAXRATE_INTERNAL TYPE STRING,
CSNO TYPE STRING,
BELZART TYPE STRING,
ABSLKZ TYPE STRING,
DIFFKZ TYPE STRING,
BUCHREL TYPE STRING,
MENGESTREL TYPE STRING,
BETRSTREL TYPE STRING,
STGRQNT TYPE STRING,
STGRAMT TYPE STRING,
PRINTREL TYPE STRING,
AKLASSE TYPE STRING,
BRANCHE TYPE STRING,
TVORG TYPE STRING,
GEGEN_TVORG TYPE STRING,
TAX_TVORG TYPE STRING,
LINESORT TYPE STRING,
AB TYPE STRING,
BIS TYPE STRING,
TIMTYPZA TYPE STRING,
SCHEMANR TYPE STRING,
SNO TYPE STRING,
PROGRAMM TYPE STRING,
MASSBILL TYPE STRING,
SAISON TYPE STRING,
TIMBASIS TYPE STRING,
TIMTYP TYPE STRING,
FRAN_TYPE TYPE STRING,
KONZIGR TYPE STRING,
TARIFTYP TYPE STRING,
TARIFNR TYPE STRING,
KONDIGR TYPE STRING,
STTARIF TYPE STRING,
GEWKEY TYPE STRING,
WDHFAKT TYPE STRING,
TEMP_AREA TYPE STRING,
DRCKSTUF TYPE STRING,
ABGGRND1 TYPE STRING,
ABGGRND2 TYPE STRING,
ABGGRND3 TYPE STRING,
ABGGRND4 TYPE STRING,
ABGGRND5 TYPE STRING,
ABGGRND6 TYPE STRING,
ABGGRND7 TYPE STRING,
ABGGRND8 TYPE STRING,
ABGGRND9 TYPE STRING,
ABGGRND10 TYPE STRING,
EIN01 TYPE STRING,
EIN02 TYPE STRING,
EIN03 TYPE STRING,
EIN04 TYPE STRING,
AUS01 TYPE STRING,
AUS02 TYPE STRING,
MASS1 TYPE STRING,
MASS2 TYPE STRING,
MASS3 TYPE STRING,
MASS4 TYPE STRING,
DATUM1 TYPE STRING,
DATUM2 TYPE STRING,
RABZUS TYPE STRING,
BACKCANC01 TYPE STRING,
BACKCANC02 TYPE STRING,
BACKCANC03 TYPE STRING,
BACKCANC04 TYPE STRING,
BACKCANC05 TYPE STRING,
BACKCANC TYPE STRING,
BACKEXEC TYPE STRING,
BACKDOCNO TYPE STRING,
BACKDOCLINE TYPE STRING,
DYNCANC01 TYPE STRING,
DYNCANC02 TYPE STRING,
DYNCANC03 TYPE STRING,
DYNCANC04 TYPE STRING,
DYNCANC05 TYPE STRING,
DYNCANC TYPE STRING,
DYNEXEC TYPE STRING,
LRATESTEP TYPE STRING,
PEB TYPE STRING,
OPLFDNR TYPE STRING,
STAFO TYPE STRING,
ARTMENGE TYPE STRING,
STATTART TYPE STRING,
TIMECONTRL TYPE STRING,
TCNUMTOR TYPE STRING,
TCDENOMTOR TYPE STRING,
TIMTYPQUOT TYPE STRING,
AKTIV TYPE STRING,
KONZVER TYPE STRING,
PERTYP TYPE STRING,
ERCHV_ANCHOR TYPE STRING,
OUCONTRACT TYPE STRING,
EQUNR TYPE STRING,
GERAET TYPE STRING,
MATNR TYPE STRING,
ZWNUMMER TYPE STRING,
INDEXNR TYPE STRING,
ABLESGR TYPE STRING,
ABLESGRV TYPE STRING,
ATIM TYPE STRING,
ATIMVA TYPE STRING,
ADATMAX TYPE STRING,
ATIMMAX TYPE STRING,
THGDATUM TYPE STRING,
ZUORDDAT TYPE STRING,
REGRELSORT TYPE STRING,
ABLBELNR TYPE STRING,
LOGIKNR TYPE STRING,
LOGIKZW TYPE STRING,
ISTABLART TYPE STRING,
ISTABLARTVA TYPE STRING,
EXTPKZ TYPE STRING,
BEGPROG TYPE STRING,
ENDEPROG TYPE STRING,
ABLHINW TYPE STRING,
QDPROC TYPE STRING,
MRCONNECT TYPE STRING,
MWSKZ TYPE STRING,
ERMWSKZ TYPE STRING,
NETTOBTR TYPE STRING,
TWAERS TYPE STRING,
PREISTUF TYPE STRING,
PREISTYP TYPE STRING,
PREIS TYPE STRING,
PREISZUS TYPE STRING,
VONZONE TYPE STRING,
BISZONE TYPE STRING,
ZONENNR TYPE STRING,
PREISBTR TYPE STRING,
MNGBASIS TYPE STRING,
PREIGKL TYPE STRING,
URPREIS TYPE STRING,
PREIADD TYPE STRING,
PREIFAKT TYPE STRING,
OPMULT TYPE STRING,
TXDAT_KK TYPE STRING,
PRCTR TYPE STRING,
KOSTL TYPE STRING,
PS_PSP_PNR TYPE STRING,
AUFNR TYPE STRING,
PAOBJNR TYPE STRING,
PAOBJNR_S TYPE STRING,
GSBER TYPE STRING,
APERIODIC TYPE STRING,
GROSSGROUP TYPE STRING,
BRUTTOZEILE TYPE STRING,
BUPLA TYPE STRING,
LINE_CLASS TYPE STRING,
PREISART TYPE STRING,
SEGMENT TYPE STRING,
LEUCHTNR TYPE STRING,
BETRART TYPE STRING,
SPGRUND TYPE STRING,
EIN05 TYPE STRING,
EIN06 TYPE STRING,
EIN07 TYPE STRING,
EIN08 TYPE STRING,
EIN09 TYPE STRING,
EIN10 TYPE STRING,
AUS03 TYPE STRING,
AUS04 TYPE STRING,
AUS05 TYPE STRING,
MASS5 TYPE STRING,
MASS6 TYPE STRING,
SC_BELNR TYPE STRING,
SC_BELZEILE TYPE STRING,
REFBELZEILE TYPE STRING,
SPERRUNG TYPE STRING,
NETTOFRMD TYPE STRING,
WAERSF TYPE STRING,
UMRECHDAT TYPE STRING,
UMRECHKURS TYPE STRING,
REFBELZONE TYPE STRING,
REFBILLDOCNO TYPE STRING,
FIRSTBELNR TYPE STRING,
TAXREL TYPE STRING,
TAXGROUP TYPE STRING,
BILLTYPE TYPE STRING,
OBJNR TYPE STRING,
ORDERNR TYPE STRING,
LAUFNR TYPE STRING,
ORDER_LAUFNR TYPE STRING,
GGVERTRAG TYPE STRING,
OLD_BELNR TYPE STRING,
CONDIREF TYPE STRING,
DATEFROM TYPE STRING,
TIMEFROM TYPE STRING,
DATETO TYPE STRING,
TIMETO TYPE STRING,
RATERELGROUP TYPE STRING,
BASIC_RATE TYPE STRING,
RATERELCAT TYPE STRING,
CONDBILLPROGID TYPE STRING,
GEN_CONTRACT TYPE STRING,
REC_CONTRACT TYPE STRING,
GEN_TOU TYPE STRING,
REC_TOU TYPE STRING,
PROPORTION TYPE STRING,
PROPORTION_EXT TYPE STRING,
I_ZWSTAND TYPE STRING,
I_ZWSTNDAB TYPE STRING,
I_ZWSTVOR TYPE STRING,
I_ABRMENGE TYPE STRING,
I_ABRMENGEVOR TYPE STRING,
I_ZWSTDIFF TYPE STRING,
I_ZAHL1 TYPE STRING,
I_ZAHL2 TYPE STRING,
I_ZAHL3 TYPE STRING,
I_ZAHL4 TYPE STRING,
I_ZAHL5 TYPE STRING,
I_ZAHL6 TYPE STRING,
ZEITANT TYPE STRING,
I_NETTOBTR_L TYPE STRING,
ERCHBELNR TYPE STRING,
ERCHZBELZEILE TYPE STRING,
SRCDOCNO TYPE STRING,
SRCDOCCAT TYPE STRING,
ITEMTYPE TYPE STRING,
DBTABLEOLD TYPE STRING,
SUBTOTAL_GROSS TYPE STRING,
PRINTDOC_REF TYPE STRING,
ISTYPE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ERDZ_M40_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_ERDZ_M40_STR-MANDT sy-vline 
WA_ERDZ_M40_STR-OPBEL sy-vline 
WA_ERDZ_M40_STR-BELZEILE sy-vline 
WA_ERDZ_M40_STR-BUKRS sy-vline 
WA_ERDZ_M40_STR-KTOSL sy-vline 
WA_ERDZ_M40_STR-HKONT sy-vline 
WA_ERDZ_M40_STR-STPRZ sy-vline 
WA_ERDZ_M40_STR-SBASW sy-vline 
WA_ERDZ_M40_STR-SBETW sy-vline 
WA_ERDZ_M40_STR-TXJCD sy-vline 
WA_ERDZ_M40_STR-HVORG sy-vline 
WA_ERDZ_M40_STR-SHKZG sy-vline 
WA_ERDZ_M40_STR-BLDAT sy-vline 
WA_ERDZ_M40_STR-BUDAT sy-vline 
WA_ERDZ_M40_STR-FAEDN sy-vline 
WA_ERDZ_M40_STR-BETRW sy-vline 
WA_ERDZ_M40_STR-AUGBW sy-vline 
WA_ERDZ_M40_STR-FAEDS sy-vline 
WA_ERDZ_M40_STR-SKTOW sy-vline 
WA_ERDZ_M40_STR-ASKTW sy-vline 
WA_ERDZ_M40_STR-SKTPZ sy-vline 
WA_ERDZ_M40_STR-VERTRAG sy-vline 
WA_ERDZ_M40_STR-ABPOPBEL sy-vline 
WA_ERDZ_M40_STR-SPARTE sy-vline 
WA_ERDZ_M40_STR-XTOTAL_AMNT sy-vline 
WA_ERDZ_M40_STR-AWTYP sy-vline 
WA_ERDZ_M40_STR-AWKEY sy-vline 
WA_ERDZ_M40_STR-CA_OPBEL sy-vline 
WA_ERDZ_M40_STR-TAXRATE_INTERNAL sy-vline 
WA_ERDZ_M40_STR-CSNO sy-vline 
WA_ERDZ_M40_STR-BELZART sy-vline 
WA_ERDZ_M40_STR-ABSLKZ sy-vline 
WA_ERDZ_M40_STR-DIFFKZ sy-vline 
WA_ERDZ_M40_STR-BUCHREL sy-vline 
WA_ERDZ_M40_STR-MENGESTREL sy-vline 
WA_ERDZ_M40_STR-BETRSTREL sy-vline 
WA_ERDZ_M40_STR-STGRQNT sy-vline 
WA_ERDZ_M40_STR-STGRAMT sy-vline 
WA_ERDZ_M40_STR-PRINTREL sy-vline 
WA_ERDZ_M40_STR-AKLASSE sy-vline 
WA_ERDZ_M40_STR-BRANCHE sy-vline 
WA_ERDZ_M40_STR-TVORG sy-vline 
WA_ERDZ_M40_STR-GEGEN_TVORG sy-vline 
WA_ERDZ_M40_STR-TAX_TVORG sy-vline 
WA_ERDZ_M40_STR-LINESORT sy-vline 
WA_ERDZ_M40_STR-AB sy-vline 
WA_ERDZ_M40_STR-BIS sy-vline 
WA_ERDZ_M40_STR-TIMTYPZA sy-vline 
WA_ERDZ_M40_STR-SCHEMANR sy-vline 
WA_ERDZ_M40_STR-SNO sy-vline 
WA_ERDZ_M40_STR-PROGRAMM sy-vline 
WA_ERDZ_M40_STR-MASSBILL sy-vline 
WA_ERDZ_M40_STR-SAISON sy-vline 
WA_ERDZ_M40_STR-TIMBASIS sy-vline 
WA_ERDZ_M40_STR-TIMTYP sy-vline 
WA_ERDZ_M40_STR-FRAN_TYPE sy-vline 
WA_ERDZ_M40_STR-KONZIGR sy-vline 
WA_ERDZ_M40_STR-TARIFTYP sy-vline 
WA_ERDZ_M40_STR-TARIFNR sy-vline 
WA_ERDZ_M40_STR-KONDIGR sy-vline 
WA_ERDZ_M40_STR-STTARIF sy-vline 
WA_ERDZ_M40_STR-GEWKEY sy-vline 
WA_ERDZ_M40_STR-WDHFAKT sy-vline 
WA_ERDZ_M40_STR-TEMP_AREA sy-vline 
WA_ERDZ_M40_STR-DRCKSTUF sy-vline 
WA_ERDZ_M40_STR-ABGGRND1 sy-vline 
WA_ERDZ_M40_STR-ABGGRND2 sy-vline 
WA_ERDZ_M40_STR-ABGGRND3 sy-vline 
WA_ERDZ_M40_STR-ABGGRND4 sy-vline 
WA_ERDZ_M40_STR-ABGGRND5 sy-vline 
WA_ERDZ_M40_STR-ABGGRND6 sy-vline 
WA_ERDZ_M40_STR-ABGGRND7 sy-vline 
WA_ERDZ_M40_STR-ABGGRND8 sy-vline 
WA_ERDZ_M40_STR-ABGGRND9 sy-vline 
WA_ERDZ_M40_STR-ABGGRND10 sy-vline 
WA_ERDZ_M40_STR-EIN01 sy-vline 
WA_ERDZ_M40_STR-EIN02 sy-vline 
WA_ERDZ_M40_STR-EIN03 sy-vline 
WA_ERDZ_M40_STR-EIN04 sy-vline 
WA_ERDZ_M40_STR-AUS01 sy-vline 
WA_ERDZ_M40_STR-AUS02 sy-vline 
WA_ERDZ_M40_STR-MASS1 sy-vline 
WA_ERDZ_M40_STR-MASS2 sy-vline 
WA_ERDZ_M40_STR-MASS3 sy-vline 
WA_ERDZ_M40_STR-MASS4 sy-vline 
WA_ERDZ_M40_STR-DATUM1 sy-vline 
WA_ERDZ_M40_STR-DATUM2 sy-vline 
WA_ERDZ_M40_STR-RABZUS sy-vline 
WA_ERDZ_M40_STR-BACKCANC01 sy-vline 
WA_ERDZ_M40_STR-BACKCANC02 sy-vline 
WA_ERDZ_M40_STR-BACKCANC03 sy-vline 
WA_ERDZ_M40_STR-BACKCANC04 sy-vline 
WA_ERDZ_M40_STR-BACKCANC05 sy-vline 
WA_ERDZ_M40_STR-BACKCANC sy-vline 
WA_ERDZ_M40_STR-BACKEXEC sy-vline 
WA_ERDZ_M40_STR-BACKDOCNO sy-vline 
WA_ERDZ_M40_STR-BACKDOCLINE sy-vline 
WA_ERDZ_M40_STR-DYNCANC01 sy-vline 
WA_ERDZ_M40_STR-DYNCANC02 sy-vline 
WA_ERDZ_M40_STR-DYNCANC03 sy-vline 
WA_ERDZ_M40_STR-DYNCANC04 sy-vline 
WA_ERDZ_M40_STR-DYNCANC05 sy-vline 
WA_ERDZ_M40_STR-DYNCANC sy-vline 
WA_ERDZ_M40_STR-DYNEXEC sy-vline 
WA_ERDZ_M40_STR-LRATESTEP sy-vline 
WA_ERDZ_M40_STR-PEB sy-vline 
WA_ERDZ_M40_STR-OPLFDNR sy-vline 
WA_ERDZ_M40_STR-STAFO sy-vline 
WA_ERDZ_M40_STR-ARTMENGE sy-vline 
WA_ERDZ_M40_STR-STATTART sy-vline 
WA_ERDZ_M40_STR-TIMECONTRL sy-vline 
WA_ERDZ_M40_STR-TCNUMTOR sy-vline 
WA_ERDZ_M40_STR-TCDENOMTOR sy-vline 
WA_ERDZ_M40_STR-TIMTYPQUOT sy-vline 
WA_ERDZ_M40_STR-AKTIV sy-vline 
WA_ERDZ_M40_STR-KONZVER sy-vline 
WA_ERDZ_M40_STR-PERTYP sy-vline 
WA_ERDZ_M40_STR-ERCHV_ANCHOR sy-vline 
WA_ERDZ_M40_STR-OUCONTRACT sy-vline 
WA_ERDZ_M40_STR-EQUNR sy-vline 
WA_ERDZ_M40_STR-GERAET sy-vline 
WA_ERDZ_M40_STR-MATNR sy-vline 
WA_ERDZ_M40_STR-ZWNUMMER sy-vline 
WA_ERDZ_M40_STR-INDEXNR sy-vline 
WA_ERDZ_M40_STR-ABLESGR sy-vline 
WA_ERDZ_M40_STR-ABLESGRV sy-vline 
WA_ERDZ_M40_STR-ATIM sy-vline 
WA_ERDZ_M40_STR-ATIMVA sy-vline 
WA_ERDZ_M40_STR-ADATMAX sy-vline 
WA_ERDZ_M40_STR-ATIMMAX sy-vline 
WA_ERDZ_M40_STR-THGDATUM sy-vline 
WA_ERDZ_M40_STR-ZUORDDAT sy-vline 
WA_ERDZ_M40_STR-REGRELSORT sy-vline 
WA_ERDZ_M40_STR-ABLBELNR sy-vline 
WA_ERDZ_M40_STR-LOGIKNR sy-vline 
WA_ERDZ_M40_STR-LOGIKZW sy-vline 
WA_ERDZ_M40_STR-ISTABLART sy-vline 
WA_ERDZ_M40_STR-ISTABLARTVA sy-vline 
WA_ERDZ_M40_STR-EXTPKZ sy-vline 
WA_ERDZ_M40_STR-BEGPROG sy-vline 
WA_ERDZ_M40_STR-ENDEPROG sy-vline 
WA_ERDZ_M40_STR-ABLHINW sy-vline 
WA_ERDZ_M40_STR-QDPROC sy-vline 
WA_ERDZ_M40_STR-MRCONNECT sy-vline 
WA_ERDZ_M40_STR-MWSKZ sy-vline 
WA_ERDZ_M40_STR-ERMWSKZ sy-vline 
WA_ERDZ_M40_STR-NETTOBTR sy-vline 
WA_ERDZ_M40_STR-TWAERS sy-vline 
WA_ERDZ_M40_STR-PREISTUF sy-vline 
WA_ERDZ_M40_STR-PREISTYP sy-vline 
WA_ERDZ_M40_STR-PREIS sy-vline 
WA_ERDZ_M40_STR-PREISZUS sy-vline 
WA_ERDZ_M40_STR-VONZONE sy-vline 
WA_ERDZ_M40_STR-BISZONE sy-vline 
WA_ERDZ_M40_STR-ZONENNR sy-vline 
WA_ERDZ_M40_STR-PREISBTR sy-vline 
WA_ERDZ_M40_STR-MNGBASIS sy-vline 
WA_ERDZ_M40_STR-PREIGKL sy-vline 
WA_ERDZ_M40_STR-URPREIS sy-vline 
WA_ERDZ_M40_STR-PREIADD sy-vline 
WA_ERDZ_M40_STR-PREIFAKT sy-vline 
WA_ERDZ_M40_STR-OPMULT sy-vline 
WA_ERDZ_M40_STR-TXDAT_KK sy-vline 
WA_ERDZ_M40_STR-PRCTR sy-vline 
WA_ERDZ_M40_STR-KOSTL sy-vline 
WA_ERDZ_M40_STR-PS_PSP_PNR sy-vline 
WA_ERDZ_M40_STR-AUFNR sy-vline 
WA_ERDZ_M40_STR-PAOBJNR sy-vline 
WA_ERDZ_M40_STR-PAOBJNR_S sy-vline 
WA_ERDZ_M40_STR-GSBER sy-vline 
WA_ERDZ_M40_STR-APERIODIC sy-vline 
WA_ERDZ_M40_STR-GROSSGROUP sy-vline 
WA_ERDZ_M40_STR-BRUTTOZEILE sy-vline 
WA_ERDZ_M40_STR-BUPLA sy-vline 
WA_ERDZ_M40_STR-LINE_CLASS sy-vline 
WA_ERDZ_M40_STR-PREISART sy-vline 
WA_ERDZ_M40_STR-SEGMENT sy-vline 
WA_ERDZ_M40_STR-LEUCHTNR sy-vline 
WA_ERDZ_M40_STR-BETRART sy-vline 
WA_ERDZ_M40_STR-SPGRUND sy-vline 
WA_ERDZ_M40_STR-EIN05 sy-vline 
WA_ERDZ_M40_STR-EIN06 sy-vline 
WA_ERDZ_M40_STR-EIN07 sy-vline 
WA_ERDZ_M40_STR-EIN08 sy-vline 
WA_ERDZ_M40_STR-EIN09 sy-vline 
WA_ERDZ_M40_STR-EIN10 sy-vline 
WA_ERDZ_M40_STR-AUS03 sy-vline 
WA_ERDZ_M40_STR-AUS04 sy-vline 
WA_ERDZ_M40_STR-AUS05 sy-vline 
WA_ERDZ_M40_STR-MASS5 sy-vline 
WA_ERDZ_M40_STR-MASS6 sy-vline 
WA_ERDZ_M40_STR-SC_BELNR sy-vline 
WA_ERDZ_M40_STR-SC_BELZEILE sy-vline 
WA_ERDZ_M40_STR-REFBELZEILE sy-vline 
WA_ERDZ_M40_STR-SPERRUNG sy-vline 
WA_ERDZ_M40_STR-NETTOFRMD sy-vline 
WA_ERDZ_M40_STR-WAERSF sy-vline 
WA_ERDZ_M40_STR-UMRECHDAT sy-vline 
WA_ERDZ_M40_STR-UMRECHKURS sy-vline 
WA_ERDZ_M40_STR-REFBELZONE sy-vline 
WA_ERDZ_M40_STR-REFBILLDOCNO sy-vline 
WA_ERDZ_M40_STR-FIRSTBELNR sy-vline 
WA_ERDZ_M40_STR-TAXREL sy-vline 
WA_ERDZ_M40_STR-TAXGROUP sy-vline 
WA_ERDZ_M40_STR-BILLTYPE sy-vline 
WA_ERDZ_M40_STR-OBJNR sy-vline 
WA_ERDZ_M40_STR-ORDERNR sy-vline 
WA_ERDZ_M40_STR-LAUFNR sy-vline 
WA_ERDZ_M40_STR-ORDER_LAUFNR sy-vline 
WA_ERDZ_M40_STR-GGVERTRAG sy-vline 
WA_ERDZ_M40_STR-OLD_BELNR sy-vline 
WA_ERDZ_M40_STR-CONDIREF sy-vline 
WA_ERDZ_M40_STR-DATEFROM sy-vline 
WA_ERDZ_M40_STR-TIMEFROM sy-vline 
WA_ERDZ_M40_STR-DATETO sy-vline 
WA_ERDZ_M40_STR-TIMETO sy-vline 
WA_ERDZ_M40_STR-RATERELGROUP sy-vline 
WA_ERDZ_M40_STR-BASIC_RATE sy-vline 
WA_ERDZ_M40_STR-RATERELCAT sy-vline 
WA_ERDZ_M40_STR-CONDBILLPROGID sy-vline 
WA_ERDZ_M40_STR-GEN_CONTRACT sy-vline 
WA_ERDZ_M40_STR-REC_CONTRACT sy-vline 
WA_ERDZ_M40_STR-GEN_TOU sy-vline 
WA_ERDZ_M40_STR-REC_TOU sy-vline 
WA_ERDZ_M40_STR-PROPORTION sy-vline 
WA_ERDZ_M40_STR-PROPORTION_EXT sy-vline 
WA_ERDZ_M40_STR-I_ZWSTAND sy-vline 
WA_ERDZ_M40_STR-I_ZWSTNDAB sy-vline 
WA_ERDZ_M40_STR-I_ZWSTVOR sy-vline 
WA_ERDZ_M40_STR-I_ABRMENGE sy-vline 
WA_ERDZ_M40_STR-I_ABRMENGEVOR sy-vline 
WA_ERDZ_M40_STR-I_ZWSTDIFF sy-vline 
WA_ERDZ_M40_STR-I_ZAHL1 sy-vline 
WA_ERDZ_M40_STR-I_ZAHL2 sy-vline 
WA_ERDZ_M40_STR-I_ZAHL3 sy-vline 
WA_ERDZ_M40_STR-I_ZAHL4 sy-vline 
WA_ERDZ_M40_STR-I_ZAHL5 sy-vline 
WA_ERDZ_M40_STR-I_ZAHL6 sy-vline 
WA_ERDZ_M40_STR-ZEITANT sy-vline 
WA_ERDZ_M40_STR-I_NETTOBTR_L sy-vline 
WA_ERDZ_M40_STR-ERCHBELNR sy-vline 
WA_ERDZ_M40_STR-ERCHZBELZEILE sy-vline 
WA_ERDZ_M40_STR-SRCDOCNO sy-vline 
WA_ERDZ_M40_STR-SRCDOCCAT sy-vline 
WA_ERDZ_M40_STR-ITEMTYPE sy-vline 
WA_ERDZ_M40_STR-DBTABLEOLD sy-vline 
WA_ERDZ_M40_STR-SUBTOTAL_GROSS sy-vline 
WA_ERDZ_M40_STR-PRINTDOC_REF sy-vline 
WA_ERDZ_M40_STR-ISTYPE sy-vline      INTO ld_text SEPARATED BY SPACE.

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