ABAP Select data from SAP table REGUD 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 REGUD 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 REGUD. 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 REGUD 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_REGUD TYPE STANDARD TABLE OF REGUD,
      WA_REGUD TYPE REGUD,
      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: <REGUD> TYPE REGUD.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM REGUD
*  INTO TABLE @DATA(IT_REGUD2).
*--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_REGUD INDEX 1 INTO DATA(WA_REGUD2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<REGUD>-WAERS = 1.
<REGUD>-HWAER = 1.
<REGUD>-ZWELS = 1.
<REGUD>-OVBLN = 1.
<REGUD>-OBKNT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_REGUD-OBNKL, sy-vline,
  WA_REGUD-OTXSL, sy-vline,
  WA_REGUD-OZBKT, sy-vline,
  WA_REGUD-OZBKL, sy-vline,
  WA_REGUD-UBNKA, sy-vline,
  WA_REGUD-UBSTR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_REGUD 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_REGUD 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_REGUD INTO WA_REGUD.


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

*Conversion exit AU112, internal->external for field WECG1
CALL FUNCTION 'CONVERSION_EXIT_AU112_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WECG1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WECG1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU112, internal->external for field WECG2
CALL FUNCTION 'CONVERSION_EXIT_AU112_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WECG2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WECG2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field DMBTR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-DMBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-DMBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WRBTR
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WRBTR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WRBTR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SKNTO
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SKNTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SKNTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WSKTO
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WSKTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WSKTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field QSTEU
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-QSTEU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-QSTEU.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WQSTE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WQSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WQSTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field ABZUG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-ABZUG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-ABZUG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WABZG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WABZG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WABZG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field NETTO
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-NETTO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-NETTO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field WNETT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-WNETT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-WNETT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SDMBT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SDMBT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SDMBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SWRBT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SWRBT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SWRBT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SSKFB
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SSKFB
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SSKFB.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SSKNT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SSKNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SSKNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SWSKT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SWSKT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SWSKT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SQSSH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SQSSH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SQSSH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SQSTE
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SQSTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SQSTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SWQST
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SWQST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SWQST.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SABZG
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SABZG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SABZG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SWABZ
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SWABZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SWABZ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SNETT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SNETT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SNETT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field SWNET
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_REGUD-SWNET
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_REGUD-SWNET.
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_REGUD_STR, 
WAERS TYPE STRING,
HWAER TYPE STRING,
ZWELS TYPE STRING,
OVBLN TYPE STRING,
OBKNT TYPE STRING,
OBNKL TYPE STRING,
OTXSL TYPE STRING,
OZBKT TYPE STRING,
OZBKL TYPE STRING,
UBNKA TYPE STRING,
UBSTR TYPE STRING,
UBORT TYPE STRING,
UBANK TYPE STRING,
UBRCH TYPE STRING,
UIBAN TYPE STRING,
UBUSA TYPE STRING,
ABSTX TYPE STRING,
ABSOR TYPE STRING,
AUST1 TYPE STRING,
AUST2 TYPE STRING,
AUST3 TYPE STRING,
AUSTO TYPE STRING,
TXTKO TYPE STRING,
TXTFU TYPE STRING,
TXTUN TYPE STRING,
TXTAB TYPE STRING,
ZBNKA TYPE STRING,
ZBSTR TYPE STRING,
ZBORT TYPE STRING,
ZBANK TYPE STRING,
ZBRCH TYPE STRING,
ZIBAN TYPE STRING,
MNDID TYPE STRING,
CRDID TYPE STRING,
ZNM1S TYPE STRING,
ZNM2S TYPE STRING,
ZPLOR TYPE STRING,
ZPFST TYPE STRING,
ZLNDX TYPE STRING,
ZREGX TYPE STRING,
PLORT TYPE STRING,
PFSTR TYPE STRING,
LANDX TYPE STRING,
XABWZ TYPE STRING,
XEINZ TYPE STRING,
EELND TYPE STRING,
TELND TYPE STRING,
DGLND TYPE STRING,
DALND TYPE STRING,
ESUMM TYPE STRING,
TSUMM TYPE STRING,
DSUMM TYPE STRING,
EANZA TYPE STRING,
TANZA TYPE STRING,
DANZA TYPE STRING,
LVAWV TYPE STRING,
ZUSWE TYPE STRING,
ZWCK1 TYPE STRING,
ZWCK2 TYPE STRING,
AUSFT TYPE STRING,
BSCHX TYPE STRING,
GJAHR TYPE STRING,
ZALIW TYPE STRING,
WEFIW TYPE STRING,
WDAIW TYPE STRING,
WECNR TYPE STRING,
WECAN TYPE STRING,
WECG1 TYPE STRING,
WECG2 TYPE STRING,
DMBTR TYPE STRING,
WRBTR TYPE STRING,
SKNTO TYPE STRING,
WSKTO TYPE STRING,
QSTEU TYPE STRING,
WQSTE TYPE STRING,
ABZUG TYPE STRING,
WABZG TYPE STRING,
NETTO TYPE STRING,
NETTS TYPE STRING,
WNETT TYPE STRING,
WNETS TYPE STRING,
SDMBT TYPE STRING,
SWRBT TYPE STRING,
SSKFB TYPE STRING,
SSKNT TYPE STRING,
SWSKT TYPE STRING,
SQSSH TYPE STRING,
SQSTE TYPE STRING,
SWQST TYPE STRING,
SABZG TYPE STRING,
SWABZ TYPE STRING,
SNETT TYPE STRING,
SNETS TYPE STRING,
SWNET TYPE STRING,
SWNES TYPE STRING,
SOCRA TYPE STRING,
SOCRB TYPE STRING,
SUMME TYPE STRING,
SUFAX TYPE STRING,
SUMAIL TYPE STRING,
SUEDI TYPE STRING,
SUXML TYPE STRING,
ZAHLT TYPE STRING,
ANBLG TYPE STRING,
ANLAG TYPE STRING,
AVISH TYPE STRING,
AVISE TYPE STRING,
AVFAX TYPE STRING,
AVMAIL TYPE STRING,
AVEDI TYPE STRING,
AVXML TYPE STRING,
AVEDN TYPE STRING,
AVXMN TYPE STRING,
LABEL TYPE STRING,
CHECF TYPE STRING,
STAPF TYPE STRING,
CHECT TYPE STRING,
STAPT TYPE STRING,
TEXT1 TYPE STRING,
TEXT2 TYPE STRING,
TEXT3 TYPE STRING,
TEXT4 TYPE STRING,
TEXT5 TYPE STRING,
TEXT6 TYPE STRING,
TEXT7 TYPE STRING,
TEXT8 TYPE STRING,
TEXT9 TYPE STRING,
TXTHR TYPE STRING,
X01 TYPE STRING,
X02 TYPE STRING,
X03 TYPE STRING,
X04 TYPE STRING,
X05 TYPE STRING,
X06 TYPE STRING,
X07 TYPE STRING,
X08 TYPE STRING,
X09 TYPE STRING,
X10 TYPE STRING,
X11 TYPE STRING,
X12 TYPE STRING,
X13 TYPE STRING,
X14 TYPE STRING,
X15 TYPE STRING,
X16 TYPE STRING,
X17 TYPE STRING,
X18 TYPE STRING,
X19 TYPE STRING,
X20 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_REGUD_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_REGUD_STR-WAERS sy-vline 
WA_REGUD_STR-HWAER sy-vline 
WA_REGUD_STR-ZWELS sy-vline 
WA_REGUD_STR-OVBLN sy-vline 
WA_REGUD_STR-OBKNT sy-vline 
WA_REGUD_STR-OBNKL sy-vline 
WA_REGUD_STR-OTXSL sy-vline 
WA_REGUD_STR-OZBKT sy-vline 
WA_REGUD_STR-OZBKL sy-vline 
WA_REGUD_STR-UBNKA sy-vline 
WA_REGUD_STR-UBSTR sy-vline 
WA_REGUD_STR-UBORT sy-vline 
WA_REGUD_STR-UBANK sy-vline 
WA_REGUD_STR-UBRCH sy-vline 
WA_REGUD_STR-UIBAN sy-vline 
WA_REGUD_STR-UBUSA sy-vline 
WA_REGUD_STR-ABSTX sy-vline 
WA_REGUD_STR-ABSOR sy-vline 
WA_REGUD_STR-AUST1 sy-vline 
WA_REGUD_STR-AUST2 sy-vline 
WA_REGUD_STR-AUST3 sy-vline 
WA_REGUD_STR-AUSTO sy-vline 
WA_REGUD_STR-TXTKO sy-vline 
WA_REGUD_STR-TXTFU sy-vline 
WA_REGUD_STR-TXTUN sy-vline 
WA_REGUD_STR-TXTAB sy-vline 
WA_REGUD_STR-ZBNKA sy-vline 
WA_REGUD_STR-ZBSTR sy-vline 
WA_REGUD_STR-ZBORT sy-vline 
WA_REGUD_STR-ZBANK sy-vline 
WA_REGUD_STR-ZBRCH sy-vline 
WA_REGUD_STR-ZIBAN sy-vline 
WA_REGUD_STR-MNDID sy-vline 
WA_REGUD_STR-CRDID sy-vline 
WA_REGUD_STR-ZNM1S sy-vline 
WA_REGUD_STR-ZNM2S sy-vline 
WA_REGUD_STR-ZPLOR sy-vline 
WA_REGUD_STR-ZPFST sy-vline 
WA_REGUD_STR-ZLNDX sy-vline 
WA_REGUD_STR-ZREGX sy-vline 
WA_REGUD_STR-PLORT sy-vline 
WA_REGUD_STR-PFSTR sy-vline 
WA_REGUD_STR-LANDX sy-vline 
WA_REGUD_STR-XABWZ sy-vline 
WA_REGUD_STR-XEINZ sy-vline 
WA_REGUD_STR-EELND sy-vline 
WA_REGUD_STR-TELND sy-vline 
WA_REGUD_STR-DGLND sy-vline 
WA_REGUD_STR-DALND sy-vline 
WA_REGUD_STR-ESUMM sy-vline 
WA_REGUD_STR-TSUMM sy-vline 
WA_REGUD_STR-DSUMM sy-vline 
WA_REGUD_STR-EANZA sy-vline 
WA_REGUD_STR-TANZA sy-vline 
WA_REGUD_STR-DANZA sy-vline 
WA_REGUD_STR-LVAWV sy-vline 
WA_REGUD_STR-ZUSWE sy-vline 
WA_REGUD_STR-ZWCK1 sy-vline 
WA_REGUD_STR-ZWCK2 sy-vline 
WA_REGUD_STR-AUSFT sy-vline 
WA_REGUD_STR-BSCHX sy-vline 
WA_REGUD_STR-GJAHR sy-vline 
WA_REGUD_STR-ZALIW sy-vline 
WA_REGUD_STR-WEFIW sy-vline 
WA_REGUD_STR-WDAIW sy-vline 
WA_REGUD_STR-WECNR sy-vline 
WA_REGUD_STR-WECAN sy-vline 
WA_REGUD_STR-WECG1 sy-vline 
WA_REGUD_STR-WECG2 sy-vline 
WA_REGUD_STR-DMBTR sy-vline 
WA_REGUD_STR-WRBTR sy-vline 
WA_REGUD_STR-SKNTO sy-vline 
WA_REGUD_STR-WSKTO sy-vline 
WA_REGUD_STR-QSTEU sy-vline 
WA_REGUD_STR-WQSTE sy-vline 
WA_REGUD_STR-ABZUG sy-vline 
WA_REGUD_STR-WABZG sy-vline 
WA_REGUD_STR-NETTO sy-vline 
WA_REGUD_STR-NETTS sy-vline 
WA_REGUD_STR-WNETT sy-vline 
WA_REGUD_STR-WNETS sy-vline 
WA_REGUD_STR-SDMBT sy-vline 
WA_REGUD_STR-SWRBT sy-vline 
WA_REGUD_STR-SSKFB sy-vline 
WA_REGUD_STR-SSKNT sy-vline 
WA_REGUD_STR-SWSKT sy-vline 
WA_REGUD_STR-SQSSH sy-vline 
WA_REGUD_STR-SQSTE sy-vline 
WA_REGUD_STR-SWQST sy-vline 
WA_REGUD_STR-SABZG sy-vline 
WA_REGUD_STR-SWABZ sy-vline 
WA_REGUD_STR-SNETT sy-vline 
WA_REGUD_STR-SNETS sy-vline 
WA_REGUD_STR-SWNET sy-vline 
WA_REGUD_STR-SWNES sy-vline 
WA_REGUD_STR-SOCRA sy-vline 
WA_REGUD_STR-SOCRB sy-vline 
WA_REGUD_STR-SUMME sy-vline 
WA_REGUD_STR-SUFAX sy-vline 
WA_REGUD_STR-SUMAIL sy-vline 
WA_REGUD_STR-SUEDI sy-vline 
WA_REGUD_STR-SUXML sy-vline 
WA_REGUD_STR-ZAHLT sy-vline 
WA_REGUD_STR-ANBLG sy-vline 
WA_REGUD_STR-ANLAG sy-vline 
WA_REGUD_STR-AVISH sy-vline 
WA_REGUD_STR-AVISE sy-vline 
WA_REGUD_STR-AVFAX sy-vline 
WA_REGUD_STR-AVMAIL sy-vline 
WA_REGUD_STR-AVEDI sy-vline 
WA_REGUD_STR-AVXML sy-vline 
WA_REGUD_STR-AVEDN sy-vline 
WA_REGUD_STR-AVXMN sy-vline 
WA_REGUD_STR-LABEL sy-vline 
WA_REGUD_STR-CHECF sy-vline 
WA_REGUD_STR-STAPF sy-vline 
WA_REGUD_STR-CHECT sy-vline 
WA_REGUD_STR-STAPT sy-vline 
WA_REGUD_STR-TEXT1 sy-vline 
WA_REGUD_STR-TEXT2 sy-vline 
WA_REGUD_STR-TEXT3 sy-vline 
WA_REGUD_STR-TEXT4 sy-vline 
WA_REGUD_STR-TEXT5 sy-vline 
WA_REGUD_STR-TEXT6 sy-vline 
WA_REGUD_STR-TEXT7 sy-vline 
WA_REGUD_STR-TEXT8 sy-vline 
WA_REGUD_STR-TEXT9 sy-vline 
WA_REGUD_STR-TXTHR sy-vline 
WA_REGUD_STR-X01 sy-vline 
WA_REGUD_STR-X02 sy-vline 
WA_REGUD_STR-X03 sy-vline 
WA_REGUD_STR-X04 sy-vline 
WA_REGUD_STR-X05 sy-vline 
WA_REGUD_STR-X06 sy-vline 
WA_REGUD_STR-X07 sy-vline 
WA_REGUD_STR-X08 sy-vline 
WA_REGUD_STR-X09 sy-vline 
WA_REGUD_STR-X10 sy-vline 
WA_REGUD_STR-X11 sy-vline 
WA_REGUD_STR-X12 sy-vline 
WA_REGUD_STR-X13 sy-vline 
WA_REGUD_STR-X14 sy-vline 
WA_REGUD_STR-X15 sy-vline 
WA_REGUD_STR-X16 sy-vline 
WA_REGUD_STR-X17 sy-vline 
WA_REGUD_STR-X18 sy-vline 
WA_REGUD_STR-X19 sy-vline 
WA_REGUD_STR-X20 sy-vline      INTO ld_text SEPARATED BY SPACE.

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