ABAP Select data from SAP table VIRPS407 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 VIRPS407 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 VIRPS407. 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 VIRPS407 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_VIRPS407 TYPE STANDARD TABLE OF VIRPS407,
      WA_VIRPS407 TYPE VIRPS407,
      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: <VIRPS407> TYPE VIRPS407.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VIRPS407
*  INTO TABLE @DATA(IT_VIRPS4072).
*--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_VIRPS407 INDEX 1 INTO DATA(WA_VIRPS4072).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<VIRPS407>-MANDT = 1.
<VIRPS407>-SSOUR = 1.
<VIRPS407>-VRSIO = 1.
<VIRPS407>-SPMON = 1.
<VIRPS407>-SPTAG = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VIRPS407-SPWOC, sy-vline,
  WA_VIRPS407-SPBUP, sy-vline,
  WA_VIRPS407-BUKRS_01, sy-vline,
  WA_VIRPS407-GSBER_02, sy-vline,
  WA_VIRPS407-SWENR_03, sy-vline,
  WA_VIRPS407-SGRNR_04, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_VIRPS407 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_VIRPS407 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_VIRPS407 INTO WA_VIRPS407.


*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 PERI, internal->external for field SPMON
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SPMON
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SPMON.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field SPWOC
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SPWOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SPWOC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI, internal->external for field SPBUP
CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SPBUP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SPBUP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SWENR, internal->external for field SWENR_03
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SWENR_03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SWENR_03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field SGRNR_04
CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SGRNR_04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SGRNR_04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGENR, internal->external for field SGENR_05
CALL FUNCTION 'CONVERSION_EXIT_SGENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SGENR_05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SGENR_05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SMENR, internal->external for field SMENR_06
CALL FUNCTION 'CONVERSION_EXIT_SMENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SMENR_06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SMENR_06.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit SGENR, internal->external for field SGENR
CALL FUNCTION 'CONVERSION_EXIT_SGENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SGENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SGENR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SGRNR, internal->external for field SGRNR
CALL FUNCTION 'CONVERSION_EXIT_SGRNR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SGRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SGRNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SMENR, internal->external for field SMENR
CALL FUNCTION 'CONVERSION_EXIT_SMENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SMENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SMENR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit SWENR, internal->external for field SWENR
CALL FUNCTION 'CONVERSION_EXIT_SWENR_OUTPUT'
  EXPORTING
    input =                      WA_VIRPS407-SWENR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VIRPS407-SWENR.
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_VIRPS407_STR, 
MANDT TYPE STRING,
SSOUR TYPE STRING,
VRSIO TYPE STRING,
SPMON TYPE STRING,
SPTAG TYPE STRING,
SPWOC TYPE STRING,
SPBUP TYPE STRING,
BUKRS_01 TYPE STRING,
GSBER_02 TYPE STRING,
SWENR_03 TYPE STRING,
SGRNR_04 TYPE STRING,
SGENR_05 TYPE STRING,
SMENR_06 TYPE STRING,
SMIVE_07 TYPE STRING,
PERIV TYPE STRING,
VWDAT TYPE STRING,
USRUNIT TYPE STRING,
USRCUKY TYPE STRING,
WAERS TYPE STRING,
FEINS TYPE STRING,
DERSTDR TYPE STRING,
PROFL TYPE STRING,
ABNNR TYPE STRING,
STECHEM TYPE STRING,
ABNUNR TYPE STRING,
XNNPARTABW TYPE STRING,
XPARTNRABW TYPE STRING,
XORT TYPE STRING,
XPLZ TYPE STRING,
XSTRASSE TYPE STRING,
ANKUEN TYPE STRING,
XMVANART TYPE STRING,
XMVANART44 TYPE STRING,
DASPVON TYPE STRING,
DASPBIS TYPE STRING,
ANZMV TYPE STRING,
AZIMM TYPE STRING,
AHALBZI TYPE STRING,
SKUEFR TYPE STRING,
SAUSTKL TYPE STRING,
BANKKS TYPE STRING,
DBKERH TYPE STRING,
MEINS TYPE STRING,
XBELEGNG TYPE STRING,
SBELEGNG TYPE STRING,
USR02 TYPE STRING,
USR03 TYPE STRING,
USR00 TYPE STRING,
USR01 TYPE STRING,
USR08 TYPE STRING,
USR09 TYPE STRING,
USRUNIT1 TYPE STRING,
USRCUKY2 TYPE STRING,
USRCUKY1 TYPE STRING,
USRUNIT2 TYPE STRING,
USR10 TYPE STRING,
USR11 TYPE STRING,
USR04 TYPE STRING,
USR05 TYPE STRING,
USR06 TYPE STRING,
USR07 TYPE STRING,
JBETRST TYPE STRING,
BKONDQM TYPE STRING,
FBEZUG TYPE STRING,
BUKRS TYPE STRING,
DERZAHL TYPE STRING,
DAKTV TYPE STRING,
DAUSZG TYPE STRING,
DEINZG TYPE STRING,
DKUEZU TYPE STRING,
DMIBEG TYPE STRING,
DMIEND TYPE STRING,
DUNTBIS TYPE STRING,
ZUSPKUNNR TYPE STRING,
BABRE TYPE STRING,
PERHOE TYPE STRING,
FKONDFLA TYPE STRING,
SGENR TYPE STRING,
XGEBT TYPE STRING,
SGEBT TYPE STRING,
GERSTD TYPE STRING,
SSTOCKW TYPE STRING,
XSTOCKW TYPE STRING,
GSBER TYPE STRING,
XASPGRD TYPE STRING,
XMANSP TYPE STRING,
SASPGRD TYPE STRING,
SGRNR TYPE STRING,
KUNNR TYPE STRING,
XNNPART TYPE STRING,
XPARTNR TYPE STRING,
INTRENO TYPE STRING,
DKAUFOPT TYPE STRING,
JKAUFOPT TYPE STRING,
BKAUTION TYPE STRING,
JMFREI TYPE STRING,
DGULTAB TYPE STRING,
SKOART TYPE STRING,
BKOND TYPE STRING,
KOSTL TYPE STRING,
DATAB TYPE STRING,
XKUEFR TYPE STRING,
DKUEFR TYPE STRING,
XLGESCH TYPE STRING,
RLGESCH TYPE STRING,
SLAGK TYPE STRING,
MANSP TYPE STRING,
JMAHNMSP TYPE STRING,
MABER TYPE STRING,
MADAT TYPE STRING,
MANST TYPE STRING,
BMWST TYPE STRING,
AMELDIN TYPE STRING,
SMENR TYPE STRING,
XMBEZ TYPE STRING,
SKAUTART TYPE STRING,
XKAUTART TYPE STRING,
XAUSTKL TYPE STRING,
XLAGK TYPE STRING,
XMIETSP TYPE STRING,
SMIETSP TYPE STRING,
SMIVE TYPE STRING,
XMVART TYPE STRING,
FLG_MITARB TYPE STRING,
OBJNR TYPE STRING,
SPARTNR TYPE STRING,
SMVANART TYPE STRING,
PRCTR TYPE STRING,
JBKRZ TYPE STRING,
REINS TYPE STRING,
JRMSCHPR TYPE STRING,
DGABANRT44 TYPE STRING,
DBISANRT44 TYPE STRING,
SMVANART44 TYPE STRING,
SICHGEB TYPE STRING,
JSKUEND TYPE STRING,
STTXT_EXT TYPE STRING,
STTXT_INT TYPE STRING,
DGAB TYPE STRING,
SABRG TYPE STRING,
PPROZ0 TYPE STRING,
BMINUMS TYPE STRING,
BUMSPROJ TYPE STRING,
DVMUN TYPE STRING,
VERLG TYPE STRING,
SMVART TYPE STRING,
JVERL TYPE STRING,
SWENR TYPE STRING,
XGZLSCH TYPE STRING,
ZLSCH TYPE STRING,
XZLSCH TYPE STRING,
GZLSCH TYPE STRING,
PZUABSP TYPE STRING,
PROZTEIL TYPE STRING,
DGUELTAB TYPE STRING,
DGUELBIS TYPE STRING,
DFAELL TYPE STRING,
BZUBETR TYPE STRING,
XZUSPKUNNR TYPE STRING,
ZUSP TYPE STRING,
SPARTNRABW TYPE STRING,
DAENDDR TYPE STRING,
DMIENKUE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_VIRPS407_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_VIRPS407_STR-MANDT sy-vline 
WA_VIRPS407_STR-SSOUR sy-vline 
WA_VIRPS407_STR-VRSIO sy-vline 
WA_VIRPS407_STR-SPMON sy-vline 
WA_VIRPS407_STR-SPTAG sy-vline 
WA_VIRPS407_STR-SPWOC sy-vline 
WA_VIRPS407_STR-SPBUP sy-vline 
WA_VIRPS407_STR-BUKRS_01 sy-vline 
WA_VIRPS407_STR-GSBER_02 sy-vline 
WA_VIRPS407_STR-SWENR_03 sy-vline 
WA_VIRPS407_STR-SGRNR_04 sy-vline 
WA_VIRPS407_STR-SGENR_05 sy-vline 
WA_VIRPS407_STR-SMENR_06 sy-vline 
WA_VIRPS407_STR-SMIVE_07 sy-vline 
WA_VIRPS407_STR-PERIV sy-vline 
WA_VIRPS407_STR-VWDAT sy-vline 
WA_VIRPS407_STR-USRUNIT sy-vline 
WA_VIRPS407_STR-USRCUKY sy-vline 
WA_VIRPS407_STR-WAERS sy-vline 
WA_VIRPS407_STR-FEINS sy-vline 
WA_VIRPS407_STR-DERSTDR sy-vline 
WA_VIRPS407_STR-PROFL sy-vline 
WA_VIRPS407_STR-ABNNR sy-vline 
WA_VIRPS407_STR-STECHEM sy-vline 
WA_VIRPS407_STR-ABNUNR sy-vline 
WA_VIRPS407_STR-XNNPARTABW sy-vline 
WA_VIRPS407_STR-XPARTNRABW sy-vline 
WA_VIRPS407_STR-XORT sy-vline 
WA_VIRPS407_STR-XPLZ sy-vline 
WA_VIRPS407_STR-XSTRASSE sy-vline 
WA_VIRPS407_STR-ANKUEN sy-vline 
WA_VIRPS407_STR-XMVANART sy-vline 
WA_VIRPS407_STR-XMVANART44 sy-vline 
WA_VIRPS407_STR-DASPVON sy-vline 
WA_VIRPS407_STR-DASPBIS sy-vline 
WA_VIRPS407_STR-ANZMV sy-vline 
WA_VIRPS407_STR-AZIMM sy-vline 
WA_VIRPS407_STR-AHALBZI sy-vline 
WA_VIRPS407_STR-SKUEFR sy-vline 
WA_VIRPS407_STR-SAUSTKL sy-vline 
WA_VIRPS407_STR-BANKKS sy-vline 
WA_VIRPS407_STR-DBKERH sy-vline 
WA_VIRPS407_STR-MEINS sy-vline 
WA_VIRPS407_STR-XBELEGNG sy-vline 
WA_VIRPS407_STR-SBELEGNG sy-vline 
WA_VIRPS407_STR-USR02 sy-vline 
WA_VIRPS407_STR-USR03 sy-vline 
WA_VIRPS407_STR-USR00 sy-vline 
WA_VIRPS407_STR-USR01 sy-vline 
WA_VIRPS407_STR-USR08 sy-vline 
WA_VIRPS407_STR-USR09 sy-vline 
WA_VIRPS407_STR-USRUNIT1 sy-vline 
WA_VIRPS407_STR-USRCUKY2 sy-vline 
WA_VIRPS407_STR-USRCUKY1 sy-vline 
WA_VIRPS407_STR-USRUNIT2 sy-vline 
WA_VIRPS407_STR-USR10 sy-vline 
WA_VIRPS407_STR-USR11 sy-vline 
WA_VIRPS407_STR-USR04 sy-vline 
WA_VIRPS407_STR-USR05 sy-vline 
WA_VIRPS407_STR-USR06 sy-vline 
WA_VIRPS407_STR-USR07 sy-vline 
WA_VIRPS407_STR-JBETRST sy-vline 
WA_VIRPS407_STR-BKONDQM sy-vline 
WA_VIRPS407_STR-FBEZUG sy-vline 
WA_VIRPS407_STR-BUKRS sy-vline 
WA_VIRPS407_STR-DERZAHL sy-vline 
WA_VIRPS407_STR-DAKTV sy-vline 
WA_VIRPS407_STR-DAUSZG sy-vline 
WA_VIRPS407_STR-DEINZG sy-vline 
WA_VIRPS407_STR-DKUEZU sy-vline 
WA_VIRPS407_STR-DMIBEG sy-vline 
WA_VIRPS407_STR-DMIEND sy-vline 
WA_VIRPS407_STR-DUNTBIS sy-vline 
WA_VIRPS407_STR-ZUSPKUNNR sy-vline 
WA_VIRPS407_STR-BABRE sy-vline 
WA_VIRPS407_STR-PERHOE sy-vline 
WA_VIRPS407_STR-FKONDFLA sy-vline 
WA_VIRPS407_STR-SGENR sy-vline 
WA_VIRPS407_STR-XGEBT sy-vline 
WA_VIRPS407_STR-SGEBT sy-vline 
WA_VIRPS407_STR-GERSTD sy-vline 
WA_VIRPS407_STR-SSTOCKW sy-vline 
WA_VIRPS407_STR-XSTOCKW sy-vline 
WA_VIRPS407_STR-GSBER sy-vline 
WA_VIRPS407_STR-XASPGRD sy-vline 
WA_VIRPS407_STR-XMANSP sy-vline 
WA_VIRPS407_STR-SASPGRD sy-vline 
WA_VIRPS407_STR-SGRNR sy-vline 
WA_VIRPS407_STR-KUNNR sy-vline 
WA_VIRPS407_STR-XNNPART sy-vline 
WA_VIRPS407_STR-XPARTNR sy-vline 
WA_VIRPS407_STR-INTRENO sy-vline 
WA_VIRPS407_STR-DKAUFOPT sy-vline 
WA_VIRPS407_STR-JKAUFOPT sy-vline 
WA_VIRPS407_STR-BKAUTION sy-vline 
WA_VIRPS407_STR-JMFREI sy-vline 
WA_VIRPS407_STR-DGULTAB sy-vline 
WA_VIRPS407_STR-SKOART sy-vline 
WA_VIRPS407_STR-BKOND sy-vline 
WA_VIRPS407_STR-KOSTL sy-vline 
WA_VIRPS407_STR-DATAB sy-vline 
WA_VIRPS407_STR-XKUEFR sy-vline 
WA_VIRPS407_STR-DKUEFR sy-vline 
WA_VIRPS407_STR-XLGESCH sy-vline 
WA_VIRPS407_STR-RLGESCH sy-vline 
WA_VIRPS407_STR-SLAGK sy-vline 
WA_VIRPS407_STR-MANSP sy-vline 
WA_VIRPS407_STR-JMAHNMSP sy-vline 
WA_VIRPS407_STR-MABER sy-vline 
WA_VIRPS407_STR-MADAT sy-vline 
WA_VIRPS407_STR-MANST sy-vline 
WA_VIRPS407_STR-BMWST sy-vline 
WA_VIRPS407_STR-AMELDIN sy-vline 
WA_VIRPS407_STR-SMENR sy-vline 
WA_VIRPS407_STR-XMBEZ sy-vline 
WA_VIRPS407_STR-SKAUTART sy-vline 
WA_VIRPS407_STR-XKAUTART sy-vline 
WA_VIRPS407_STR-XAUSTKL sy-vline 
WA_VIRPS407_STR-XLAGK sy-vline 
WA_VIRPS407_STR-XMIETSP sy-vline 
WA_VIRPS407_STR-SMIETSP sy-vline 
WA_VIRPS407_STR-SMIVE sy-vline 
WA_VIRPS407_STR-XMVART sy-vline 
WA_VIRPS407_STR-FLG_MITARB sy-vline 
WA_VIRPS407_STR-OBJNR sy-vline 
WA_VIRPS407_STR-SPARTNR sy-vline 
WA_VIRPS407_STR-SMVANART sy-vline 
WA_VIRPS407_STR-PRCTR sy-vline 
WA_VIRPS407_STR-JBKRZ sy-vline 
WA_VIRPS407_STR-REINS sy-vline 
WA_VIRPS407_STR-JRMSCHPR sy-vline 
WA_VIRPS407_STR-DGABANRT44 sy-vline 
WA_VIRPS407_STR-DBISANRT44 sy-vline 
WA_VIRPS407_STR-SMVANART44 sy-vline 
WA_VIRPS407_STR-SICHGEB sy-vline 
WA_VIRPS407_STR-JSKUEND sy-vline 
WA_VIRPS407_STR-STTXT_EXT sy-vline 
WA_VIRPS407_STR-STTXT_INT sy-vline 
WA_VIRPS407_STR-DGAB sy-vline 
WA_VIRPS407_STR-SABRG sy-vline 
WA_VIRPS407_STR-PPROZ0 sy-vline 
WA_VIRPS407_STR-BMINUMS sy-vline 
WA_VIRPS407_STR-BUMSPROJ sy-vline 
WA_VIRPS407_STR-DVMUN sy-vline 
WA_VIRPS407_STR-VERLG sy-vline 
WA_VIRPS407_STR-SMVART sy-vline 
WA_VIRPS407_STR-JVERL sy-vline 
WA_VIRPS407_STR-SWENR sy-vline 
WA_VIRPS407_STR-XGZLSCH sy-vline 
WA_VIRPS407_STR-ZLSCH sy-vline 
WA_VIRPS407_STR-XZLSCH sy-vline 
WA_VIRPS407_STR-GZLSCH sy-vline 
WA_VIRPS407_STR-PZUABSP sy-vline 
WA_VIRPS407_STR-PROZTEIL sy-vline 
WA_VIRPS407_STR-DGUELTAB sy-vline 
WA_VIRPS407_STR-DGUELBIS sy-vline 
WA_VIRPS407_STR-DFAELL sy-vline 
WA_VIRPS407_STR-BZUBETR sy-vline 
WA_VIRPS407_STR-XZUSPKUNNR sy-vline 
WA_VIRPS407_STR-ZUSP sy-vline 
WA_VIRPS407_STR-SPARTNRABW sy-vline 
WA_VIRPS407_STR-DAENDDR sy-vline 
WA_VIRPS407_STR-DMIENKUE sy-vline      INTO ld_text SEPARATED BY SPACE.

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