ABAP Select data from SAP table RM03M 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 RM03M 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 RM03M. 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 RM03M 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_RM03M TYPE STANDARD TABLE OF RM03M,
      WA_RM03M TYPE RM03M,
      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: <RM03M> TYPE RM03M.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RM03M
*  INTO TABLE @DATA(IT_RM03M2).
*--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_RM03M INDEX 1 INTO DATA(WA_RM03M2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RM03M>-MATNR = 1.
<RM03M>-WERKS = 1.
<RM03M>-LGORT = 1.
<RM03M>-BWKEY = 1.
<RM03M>-BWTAR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RM03M-VKORG, sy-vline,
  WA_RM03M-VTWEG, sy-vline,
  WA_RM03M-LGNUM, sy-vline,
  WA_RM03M-LGTYP, sy-vline,
  WA_RM03M-MTART, sy-vline,
  WA_RM03M-MBRSH, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RM03M 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_RM03M 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_RM03M INTO WA_RM03M.


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

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

*Conversion exit GJAHR, internal->external for field VMGJA
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RM03M-VMGJA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M-VMGJA.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_RM03M-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M-SPRAS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field WRK_LFGJA
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RM03M-WRK_LFGJA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M-WRK_LFGJA.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit NUMCV, internal->external for field REVLV
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_RM03M-REVLV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M-REVLV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field STDPD
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_RM03M-STDPD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RM03M-STDPD.
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_RM03M_STR, 
MATNR TYPE STRING,
WERKS TYPE STRING,
LGORT TYPE STRING,
BWKEY TYPE STRING,
BWTAR TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
LGNUM TYPE STRING,
LGTYP TYPE STRING,
MTART TYPE STRING,
MBRSH TYPE STRING,
REF_MATNR TYPE STRING,
REF_WERKS TYPE STRING,
REF_LGORT TYPE STRING,
REF_BWKEY TYPE STRING,
REF_BWTAR TYPE STRING,
REF_VKORG TYPE STRING,
REF_VTWEG TYPE STRING,
REF_LGNUM TYPE STRING,
REF_LGTYP TYPE STRING,
BESKZ TYPE STRING,
DISPR TYPE STRING,
LVORM TYPE STRING,
DYTX1 TYPE STRING,
DYTX2 TYPE STRING,
DYTX3 TYPE STRING,
VCTX1 TYPE STRING,
VCTX2 TYPE STRING,
VCTX3 TYPE STRING,
KZAU1 TYPE STRING,
KZAU2 TYPE STRING,
KZSE1 TYPE STRING,
KZSE2 TYPE STRING,
KZSE3 TYPE STRING,
KORFA TYPE STRING,
PEINH TYPE STRING,
ANZ_WERKS1 TYPE STRING,
ANZ_WERKS2 TYPE STRING,
ANZ_LGORT1 TYPE STRING,
ANZ_LGORT2 TYPE STRING,
ANZ_BWKEY1 TYPE STRING,
ANZ_BWKEY2 TYPE STRING,
ANZ_BWTAR1 TYPE STRING,
ANZ_BWTAR2 TYPE STRING,
ANZ_VKORG1 TYPE STRING,
ANZ_VKORG2 TYPE STRING,
ANZ_VTWEG1 TYPE STRING,
ANZ_VTWEG2 TYPE STRING,
ANZ_LGNUM1 TYPE STRING,
ANZ_LGNUM2 TYPE STRING,
ANZ_LGTYP1 TYPE STRING,
ANZ_LGTYP2 TYPE STRING,
PSTAT1 TYPE STRING,
PSTAT2 TYPE STRING,
PERKZ TYPE STRING,
VMGJA TYPE STRING,
VMMON TYPE STRING,
UMREZ TYPE STRING,
UMREN TYPE STRING,
MEINH TYPE STRING,
LFLAG TYPE STRING,
NFLAG TYPE STRING,
RLGOR TYPE STRING,
DISKZ TYPE STRING,
LSOBS TYPE STRING,
LMINB TYPE STRING,
LBSTF TYPE STRING,
LGPBE TYPE STRING,
VTLAG TYPE STRING,
TEXT1 TYPE STRING,
TEXT2 TYPE STRING,
SPRAS TYPE STRING,
LTEX1 TYPE STRING,
LTEX2 TYPE STRING,
LTEX3 TYPE STRING,
LTEX4 TYPE STRING,
LTEX5 TYPE STRING,
LTEX6 TYPE STRING,
LTEX7 TYPE STRING,
LTEX8 TYPE STRING,
LTEX9 TYPE STRING,
FORM1 TYPE STRING,
FORM2 TYPE STRING,
FORM3 TYPE STRING,
FORM4 TYPE STRING,
WRK_LABST TYPE STRING,
WRK_UNBST TYPE STRING,
WRK_INSME TYPE STRING,
WRK_EINME TYPE STRING,
WRK_SPEME TYPE STRING,
WRK_RETME TYPE STRING,
WRK_UMLME TYPE STRING,
WRK_LFGJA TYPE STRING,
WRK_LFMON TYPE STRING,
WRK_VMLAB TYPE STRING,
WRK_VMINS TYPE STRING,
WRK_VMEIN TYPE STRING,
WRK_VMSPE TYPE STRING,
WRK_VMRET TYPE STRING,
WRK_VMUML TYPE STRING,
WRK_VVLAB TYPE STRING,
WRK_KLABS TYPE STRING,
WRK_KINSM TYPE STRING,
WRK_KEINM TYPE STRING,
WRK_KSPEM TYPE STRING,
BWTTY TYPE STRING,
KZLTX TYPE STRING,
SANTW TYPE STRING,
EKGRP TYPE STRING,
AAUSW TYPE STRING,
ASCHL TYPE STRING,
ABRSH TYPE STRING,
TEXT3 TYPE STRING,
PROPR TYPE STRING,
PRIOD TYPE STRING,
PRWRT TYPE STRING,
KOPRW TYPE STRING,
ANTEI TYPE STRING,
SAIIN TYPE STRING,
FIXKZ TYPE STRING,
FAKTO TYPE STRING,
APERI TYPE STRING,
VBWRT TYPE STRING,
KOVBW TYPE STRING,
VBTX1 TYPE STRING,
VBTX2 TYPE STRING,
TAXKM TYPE STRING,
NAME1 TYPE STRING,
TEXPR TYPE STRING,
MEINS TYPE STRING,
XLIFO TYPE STRING,
MYPOL TYPE STRING,
BUKRS TYPE STRING,
REF_BUKRS TYPE STRING,
WERK280 TYPE STRING,
NAME280 TYPE STRING,
KZTLB TYPE STRING,
KOKRS TYPE STRING,
KOATY TYPE STRING,
DOKAR TYPE STRING,
DOKNR TYPE STRING,
DOKTL TYPE STRING,
DOKVR TYPE STRING,
CVHIE TYPE STRING,
DATXT TYPE STRING,
DKTXT TYPE STRING,
MDZUO TYPE STRING,
VPMAT TYPE STRING,
VPWRK TYPE STRING,
VPREF TYPE STRING,
VPBME TYPE STRING,
MDZTX TYPE STRING,
REVLV TYPE STRING,
AWOBA TYPE STRING,
D0580 TYPE STRING,
DMAEX TYPE STRING,
DMAPE TYPE STRING,
STDPD TYPE STRING,
KALST TYPE STRING,
XLTYP TYPE STRING,
XVPLB TYPE STRING,
TAXIM TYPE STRING,
STEXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RM03M_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_RM03M_STR-MATNR sy-vline 
WA_RM03M_STR-WERKS sy-vline 
WA_RM03M_STR-LGORT sy-vline 
WA_RM03M_STR-BWKEY sy-vline 
WA_RM03M_STR-BWTAR sy-vline 
WA_RM03M_STR-VKORG sy-vline 
WA_RM03M_STR-VTWEG sy-vline 
WA_RM03M_STR-LGNUM sy-vline 
WA_RM03M_STR-LGTYP sy-vline 
WA_RM03M_STR-MTART sy-vline 
WA_RM03M_STR-MBRSH sy-vline 
WA_RM03M_STR-REF_MATNR sy-vline 
WA_RM03M_STR-REF_WERKS sy-vline 
WA_RM03M_STR-REF_LGORT sy-vline 
WA_RM03M_STR-REF_BWKEY sy-vline 
WA_RM03M_STR-REF_BWTAR sy-vline 
WA_RM03M_STR-REF_VKORG sy-vline 
WA_RM03M_STR-REF_VTWEG sy-vline 
WA_RM03M_STR-REF_LGNUM sy-vline 
WA_RM03M_STR-REF_LGTYP sy-vline 
WA_RM03M_STR-BESKZ sy-vline 
WA_RM03M_STR-DISPR sy-vline 
WA_RM03M_STR-LVORM sy-vline 
WA_RM03M_STR-DYTX1 sy-vline 
WA_RM03M_STR-DYTX2 sy-vline 
WA_RM03M_STR-DYTX3 sy-vline 
WA_RM03M_STR-VCTX1 sy-vline 
WA_RM03M_STR-VCTX2 sy-vline 
WA_RM03M_STR-VCTX3 sy-vline 
WA_RM03M_STR-KZAU1 sy-vline 
WA_RM03M_STR-KZAU2 sy-vline 
WA_RM03M_STR-KZSE1 sy-vline 
WA_RM03M_STR-KZSE2 sy-vline 
WA_RM03M_STR-KZSE3 sy-vline 
WA_RM03M_STR-KORFA sy-vline 
WA_RM03M_STR-PEINH sy-vline 
WA_RM03M_STR-ANZ_WERKS1 sy-vline 
WA_RM03M_STR-ANZ_WERKS2 sy-vline 
WA_RM03M_STR-ANZ_LGORT1 sy-vline 
WA_RM03M_STR-ANZ_LGORT2 sy-vline 
WA_RM03M_STR-ANZ_BWKEY1 sy-vline 
WA_RM03M_STR-ANZ_BWKEY2 sy-vline 
WA_RM03M_STR-ANZ_BWTAR1 sy-vline 
WA_RM03M_STR-ANZ_BWTAR2 sy-vline 
WA_RM03M_STR-ANZ_VKORG1 sy-vline 
WA_RM03M_STR-ANZ_VKORG2 sy-vline 
WA_RM03M_STR-ANZ_VTWEG1 sy-vline 
WA_RM03M_STR-ANZ_VTWEG2 sy-vline 
WA_RM03M_STR-ANZ_LGNUM1 sy-vline 
WA_RM03M_STR-ANZ_LGNUM2 sy-vline 
WA_RM03M_STR-ANZ_LGTYP1 sy-vline 
WA_RM03M_STR-ANZ_LGTYP2 sy-vline 
WA_RM03M_STR-PSTAT1 sy-vline 
WA_RM03M_STR-PSTAT2 sy-vline 
WA_RM03M_STR-PERKZ sy-vline 
WA_RM03M_STR-VMGJA sy-vline 
WA_RM03M_STR-VMMON sy-vline 
WA_RM03M_STR-UMREZ sy-vline 
WA_RM03M_STR-UMREN sy-vline 
WA_RM03M_STR-MEINH sy-vline 
WA_RM03M_STR-LFLAG sy-vline 
WA_RM03M_STR-NFLAG sy-vline 
WA_RM03M_STR-RLGOR sy-vline 
WA_RM03M_STR-DISKZ sy-vline 
WA_RM03M_STR-LSOBS sy-vline 
WA_RM03M_STR-LMINB sy-vline 
WA_RM03M_STR-LBSTF sy-vline 
WA_RM03M_STR-LGPBE sy-vline 
WA_RM03M_STR-VTLAG sy-vline 
WA_RM03M_STR-TEXT1 sy-vline 
WA_RM03M_STR-TEXT2 sy-vline 
WA_RM03M_STR-SPRAS sy-vline 
WA_RM03M_STR-LTEX1 sy-vline 
WA_RM03M_STR-LTEX2 sy-vline 
WA_RM03M_STR-LTEX3 sy-vline 
WA_RM03M_STR-LTEX4 sy-vline 
WA_RM03M_STR-LTEX5 sy-vline 
WA_RM03M_STR-LTEX6 sy-vline 
WA_RM03M_STR-LTEX7 sy-vline 
WA_RM03M_STR-LTEX8 sy-vline 
WA_RM03M_STR-LTEX9 sy-vline 
WA_RM03M_STR-FORM1 sy-vline 
WA_RM03M_STR-FORM2 sy-vline 
WA_RM03M_STR-FORM3 sy-vline 
WA_RM03M_STR-FORM4 sy-vline 
WA_RM03M_STR-WRK_LABST sy-vline 
WA_RM03M_STR-WRK_UNBST sy-vline 
WA_RM03M_STR-WRK_INSME sy-vline 
WA_RM03M_STR-WRK_EINME sy-vline 
WA_RM03M_STR-WRK_SPEME sy-vline 
WA_RM03M_STR-WRK_RETME sy-vline 
WA_RM03M_STR-WRK_UMLME sy-vline 
WA_RM03M_STR-WRK_LFGJA sy-vline 
WA_RM03M_STR-WRK_LFMON sy-vline 
WA_RM03M_STR-WRK_VMLAB sy-vline 
WA_RM03M_STR-WRK_VMINS sy-vline 
WA_RM03M_STR-WRK_VMEIN sy-vline 
WA_RM03M_STR-WRK_VMSPE sy-vline 
WA_RM03M_STR-WRK_VMRET sy-vline 
WA_RM03M_STR-WRK_VMUML sy-vline 
WA_RM03M_STR-WRK_VVLAB sy-vline 
WA_RM03M_STR-WRK_KLABS sy-vline 
WA_RM03M_STR-WRK_KINSM sy-vline 
WA_RM03M_STR-WRK_KEINM sy-vline 
WA_RM03M_STR-WRK_KSPEM sy-vline 
WA_RM03M_STR-BWTTY sy-vline 
WA_RM03M_STR-KZLTX sy-vline 
WA_RM03M_STR-SANTW sy-vline 
WA_RM03M_STR-EKGRP sy-vline 
WA_RM03M_STR-AAUSW sy-vline 
WA_RM03M_STR-ASCHL sy-vline 
WA_RM03M_STR-ABRSH sy-vline 
WA_RM03M_STR-TEXT3 sy-vline 
WA_RM03M_STR-PROPR sy-vline 
WA_RM03M_STR-PRIOD sy-vline 
WA_RM03M_STR-PRWRT sy-vline 
WA_RM03M_STR-KOPRW sy-vline 
WA_RM03M_STR-ANTEI sy-vline 
WA_RM03M_STR-SAIIN sy-vline 
WA_RM03M_STR-FIXKZ sy-vline 
WA_RM03M_STR-FAKTO sy-vline 
WA_RM03M_STR-APERI sy-vline 
WA_RM03M_STR-VBWRT sy-vline 
WA_RM03M_STR-KOVBW sy-vline 
WA_RM03M_STR-VBTX1 sy-vline 
WA_RM03M_STR-VBTX2 sy-vline 
WA_RM03M_STR-TAXKM sy-vline 
WA_RM03M_STR-NAME1 sy-vline 
WA_RM03M_STR-TEXPR sy-vline 
WA_RM03M_STR-MEINS sy-vline 
WA_RM03M_STR-XLIFO sy-vline 
WA_RM03M_STR-MYPOL sy-vline 
WA_RM03M_STR-BUKRS sy-vline 
WA_RM03M_STR-REF_BUKRS sy-vline 
WA_RM03M_STR-WERK280 sy-vline 
WA_RM03M_STR-NAME280 sy-vline 
WA_RM03M_STR-KZTLB sy-vline 
WA_RM03M_STR-KOKRS sy-vline 
WA_RM03M_STR-KOATY sy-vline 
WA_RM03M_STR-DOKAR sy-vline 
WA_RM03M_STR-DOKNR sy-vline 
WA_RM03M_STR-DOKTL sy-vline 
WA_RM03M_STR-DOKVR sy-vline 
WA_RM03M_STR-CVHIE sy-vline 
WA_RM03M_STR-DATXT sy-vline 
WA_RM03M_STR-DKTXT sy-vline 
WA_RM03M_STR-MDZUO sy-vline 
WA_RM03M_STR-VPMAT sy-vline 
WA_RM03M_STR-VPWRK sy-vline 
WA_RM03M_STR-VPREF sy-vline 
WA_RM03M_STR-VPBME sy-vline 
WA_RM03M_STR-MDZTX sy-vline 
WA_RM03M_STR-REVLV sy-vline 
WA_RM03M_STR-AWOBA sy-vline 
WA_RM03M_STR-D0580 sy-vline 
WA_RM03M_STR-DMAEX sy-vline 
WA_RM03M_STR-DMAPE sy-vline 
WA_RM03M_STR-STDPD sy-vline 
WA_RM03M_STR-KALST sy-vline 
WA_RM03M_STR-XLTYP sy-vline 
WA_RM03M_STR-XVPLB sy-vline 
WA_RM03M_STR-TAXIM sy-vline 
WA_RM03M_STR-STEXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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