ABAP Select data from SAP table REGUD 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 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.