ABAP Select data from SAP table WRMA_S_DISPTAB 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 WRMA_S_DISPTAB 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 WRMA_S_DISPTAB. 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 WRMA_S_DISPTAB 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_WRMA_S_DISPTAB TYPE STANDARD TABLE OF WRMA_S_DISPTAB,
      WA_WRMA_S_DISPTAB TYPE WRMA_S_DISPTAB,
      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: <WRMA_S_DISPTAB> TYPE WRMA_S_DISPTAB.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM WRMA_S_DISPTAB
*  INTO TABLE @DATA(IT_WRMA_S_DISPTAB2).
*--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_WRMA_S_DISPTAB INDEX 1 INTO DATA(WA_WRMA_S_DISPTAB2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_WRMA_S_DISPTAB ASSIGNING <WRMA_S_DISPTAB>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<WRMA_S_DISPTAB>-POBJECT = 1.
<WRMA_S_DISPTAB>-OBJECT = 1.
<WRMA_S_DISPTAB>-TEXT = 1.
<WRMA_S_DISPTAB>-WAERS = 1.
<WRMA_S_DISPTAB>-DMBTR01 = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_WRMA_S_DISPTAB-DMBTR02, sy-vline,
WA_WRMA_S_DISPTAB-DMBTR03, sy-vline,
WA_WRMA_S_DISPTAB-DMBTR04, sy-vline,
WA_WRMA_S_DISPTAB-DMBTR05, sy-vline,
WA_WRMA_S_DISPTAB-DMBTR06, sy-vline,
WA_WRMA_S_DISPTAB-DMBTR07, sy-vline.
ENDLOOP. *Add any further fields from structure WA_WRMA_S_DISPTAB 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_WRMA_S_DISPTAB 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_WRMA_S_DISPTAB INTO WA_WRMA_S_DISPTAB. *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 AU132, internal->external for field DMBTR01 CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_WRMA_S_DISPTAB-DMBTR01 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_WRMA_S_DISPTAB-DMBTR01.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AU132, internal->external for field DMBTR50 CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT' EXPORTING input = WA_WRMA_S_DISPTAB-DMBTR50 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_WRMA_S_DISPTAB-DMBTR50.
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_WRMA_S_DISPTAB_STR,
POBJECT TYPE STRING,
OBJECT TYPE STRING,
TEXT TYPE STRING,
WAERS TYPE STRING,
DMBTR01 TYPE STRING,
DMBTR02 TYPE STRING,
DMBTR03 TYPE STRING,
DMBTR04 TYPE STRING,
DMBTR05 TYPE STRING,
DMBTR06 TYPE STRING,
DMBTR07 TYPE STRING,
DMBTR08 TYPE STRING,
DMBTR09 TYPE STRING,
DMBTR10 TYPE STRING,
DMBTR11 TYPE STRING,
DMBTR12 TYPE STRING,
DMBTR13 TYPE STRING,
DMBTR14 TYPE STRING,
DMBTR15 TYPE STRING,
DMBTR16 TYPE STRING,
DMBTR17 TYPE STRING,
DMBTR18 TYPE STRING,
DMBTR19 TYPE STRING,
DMBTR20 TYPE STRING,
DMBTR21 TYPE STRING,
DMBTR22 TYPE STRING,
DMBTR23 TYPE STRING,
DMBTR24 TYPE STRING,
DMBTR25 TYPE STRING,
DMBTR26 TYPE STRING,
DMBTR27 TYPE STRING,
DMBTR28 TYPE STRING,
DMBTR29 TYPE STRING,
DMBTR30 TYPE STRING,
DMBTR31 TYPE STRING,
DMBTR32 TYPE STRING,
DMBTR33 TYPE STRING,
DMBTR34 TYPE STRING,
DMBTR35 TYPE STRING,
DMBTR36 TYPE STRING,
DMBTR37 TYPE STRING,
DMBTR38 TYPE STRING,
DMBTR39 TYPE STRING,
DMBTR40 TYPE STRING,
DMBTR41 TYPE STRING,
DMBTR42 TYPE STRING,
DMBTR43 TYPE STRING,
DMBTR44 TYPE STRING,
DMBTR45 TYPE STRING,
DMBTR46 TYPE STRING,
DMBTR47 TYPE STRING,
DMBTR48 TYPE STRING,
DMBTR49 TYPE STRING,
DMBTR50 TYPE STRING,END OF T_EKKO_STR. DATA: WA_WRMA_S_DISPTAB_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_WRMA_S_DISPTAB_STR-POBJECT sy-vline
WA_WRMA_S_DISPTAB_STR-OBJECT sy-vline
WA_WRMA_S_DISPTAB_STR-TEXT sy-vline
WA_WRMA_S_DISPTAB_STR-WAERS sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR01 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR02 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR03 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR04 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR05 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR06 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR07 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR08 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR09 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR10 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR11 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR12 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR13 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR14 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR15 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR16 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR17 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR18 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR19 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR20 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR21 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR22 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR23 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR24 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR25 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR26 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR27 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR28 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR29 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR30 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR31 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR32 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR33 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR34 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR35 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR36 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR37 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR38 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR39 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR40 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR41 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR42 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR43 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR44 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR45 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR46 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR47 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR48 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR49 sy-vline
WA_WRMA_S_DISPTAB_STR-DMBTR50 sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.