ABAP Select data from SAP table /1CN/WORKING_SET_E_S_M 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 /1CN/WORKING_SET_E_S_M 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 /1CN/WORKING_SET_E_S_M. 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 /1CN/WORKING_SET_E_S_M 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_/1CN/WORKING_SET_E_S_M TYPE STANDARD TABLE OF /1CN/WORKING_SET_E_S_M,
      WA_/1CN/WORKING_SET_E_S_M TYPE /1CN/WORKING_SET_E_S_M,
      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: </1CN/WORKING_SET_E_S_M> TYPE /1CN/WORKING_SET_E_S_M.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_/1CN/WORKING_SET_E_S_M.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /1CN/WORKING_SET_E_S_M
  INTO TABLE IT_/1CN/WORKING_SET_E_S_M.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /1CN/WORKING_SET_E_S_M
*  INTO TABLE @DATA(IT_/1CN/WORKING_SET_E_S_M2).
*--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_/1CN/WORKING_SET_E_S_M INDEX 1 INTO DATA(WA_/1CN/WORKING_SET_E_S_M2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/1CN/WORKING_SET_E_S_M ASSIGNING </1CN/WORKING_SET_E_S_M>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</1CN/WORKING_SET_E_S_M>-/SAPCND/MNT_IS_ARCHIVED = 1.
</1CN/WORKING_SET_E_S_M>-BSTME = 1.
</1CN/WORKING_SET_E_S_M>-CLIENT = 1.
</1CN/WORKING_SET_E_S_M>-COND_GROUP_ID = 1.
</1CN/WORKING_SET_E_S_M>-CPE_CONDTYPE_PR = 1.

ENDLOOP.

LOOP AT IT_/1CN/WORKING_SET_E_S_M INTO WA_/1CN/WORKING_SET_E_S_M.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/1CN/WORKING_SET_E_S_M-CPE_F_COMBROUT, sy-vline,
  WA_/1CN/WORKING_SET_E_S_M-CPE_F_FORCOMMUOM, sy-vline,
  WA_/1CN/WORKING_SET_E_S_M-CPE_F_FORMEVALR, sy-vline,
  WA_/1CN/WORKING_SET_E_S_M-CPE_F_FORMID, sy-vline,
  WA_/1CN/WORKING_SET_E_S_M-CPE_F_FORMQUANCN, sy-vline,
  WA_/1CN/WORKING_SET_E_S_M-CPE_F_QUANSPLITR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/1CN/WORKING_SET_E_S_M 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_/1CN/WORKING_SET_E_S_M 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_/1CN/WORKING_SET_E_S_M INTO WA_/1CN/WORKING_SET_E_S_M.


*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 CUNIT, internal->external for field BSTME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_/1CN/WORKING_SET_E_S_M-BSTME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/1CN/WORKING_SET_E_S_M-BSTME.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field MM_VENDOR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/1CN/WORKING_SET_E_S_M-MM_VENDOR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/1CN/WORKING_SET_E_S_M-MM_VENDOR.
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_/1CN/WORKING_SET_E_S_M_STR, 
/SAPCND/MNT_IS_ARCHIVED TYPE STRING,
BSTME TYPE STRING,
CLIENT TYPE STRING,
COND_GROUP_ID TYPE STRING,
CPE_CONDTYPE_PR TYPE STRING,
CPE_F_COMBROUT TYPE STRING,
CPE_F_FORCOMMUOM TYPE STRING,
CPE_F_FORMEVALR TYPE STRING,
CPE_F_FORMID TYPE STRING,
CPE_F_FORMQUANCN TYPE STRING,
CPE_F_QUANSPLITR TYPE STRING,
CPE_F_R3ACCURACY TYPE STRING,
CPE_R_CURRENCY TYPE STRING,
CPE_R_PRICEUNIT TYPE STRING,
CPE_R_RATE TYPE STRING,
CPE_R_RATETYPE TYPE STRING,
CPE_R_UOM TYPE STRING,
CPE_T_BASISID TYPE STRING,
CPE_T_CALCRULE TYPE STRING,
CPE_T_FACTOR1 TYPE STRING,
CPE_T_FACTOR2 TYPE STRING,
CPE_T_PERDETRU_C TYPE STRING,
CPE_T_PERDETRU_Q TYPE STRING,
CPE_T_PROVIS TYPE STRING,
CPE_T_PROVTERMNO TYPE STRING,
CPE_T_QUOTGROUP TYPE STRING,
CPE_T_QUOTNAME TYPE STRING,
CPE_T_QUOTRULE TYPE STRING,
CPE_T_QUOTSRC TYPE STRING,
CPE_T_QUOTTYPE TYPE STRING,
CPE_T_REFCOND TYPE STRING,
CPE_T_REFDOC TYPE STRING,
CPE_T_REFDOCCAT TYPE STRING,
CPE_T_REFITEM TYPE STRING,
CPE_T_SURCHARGER TYPE STRING,
CPE_T_TERMGROUP TYPE STRING,
CPE_T_TERMID TYPE STRING,
CPE_T_TERMNO TYPE STRING,
CPE_T_TERMRULE TYPE STRING,
CPE_T_TERMTYPE TYPE STRING,
CPE_T_USERUOM1 TYPE STRING,
CPE_T_USERVAL1 TYPE STRING,
CREATED_BY TYPE STRING,
CREATED_ON TYPE STRING,
DATE_FROM TYPE STRING,
DATE_TO TYPE STRING,
DBACTION_SUPP TYPE STRING,
DBACTION_TABL TYPE STRING,
EKKOL TYPE STRING,
EKORG TYPE STRING,
ESOKZ TYPE STRING,
EVRTP TYPE STRING,
INFNR TYPE STRING,
KAPPL TYPE STRING,
KOPOS TYPE STRING,
KOTABNR TYPE STRING,
KPOSN TYPE STRING,
KSCHL TYPE STRING,
KSCHL_SUPP TYPE STRING,
KVEWE TYPE STRING,
KZBZG TYPE STRING,
LIFNR TYPE STRING,
LLAND TYPE STRING,
MAINT_STATUS TYPE STRING,
MATKL TYPE STRING,
MATNR TYPE STRING,
MM_INCO1 TYPE STRING,
MM_INCO2 TYPE STRING,
MM_INFO_TYPE TYPE STRING,
MM_MATERIAL TYPE STRING,
MM_MAT_GROUP TYPE STRING,
MM_PLANT TYPE STRING,
MM_PURCH_ORG TYPE STRING,
MM_SUPPL_VEND TYPE STRING,
MM_VENDOR TYPE STRING,
MM_VENDOR_GROUP TYPE STRING,
MNT_OW_ERROR_BY_COND_REC TYPE STRING,
MNT_OW_ERROR_BY_RELATION TYPE STRING,
MNT_OW_EXISTS_AT_DB TYPE STRING,
MNT_OW_MAINT_MODE_ON_SELECT TYPE STRING,
MNT_UI_COLOR_LINE TYPE STRING,
MNT_UI_COND_REC_STATUS TYPE STRING,
MNT_UI_IS_COND_TYPE_LINE TYPE STRING,
MNT_UI_IS_DELETED_ICON TYPE STRING,
MNT_UI_IS_INITIAL_LINE TYPE STRING,
MNT_UI_SCALE_EXIST TYPE STRING,
OBJECT_ID TYPE STRING,
RELEASE_STATUS TYPE STRING,
SCALE_DIM TYPE STRING,
STFKZ TYPE STRING,
SUPP_EXIST TYPE STRING,
TAXIK TYPE STRING,
TAXIL TYPE STRING,
TAXIM TYPE STRING,
TAXIR TYPE STRING,
TAXIW TYPE STRING,
TIME_FROM TYPE STRING,
TIME_TO TYPE STRING,
TIME_ZONE TYPE STRING,
VARNUMH TYPE STRING,
WERKS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/1CN/WORKING_SET_E_S_M_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_/1CN/WORKING_SET_E_S_M_STR-/SAPCND/MNT_IS_ARCHIVED sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-BSTME sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CLIENT sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-COND_GROUP_ID sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_CONDTYPE_PR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_COMBROUT sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_FORCOMMUOM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_FORMEVALR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_FORMID sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_FORMQUANCN sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_QUANSPLITR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_F_R3ACCURACY sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_R_CURRENCY sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_R_PRICEUNIT sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_R_RATE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_R_RATETYPE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_R_UOM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_BASISID sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_CALCRULE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_FACTOR1 sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_FACTOR2 sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_PERDETRU_C sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_PERDETRU_Q sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_PROVIS sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_PROVTERMNO sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_QUOTGROUP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_QUOTNAME sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_QUOTRULE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_QUOTSRC sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_QUOTTYPE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_REFCOND sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_REFDOC sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_REFDOCCAT sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_REFITEM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_SURCHARGER sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_TERMGROUP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_TERMID sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_TERMNO sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_TERMRULE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_TERMTYPE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_USERUOM1 sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CPE_T_USERVAL1 sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CREATED_BY sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-CREATED_ON sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-DATE_FROM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-DATE_TO sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-DBACTION_SUPP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-DBACTION_TABL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-EKKOL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-EKORG sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-ESOKZ sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-EVRTP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-INFNR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KAPPL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KOPOS sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KOTABNR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KPOSN sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KSCHL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KSCHL_SUPP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KVEWE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-KZBZG sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-LIFNR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-LLAND sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MAINT_STATUS sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MATKL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MATNR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_INCO1 sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_INCO2 sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_INFO_TYPE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_MATERIAL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_MAT_GROUP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_PLANT sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_PURCH_ORG sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_SUPPL_VEND sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_VENDOR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MM_VENDOR_GROUP sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_OW_ERROR_BY_COND_REC sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_OW_ERROR_BY_RELATION sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_OW_EXISTS_AT_DB sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_OW_MAINT_MODE_ON_SELECT sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_UI_COLOR_LINE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_UI_COND_REC_STATUS sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_UI_IS_COND_TYPE_LINE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_UI_IS_DELETED_ICON sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_UI_IS_INITIAL_LINE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-MNT_UI_SCALE_EXIST sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-OBJECT_ID sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-RELEASE_STATUS sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-SCALE_DIM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-STFKZ sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-SUPP_EXIST sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TAXIK sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TAXIL sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TAXIM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TAXIR sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TAXIW sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TIME_FROM sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TIME_TO sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-TIME_ZONE sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-VARNUMH sy-vline 
WA_/1CN/WORKING_SET_E_S_M_STR-WERKS sy-vline      INTO ld_text SEPARATED BY SPACE.

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