ABAP Select data from SAP table EAMS_S_SP_ORD_SRULE 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 EAMS_S_SP_ORD_SRULE 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 EAMS_S_SP_ORD_SRULE. 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 EAMS_S_SP_ORD_SRULE 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_EAMS_S_SP_ORD_SRULE TYPE STANDARD TABLE OF EAMS_S_SP_ORD_SRULE,
      WA_EAMS_S_SP_ORD_SRULE TYPE EAMS_S_SP_ORD_SRULE,
      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: <EAMS_S_SP_ORD_SRULE> TYPE EAMS_S_SP_ORD_SRULE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM EAMS_S_SP_ORD_SRULE
*  INTO TABLE @DATA(IT_EAMS_S_SP_ORD_SRULE2).
*--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_EAMS_S_SP_ORD_SRULE INDEX 1 INTO DATA(WA_EAMS_S_SP_ORD_SRULE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<EAMS_S_SP_ORD_SRULE>-EAMS_AUFNR = 1.
<EAMS_S_SP_ORD_SRULE>-EAMS_SEQ_NUMBER = 1.
<EAMS_S_SP_ORD_SRULE>-LEDNR = 1.
<EAMS_S_SP_ORD_SRULE>-OBJECT_NO = 1.
<EAMS_S_SP_ORD_SRULE>-DIST_RULE_GROUP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_EAMS_S_SP_ORD_SRULE-DIST_RULE_SEQ_NUMBER, sy-vline,
  WA_EAMS_S_SP_ORD_SRULE-SETTL_TYPE, sy-vline,
  WA_EAMS_S_SP_ORD_SRULE-SOURCE, sy-vline,
  WA_EAMS_S_SP_ORD_SRULE-VALID_FROM_YEAR, sy-vline,
  WA_EAMS_S_SP_ORD_SRULE-VALID_FROM_PER, sy-vline,
  WA_EAMS_S_SP_ORD_SRULE-VALID_TO_YEAR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_EAMS_S_SP_ORD_SRULE 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_EAMS_S_SP_ORD_SRULE 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_EAMS_S_SP_ORD_SRULE INTO WA_EAMS_S_SP_ORD_SRULE.


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

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

*Conversion exit PERBZ, internal->external for field SETTL_TYPE
CALL FUNCTION 'CONVERSION_EXIT_PERBZ_OUTPUT'
  EXPORTING
    input =                      WA_EAMS_S_SP_ORD_SRULE-SETTL_TYPE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EAMS_S_SP_ORD_SRULE-SETTL_TYPE.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

*Conversion exit OBART, internal->external for field KONTY
CALL FUNCTION 'CONVERSION_EXIT_OBART_OUTPUT'
  EXPORTING
    input =                      WA_EAMS_S_SP_ORD_SRULE-KONTY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EAMS_S_SP_ORD_SRULE-KONTY.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit ABPSN, internal->external for field WBS_ELEMENT
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
  EXPORTING
    input =                      WA_EAMS_S_SP_ORD_SRULE-WBS_ELEMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EAMS_S_SP_ORD_SRULE-WBS_ELEMENT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit PERI7, internal->external for field USED_FROM
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_EAMS_S_SP_ORD_SRULE-USED_FROM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EAMS_S_SP_ORD_SRULE-USED_FROM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit PERI7, internal->external for field USED_TO
CALL FUNCTION 'CONVERSION_EXIT_PERI7_OUTPUT'
  EXPORTING
    input =                      WA_EAMS_S_SP_ORD_SRULE-USED_TO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EAMS_S_SP_ORD_SRULE-USED_TO.
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_EAMS_S_SP_ORD_SRULE_STR, 
EAMS_AUFNR TYPE STRING,
EAMS_SEQ_NUMBER TYPE STRING,
LEDNR TYPE STRING,
OBJECT_NO TYPE STRING,
DIST_RULE_GROUP TYPE STRING,
DIST_RULE_SEQ_NUMBER TYPE STRING,
SETTL_TYPE TYPE STRING,
SOURCE TYPE STRING,
VALID_FROM_YEAR TYPE STRING,
VALID_FROM_PER TYPE STRING,
VALID_TO_YEAR TYPE STRING,
VALID_TO_PER TYPE STRING,
PERCENTAGE TYPE STRING,
EQUIV_NUMBER TYPE STRING,
BMENG TYPE STRING,
BEINH TYPE STRING,
BEINH_ISO TYPE STRING,
AMOUNT TYPE STRING,
CURRENCY TYPE STRING,
CURRENCY_ISO TYPE STRING,
BRTYP TYPE STRING,
BREST TYPE STRING,
FIRST_USED_YEAR TYPE STRING,
FIRST_USED_PER TYPE STRING,
LAST_USED_YEAR TYPE STRING,
LAST_USED_PER TYPE STRING,
ZINCL TYPE STRING,
DFREG TYPE STRING,
AVORG TYPE STRING,
VERSION TYPE STRING,
KONTY TYPE STRING,
KOKRS TYPE STRING,
PLANT TYPE STRING,
BUS_AREA TYPE STRING,
COMP_CODE TYPE STRING,
GL_ACCOUNT TYPE STRING,
PROFIT_CTR TYPE STRING,
COSTCENTER TYPE STRING,
ORDERID TYPE STRING,
WBS_ELEMENT TYPE STRING,
ASSETMAINO TYPE STRING,
ASSETSUBNO TYPE STRING,
MATERIAL TYPE STRING,
VAL_TYPE TYPE STRING,
NETWORK TYPE STRING,
ACTIVITY TYPE STRING,
PROFIT_SEGM_NO TYPE STRING,
PASUBNR TYPE STRING,
SALES_ORD TYPE STRING,
S_ORD_ITEM TYPE STRING,
REC_IND TYPE STRING,
RIFIND TYPE STRING,
ORDER_ITNO TYPE STRING,
COSTOBJECT TYPE STRING,
CO_BUSPROC TYPE STRING,
REC_OBJNR1 TYPE STRING,
REC_OBJNR2 TYPE STRING,
MRULE TYPE STRING,
EXTNR TYPE STRING,
METH_TRACING_FACTOR TYPE STRING,
MOVEMENTTYPE TYPE STRING,
SETTL_STRATEGY TYPE STRING,
EMPGE TYPE STRING,
EMPGE_TXT TYPE STRING,
USED_FROM TYPE STRING,
USED_TO TYPE STRING,END OF T_EKKO_STR.
DATA: WA_EAMS_S_SP_ORD_SRULE_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_EAMS_S_SP_ORD_SRULE_STR-EAMS_AUFNR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-EAMS_SEQ_NUMBER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-LEDNR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-OBJECT_NO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-DIST_RULE_GROUP sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-DIST_RULE_SEQ_NUMBER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-SETTL_TYPE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-SOURCE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-VALID_FROM_YEAR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-VALID_FROM_PER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-VALID_TO_YEAR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-VALID_TO_PER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-PERCENTAGE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-EQUIV_NUMBER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-BMENG sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-BEINH sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-BEINH_ISO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-AMOUNT sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-CURRENCY sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-CURRENCY_ISO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-BRTYP sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-BREST sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-FIRST_USED_YEAR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-FIRST_USED_PER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-LAST_USED_YEAR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-LAST_USED_PER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-ZINCL sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-DFREG sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-AVORG sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-VERSION sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-KONTY sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-KOKRS sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-PLANT sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-BUS_AREA sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-COMP_CODE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-GL_ACCOUNT sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-PROFIT_CTR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-COSTCENTER sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-ORDERID sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-WBS_ELEMENT sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-ASSETMAINO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-ASSETSUBNO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-MATERIAL sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-VAL_TYPE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-NETWORK sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-ACTIVITY sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-PROFIT_SEGM_NO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-PASUBNR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-SALES_ORD sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-S_ORD_ITEM sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-REC_IND sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-RIFIND sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-ORDER_ITNO sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-COSTOBJECT sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-CO_BUSPROC sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-REC_OBJNR1 sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-REC_OBJNR2 sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-MRULE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-EXTNR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-METH_TRACING_FACTOR sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-MOVEMENTTYPE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-SETTL_STRATEGY sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-EMPGE sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-EMPGE_TXT sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-USED_FROM sy-vline 
WA_EAMS_S_SP_ORD_SRULE_STR-USED_TO sy-vline      INTO ld_text SEPARATED BY SPACE.

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