ABAP Select data from SAP table COD_S_EQUI 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 COD_S_EQUI 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 COD_S_EQUI. 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 COD_S_EQUI 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_COD_S_EQUI TYPE STANDARD TABLE OF COD_S_EQUI,
      WA_COD_S_EQUI TYPE COD_S_EQUI,
      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: <COD_S_EQUI> TYPE COD_S_EQUI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM COD_S_EQUI
*  INTO TABLE @DATA(IT_COD_S_EQUI2).
*--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_COD_S_EQUI INDEX 1 INTO DATA(WA_COD_S_EQUI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<COD_S_EQUI>-EQUIPMENT_NUMBER = 1.
<COD_S_EQUI>-GENERAL = 1.
<COD_S_EQUI>-AUTHGRP = 1.
<COD_S_EQUI>-OBJECTTYPE = 1.
<COD_S_EQUI>-INVENTORY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_COD_S_EQUI-OBJ_SIZE, sy-vline,
  WA_COD_S_EQUI-OBJ_WEIGHT, sy-vline,
  WA_COD_S_EQUI-UNIT_OF_WT, sy-vline,
  WA_COD_S_EQUI-UNIT_ISO, sy-vline,
  WA_COD_S_EQUI-ACQDATE, sy-vline,
  WA_COD_S_EQUI-ACQUISVAL, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_COD_S_EQUI 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_COD_S_EQUI 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_COD_S_EQUI INTO WA_COD_S_EQUI.


*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 EQUIPMENT_NUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-EQUIPMENT_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-EQUIPMENT_NUMBER.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit MATN5, internal->external for field CONSTTYPE
CALL FUNCTION 'CONVERSION_EXIT_MATN5_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-CONSTTYPE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-CONSTTYPE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSP, internal->external for field WBS_ELEM
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-WBS_ELEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-WBS_ELEM.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit MATNL, internal->external for field CONSTTYPE_EXTERNAL
CALL FUNCTION 'CONVERSION_EXIT_MATNL_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-CONSTTYPE_EXTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-CONSTTYPE_EXTERNAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNW, internal->external for field CONSTTYPE_VERSION
CALL FUNCTION 'CONVERSION_EXIT_MATNW_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-CONSTTYPE_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-CONSTTYPE_VERSION.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit MATN5, internal->external for field CONFIGMAT
CALL FUNCTION 'CONVERSION_EXIT_MATN5_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-CONFIGMAT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-CONFIGMAT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GERNR, internal->external for field SERIALNO
CALL FUNCTION 'CONVERSION_EXIT_GERNR_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-SERIALNO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-SERIALNO.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATNL, internal->external for field CONFIGMAT_EXTERNAL
CALL FUNCTION 'CONVERSION_EXIT_MATNL_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-CONFIGMAT_EXTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-CONFIGMAT_EXTERNAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNW, internal->external for field CONFIGMAT_VERSION
CALL FUNCTION 'CONVERSION_EXIT_MATNW_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-CONFIGMAT_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-CONFIGMAT_VERSION.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNL, internal->external for field MATERIAL_EXTERNAL
CALL FUNCTION 'CONVERSION_EXIT_MATNL_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-MATERIAL_EXTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-MATERIAL_EXTERNAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATNW, internal->external for field MATERIAL_VERSION
CALL FUNCTION 'CONVERSION_EXIT_MATNW_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-MATERIAL_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-MATERIAL_VERSION.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field TOWNSHIP_CODE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_EQUI-TOWNSHIP_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_EQUI-TOWNSHIP_CODE.
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_COD_S_EQUI_STR, 
EQUIPMENT_NUMBER TYPE STRING,
GENERAL TYPE STRING,
AUTHGRP TYPE STRING,
OBJECTTYPE TYPE STRING,
INVENTORY TYPE STRING,
OBJ_SIZE TYPE STRING,
OBJ_WEIGHT TYPE STRING,
UNIT_OF_WT TYPE STRING,
UNIT_ISO TYPE STRING,
ACQDATE TYPE STRING,
ACQUISVAL TYPE STRING,
CURRENCY TYPE STRING,
CURR_ISO TYPE STRING,
MANFACTURE TYPE STRING,
MANCOUNTRY TYPE STRING,
COUNTR_ISO TYPE STRING,
MANSERNO TYPE STRING,
MANMODEL TYPE STRING,
CONSTYEAR TYPE STRING,
CONSTMONTH TYPE STRING,
START_FROM TYPE STRING,
PLANPLANT TYPE STRING,
CONSTTYPE TYPE STRING,
MANPARNO TYPE STRING,
PLANGROUP TYPE STRING,
CATPROFILE TYPE STRING,
WORK_CTR TYPE STRING,
DESCRIPT TYPE STRING,
ABCINDIC TYPE STRING,
SORTFIELD TYPE STRING,
MAINTPLANT TYPE STRING,
MAINTLOC TYPE STRING,
MAINTROOM TYPE STRING,
PLSECTN TYPE STRING,
PP_WKCTR TYPE STRING,
BUS_AREA TYPE STRING,
COSTCENTER TYPE STRING,
WBS_ELEM TYPE STRING,
COMP_CODE TYPE STRING,
ASSET_NO TYPE STRING,
SUB_NUMBER TYPE STRING,
STANDORDER TYPE STRING,
SETTLORDER TYPE STRING,
SALES_ORG TYPE STRING,
DISTR_CHAN TYPE STRING,
DIVISION TYPE STRING,
SALES_OFF TYPE STRING,
SALES_GRP TYPE STRING,
READ_CRDAT TYPE STRING,
READ_CRNAM TYPE STRING,
READ_CHDAT TYPE STRING,
READ_CHNAM TYPE STRING,
READ_ADRNR TYPE STRING,
CONSTTYPE_EXTERNAL TYPE STRING,
CONSTTYPE_GUID TYPE STRING,
CONSTTYPE_VERSION TYPE STRING,
READ_OBJNR TYPE STRING,
SHIFT_REPORT_TYPE TYPE STRING,
SHIFT_NOTE_NOTIFICATION_TYPE TYPE STRING,
START_POINT TYPE STRING,
END_POINT TYPE STRING,
LINEAR_LENGTH TYPE STRING,
LINEAR_UNIT TYPE STRING,
FIRST_OFFSET_TYPE_CODE TYPE STRING,
FIRST_OFFSET_VALUE TYPE STRING,
FIRST_OFFSET_UNIT TYPE STRING,
SECOND_OFFSET_TYPE_CODE TYPE STRING,
SECOND_OFFSET_VALUE TYPE STRING,
SECOND_OFFSET_UNIT TYPE STRING,
SECOND_OFFSET_UNIT_ISO TYPE STRING,
LINEAR_UNIT_ISO TYPE STRING,
FIRST_OFFSET_UNIT_ISO TYPE STRING,
LINEAR_REFERENCE_PATTERN TYPE STRING,
MARKER_START_POINT TYPE STRING,
MARKER_DISTANCE_START_POINT TYPE STRING,
MARKER_END_POINT TYPE STRING,
MARKER_DISTANCE_END_POINT TYPE STRING,
MARKER_DISTANCE_UNIT TYPE STRING,
MARKER_DISTANCE_UNIT_ISO TYPE STRING,
CONSTTYPE_LONG TYPE STRING,
END_TO TYPE STRING,
VALID_TO TYPE STRING,
VALID_FROM TYPE STRING,
CLASS TYPE STRING,
STSMA TYPE STRING,
EQUI_ONLY TYPE STRING,
CONFIGMAT TYPE STRING,
MATERIAL TYPE STRING,
SERIALNO TYPE STRING,
EQUICATGRY TYPE STRING,
BATCH TYPE STRING,
MANDRAWNO TYPE STRING,
DELIVDATE TYPE STRING,
FREE_DATE1 TYPE STRING,
FREE_NOTE1 TYPE STRING,
FREE_NUM1 TYPE STRING,
TECHID TYPE STRING,
LICENSE TYPE STRING,
FREE_DATE2 TYPE STRING,
FREE_NOTE2 TYPE STRING,
FREE_NUM2 TYPE STRING,
READ_CUOBJ TYPE STRING,
READ_CUREF TYPE STRING,
READ_SUPEQ TYPE STRING,
READ_FLOC TYPE STRING,
INST_POS TYPE STRING,
CONFIGMAT_EXTERNAL TYPE STRING,
CONFIGMAT_GUID TYPE STRING,
CONFIGMAT_VERSION TYPE STRING,
MATERIAL_EXTERNAL TYPE STRING,
MATERIAL_GUID TYPE STRING,
MATERIAL_VERSION TYPE STRING,
CONFIG_CONTROL_IND TYPE STRING,
IPPE_GUID TYPE STRING,
TECHS TYPE STRING,
FUNC_ID TYPE STRING,
UII TYPE STRING,
IUID_TYPE TYPE STRING,
UII_PLANT TYPE STRING,
READ_MAINTENANCE_PLAN TYPE STRING,
READ_MEASURING_POINT TYPE STRING,
READ_VALID_FROM TYPE STRING,
CONFIGMAT_LONG TYPE STRING,
MATERIAL_LONG TYPE STRING,
DATLWB TYPE STRING,
ADDRESS TYPE STRING,
ADDRNUMBER TYPE STRING,
ADDRHANDLE TYPE STRING,
NATION TYPE STRING,
DATE TYPE STRING,
DATE_FROM TYPE STRING,
DATE_TO TYPE STRING,
TITLE TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
NAME4 TYPE STRING,
NAME_TXT TYPE STRING,
NAME_CO TYPE STRING,
CITY1 TYPE STRING,
CITY2 TYPE STRING,
CITY_CODE TYPE STRING,
CITYP_CODE TYPE STRING,
HOME_CITY TYPE STRING,
CITYH_CODE TYPE STRING,
CHCKSTATUS TYPE STRING,
REGIOGROUP TYPE STRING,
POST_CODE1 TYPE STRING,
POST_CODE2 TYPE STRING,
POST_CODE3 TYPE STRING,
PCODE1_EXT TYPE STRING,
PCODE2_EXT TYPE STRING,
PCODE3_EXT TYPE STRING,
PO_BOX TYPE STRING,
DONT_USE_P TYPE STRING,
PO_BOX_NUM TYPE STRING,
PO_BOX_LOC TYPE STRING,
CITY_CODE2 TYPE STRING,
PO_BOX_REG TYPE STRING,
PO_BOX_CTY TYPE STRING,
POSTALAREA TYPE STRING,
TRANSPZONE TYPE STRING,
STREET TYPE STRING,
DONT_USE_S TYPE STRING,
STREETCODE TYPE STRING,
STREETABBR TYPE STRING,
HOUSE_NUM1 TYPE STRING,
HOUSE_NUM2 TYPE STRING,
HOUSE_NUM3 TYPE STRING,
STR_SUPPL1 TYPE STRING,
STR_SUPPL2 TYPE STRING,
STR_SUPPL3 TYPE STRING,
LOCATION TYPE STRING,
BUILDING TYPE STRING,
FLOOR TYPE STRING,
ROOMNUMBER TYPE STRING,
COUNTRY TYPE STRING,
LANGU TYPE STRING,
REGION TYPE STRING,
SORT1 TYPE STRING,
SORT2 TYPE STRING,
SORT_PHN TYPE STRING,
ADDRORIGIN TYPE STRING,
EXTENSION1 TYPE STRING,
EXTENSION2 TYPE STRING,
TIME_ZONE TYPE STRING,
TAXJURCODE TYPE STRING,
ADDRESS_ID TYPE STRING,
REMARK TYPE STRING,
LANGU_CREA TYPE STRING,
PO_BOX_LOBBY TYPE STRING,
DELI_SERV_TYPE TYPE STRING,
DELI_SERV_NUMBER TYPE STRING,
COUNTY_CODE TYPE STRING,
COUNTY TYPE STRING,
TOWNSHIP_CODE TYPE STRING,
TOWNSHIP TYPE STRING,
DEFLT_COMM TYPE STRING,
XPCPT TYPE STRING,
TEL_NUMBER TYPE STRING,
TEL_EXTENS TYPE STRING,
FAX_NUMBER TYPE STRING,
FAX_EXTENS TYPE STRING,
ADDR_GROUP TYPE STRING,
COUNTRY_ISO TYPE STRING,
LANGU_ISO TYPE STRING,
LANGU_CREA_ISO TYPE STRING,
PO_BOX_CTY_ISO TYPE STRING,
SYSTEM_STATUS TYPE STRING,
USER_STATUS TYPE STRING,
PARTNER TYPE STRING,
LONG_TEXT TYPE STRING,
DESCRIPTION TYPE STRING,
WARRANTY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_COD_S_EQUI_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_COD_S_EQUI_STR-EQUIPMENT_NUMBER sy-vline 
WA_COD_S_EQUI_STR-GENERAL sy-vline 
WA_COD_S_EQUI_STR-AUTHGRP sy-vline 
WA_COD_S_EQUI_STR-OBJECTTYPE sy-vline 
WA_COD_S_EQUI_STR-INVENTORY sy-vline 
WA_COD_S_EQUI_STR-OBJ_SIZE sy-vline 
WA_COD_S_EQUI_STR-OBJ_WEIGHT sy-vline 
WA_COD_S_EQUI_STR-UNIT_OF_WT sy-vline 
WA_COD_S_EQUI_STR-UNIT_ISO sy-vline 
WA_COD_S_EQUI_STR-ACQDATE sy-vline 
WA_COD_S_EQUI_STR-ACQUISVAL sy-vline 
WA_COD_S_EQUI_STR-CURRENCY sy-vline 
WA_COD_S_EQUI_STR-CURR_ISO sy-vline 
WA_COD_S_EQUI_STR-MANFACTURE sy-vline 
WA_COD_S_EQUI_STR-MANCOUNTRY sy-vline 
WA_COD_S_EQUI_STR-COUNTR_ISO sy-vline 
WA_COD_S_EQUI_STR-MANSERNO sy-vline 
WA_COD_S_EQUI_STR-MANMODEL sy-vline 
WA_COD_S_EQUI_STR-CONSTYEAR sy-vline 
WA_COD_S_EQUI_STR-CONSTMONTH sy-vline 
WA_COD_S_EQUI_STR-START_FROM sy-vline 
WA_COD_S_EQUI_STR-PLANPLANT sy-vline 
WA_COD_S_EQUI_STR-CONSTTYPE sy-vline 
WA_COD_S_EQUI_STR-MANPARNO sy-vline 
WA_COD_S_EQUI_STR-PLANGROUP sy-vline 
WA_COD_S_EQUI_STR-CATPROFILE sy-vline 
WA_COD_S_EQUI_STR-WORK_CTR sy-vline 
WA_COD_S_EQUI_STR-DESCRIPT sy-vline 
WA_COD_S_EQUI_STR-ABCINDIC sy-vline 
WA_COD_S_EQUI_STR-SORTFIELD sy-vline 
WA_COD_S_EQUI_STR-MAINTPLANT sy-vline 
WA_COD_S_EQUI_STR-MAINTLOC sy-vline 
WA_COD_S_EQUI_STR-MAINTROOM sy-vline 
WA_COD_S_EQUI_STR-PLSECTN sy-vline 
WA_COD_S_EQUI_STR-PP_WKCTR sy-vline 
WA_COD_S_EQUI_STR-BUS_AREA sy-vline 
WA_COD_S_EQUI_STR-COSTCENTER sy-vline 
WA_COD_S_EQUI_STR-WBS_ELEM sy-vline 
WA_COD_S_EQUI_STR-COMP_CODE sy-vline 
WA_COD_S_EQUI_STR-ASSET_NO sy-vline 
WA_COD_S_EQUI_STR-SUB_NUMBER sy-vline 
WA_COD_S_EQUI_STR-STANDORDER sy-vline 
WA_COD_S_EQUI_STR-SETTLORDER sy-vline 
WA_COD_S_EQUI_STR-SALES_ORG sy-vline 
WA_COD_S_EQUI_STR-DISTR_CHAN sy-vline 
WA_COD_S_EQUI_STR-DIVISION sy-vline 
WA_COD_S_EQUI_STR-SALES_OFF sy-vline 
WA_COD_S_EQUI_STR-SALES_GRP sy-vline 
WA_COD_S_EQUI_STR-READ_CRDAT sy-vline 
WA_COD_S_EQUI_STR-READ_CRNAM sy-vline 
WA_COD_S_EQUI_STR-READ_CHDAT sy-vline 
WA_COD_S_EQUI_STR-READ_CHNAM sy-vline 
WA_COD_S_EQUI_STR-READ_ADRNR sy-vline 
WA_COD_S_EQUI_STR-CONSTTYPE_EXTERNAL sy-vline 
WA_COD_S_EQUI_STR-CONSTTYPE_GUID sy-vline 
WA_COD_S_EQUI_STR-CONSTTYPE_VERSION sy-vline 
WA_COD_S_EQUI_STR-READ_OBJNR sy-vline 
WA_COD_S_EQUI_STR-SHIFT_REPORT_TYPE sy-vline 
WA_COD_S_EQUI_STR-SHIFT_NOTE_NOTIFICATION_TYPE sy-vline 
WA_COD_S_EQUI_STR-START_POINT sy-vline 
WA_COD_S_EQUI_STR-END_POINT sy-vline 
WA_COD_S_EQUI_STR-LINEAR_LENGTH sy-vline 
WA_COD_S_EQUI_STR-LINEAR_UNIT sy-vline 
WA_COD_S_EQUI_STR-FIRST_OFFSET_TYPE_CODE sy-vline 
WA_COD_S_EQUI_STR-FIRST_OFFSET_VALUE sy-vline 
WA_COD_S_EQUI_STR-FIRST_OFFSET_UNIT sy-vline 
WA_COD_S_EQUI_STR-SECOND_OFFSET_TYPE_CODE sy-vline 
WA_COD_S_EQUI_STR-SECOND_OFFSET_VALUE sy-vline 
WA_COD_S_EQUI_STR-SECOND_OFFSET_UNIT sy-vline 
WA_COD_S_EQUI_STR-SECOND_OFFSET_UNIT_ISO sy-vline 
WA_COD_S_EQUI_STR-LINEAR_UNIT_ISO sy-vline 
WA_COD_S_EQUI_STR-FIRST_OFFSET_UNIT_ISO sy-vline 
WA_COD_S_EQUI_STR-LINEAR_REFERENCE_PATTERN sy-vline 
WA_COD_S_EQUI_STR-MARKER_START_POINT sy-vline 
WA_COD_S_EQUI_STR-MARKER_DISTANCE_START_POINT sy-vline 
WA_COD_S_EQUI_STR-MARKER_END_POINT sy-vline 
WA_COD_S_EQUI_STR-MARKER_DISTANCE_END_POINT sy-vline 
WA_COD_S_EQUI_STR-MARKER_DISTANCE_UNIT sy-vline 
WA_COD_S_EQUI_STR-MARKER_DISTANCE_UNIT_ISO sy-vline 
WA_COD_S_EQUI_STR-CONSTTYPE_LONG sy-vline 
WA_COD_S_EQUI_STR-END_TO sy-vline 
WA_COD_S_EQUI_STR-VALID_TO sy-vline 
WA_COD_S_EQUI_STR-VALID_FROM sy-vline 
WA_COD_S_EQUI_STR-CLASS sy-vline 
WA_COD_S_EQUI_STR-STSMA sy-vline 
WA_COD_S_EQUI_STR-EQUI_ONLY sy-vline 
WA_COD_S_EQUI_STR-CONFIGMAT sy-vline 
WA_COD_S_EQUI_STR-MATERIAL sy-vline 
WA_COD_S_EQUI_STR-SERIALNO sy-vline 
WA_COD_S_EQUI_STR-EQUICATGRY sy-vline 
WA_COD_S_EQUI_STR-BATCH sy-vline 
WA_COD_S_EQUI_STR-MANDRAWNO sy-vline 
WA_COD_S_EQUI_STR-DELIVDATE sy-vline 
WA_COD_S_EQUI_STR-FREE_DATE1 sy-vline 
WA_COD_S_EQUI_STR-FREE_NOTE1 sy-vline 
WA_COD_S_EQUI_STR-FREE_NUM1 sy-vline 
WA_COD_S_EQUI_STR-TECHID sy-vline 
WA_COD_S_EQUI_STR-LICENSE sy-vline 
WA_COD_S_EQUI_STR-FREE_DATE2 sy-vline 
WA_COD_S_EQUI_STR-FREE_NOTE2 sy-vline 
WA_COD_S_EQUI_STR-FREE_NUM2 sy-vline 
WA_COD_S_EQUI_STR-READ_CUOBJ sy-vline 
WA_COD_S_EQUI_STR-READ_CUREF sy-vline 
WA_COD_S_EQUI_STR-READ_SUPEQ sy-vline 
WA_COD_S_EQUI_STR-READ_FLOC sy-vline 
WA_COD_S_EQUI_STR-INST_POS sy-vline 
WA_COD_S_EQUI_STR-CONFIGMAT_EXTERNAL sy-vline 
WA_COD_S_EQUI_STR-CONFIGMAT_GUID sy-vline 
WA_COD_S_EQUI_STR-CONFIGMAT_VERSION sy-vline 
WA_COD_S_EQUI_STR-MATERIAL_EXTERNAL sy-vline 
WA_COD_S_EQUI_STR-MATERIAL_GUID sy-vline 
WA_COD_S_EQUI_STR-MATERIAL_VERSION sy-vline 
WA_COD_S_EQUI_STR-CONFIG_CONTROL_IND sy-vline 
WA_COD_S_EQUI_STR-IPPE_GUID sy-vline 
WA_COD_S_EQUI_STR-TECHS sy-vline 
WA_COD_S_EQUI_STR-FUNC_ID sy-vline 
WA_COD_S_EQUI_STR-UII sy-vline 
WA_COD_S_EQUI_STR-IUID_TYPE sy-vline 
WA_COD_S_EQUI_STR-UII_PLANT sy-vline 
WA_COD_S_EQUI_STR-READ_MAINTENANCE_PLAN sy-vline 
WA_COD_S_EQUI_STR-READ_MEASURING_POINT sy-vline 
WA_COD_S_EQUI_STR-READ_VALID_FROM sy-vline 
WA_COD_S_EQUI_STR-CONFIGMAT_LONG sy-vline 
WA_COD_S_EQUI_STR-MATERIAL_LONG sy-vline 
WA_COD_S_EQUI_STR-DATLWB sy-vline 
WA_COD_S_EQUI_STR-ADDRESS sy-vline 
WA_COD_S_EQUI_STR-ADDRNUMBER sy-vline 
WA_COD_S_EQUI_STR-ADDRHANDLE sy-vline 
WA_COD_S_EQUI_STR-NATION sy-vline 
WA_COD_S_EQUI_STR-DATE sy-vline 
WA_COD_S_EQUI_STR-DATE_FROM sy-vline 
WA_COD_S_EQUI_STR-DATE_TO sy-vline 
WA_COD_S_EQUI_STR-TITLE sy-vline 
WA_COD_S_EQUI_STR-NAME1 sy-vline 
WA_COD_S_EQUI_STR-NAME2 sy-vline 
WA_COD_S_EQUI_STR-NAME3 sy-vline 
WA_COD_S_EQUI_STR-NAME4 sy-vline 
WA_COD_S_EQUI_STR-NAME_TXT sy-vline 
WA_COD_S_EQUI_STR-NAME_CO sy-vline 
WA_COD_S_EQUI_STR-CITY1 sy-vline 
WA_COD_S_EQUI_STR-CITY2 sy-vline 
WA_COD_S_EQUI_STR-CITY_CODE sy-vline 
WA_COD_S_EQUI_STR-CITYP_CODE sy-vline 
WA_COD_S_EQUI_STR-HOME_CITY sy-vline 
WA_COD_S_EQUI_STR-CITYH_CODE sy-vline 
WA_COD_S_EQUI_STR-CHCKSTATUS sy-vline 
WA_COD_S_EQUI_STR-REGIOGROUP sy-vline 
WA_COD_S_EQUI_STR-POST_CODE1 sy-vline 
WA_COD_S_EQUI_STR-POST_CODE2 sy-vline 
WA_COD_S_EQUI_STR-POST_CODE3 sy-vline 
WA_COD_S_EQUI_STR-PCODE1_EXT sy-vline 
WA_COD_S_EQUI_STR-PCODE2_EXT sy-vline 
WA_COD_S_EQUI_STR-PCODE3_EXT sy-vline 
WA_COD_S_EQUI_STR-PO_BOX sy-vline 
WA_COD_S_EQUI_STR-DONT_USE_P sy-vline 
WA_COD_S_EQUI_STR-PO_BOX_NUM sy-vline 
WA_COD_S_EQUI_STR-PO_BOX_LOC sy-vline 
WA_COD_S_EQUI_STR-CITY_CODE2 sy-vline 
WA_COD_S_EQUI_STR-PO_BOX_REG sy-vline 
WA_COD_S_EQUI_STR-PO_BOX_CTY sy-vline 
WA_COD_S_EQUI_STR-POSTALAREA sy-vline 
WA_COD_S_EQUI_STR-TRANSPZONE sy-vline 
WA_COD_S_EQUI_STR-STREET sy-vline 
WA_COD_S_EQUI_STR-DONT_USE_S sy-vline 
WA_COD_S_EQUI_STR-STREETCODE sy-vline 
WA_COD_S_EQUI_STR-STREETABBR sy-vline 
WA_COD_S_EQUI_STR-HOUSE_NUM1 sy-vline 
WA_COD_S_EQUI_STR-HOUSE_NUM2 sy-vline 
WA_COD_S_EQUI_STR-HOUSE_NUM3 sy-vline 
WA_COD_S_EQUI_STR-STR_SUPPL1 sy-vline 
WA_COD_S_EQUI_STR-STR_SUPPL2 sy-vline 
WA_COD_S_EQUI_STR-STR_SUPPL3 sy-vline 
WA_COD_S_EQUI_STR-LOCATION sy-vline 
WA_COD_S_EQUI_STR-BUILDING sy-vline 
WA_COD_S_EQUI_STR-FLOOR sy-vline 
WA_COD_S_EQUI_STR-ROOMNUMBER sy-vline 
WA_COD_S_EQUI_STR-COUNTRY sy-vline 
WA_COD_S_EQUI_STR-LANGU sy-vline 
WA_COD_S_EQUI_STR-REGION sy-vline 
WA_COD_S_EQUI_STR-SORT1 sy-vline 
WA_COD_S_EQUI_STR-SORT2 sy-vline 
WA_COD_S_EQUI_STR-SORT_PHN sy-vline 
WA_COD_S_EQUI_STR-ADDRORIGIN sy-vline 
WA_COD_S_EQUI_STR-EXTENSION1 sy-vline 
WA_COD_S_EQUI_STR-EXTENSION2 sy-vline 
WA_COD_S_EQUI_STR-TIME_ZONE sy-vline 
WA_COD_S_EQUI_STR-TAXJURCODE sy-vline 
WA_COD_S_EQUI_STR-ADDRESS_ID sy-vline 
WA_COD_S_EQUI_STR-REMARK sy-vline 
WA_COD_S_EQUI_STR-LANGU_CREA sy-vline 
WA_COD_S_EQUI_STR-PO_BOX_LOBBY sy-vline 
WA_COD_S_EQUI_STR-DELI_SERV_TYPE sy-vline 
WA_COD_S_EQUI_STR-DELI_SERV_NUMBER sy-vline 
WA_COD_S_EQUI_STR-COUNTY_CODE sy-vline 
WA_COD_S_EQUI_STR-COUNTY sy-vline 
WA_COD_S_EQUI_STR-TOWNSHIP_CODE sy-vline 
WA_COD_S_EQUI_STR-TOWNSHIP sy-vline 
WA_COD_S_EQUI_STR-DEFLT_COMM sy-vline 
WA_COD_S_EQUI_STR-XPCPT sy-vline 
WA_COD_S_EQUI_STR-TEL_NUMBER sy-vline 
WA_COD_S_EQUI_STR-TEL_EXTENS sy-vline 
WA_COD_S_EQUI_STR-FAX_NUMBER sy-vline 
WA_COD_S_EQUI_STR-FAX_EXTENS sy-vline 
WA_COD_S_EQUI_STR-ADDR_GROUP sy-vline 
WA_COD_S_EQUI_STR-COUNTRY_ISO sy-vline 
WA_COD_S_EQUI_STR-LANGU_ISO sy-vline 
WA_COD_S_EQUI_STR-LANGU_CREA_ISO sy-vline 
WA_COD_S_EQUI_STR-PO_BOX_CTY_ISO sy-vline 
WA_COD_S_EQUI_STR-SYSTEM_STATUS sy-vline 
WA_COD_S_EQUI_STR-USER_STATUS sy-vline 
WA_COD_S_EQUI_STR-PARTNER sy-vline 
WA_COD_S_EQUI_STR-LONG_TEXT sy-vline 
WA_COD_S_EQUI_STR-DESCRIPTION sy-vline 
WA_COD_S_EQUI_STR-WARRANTY sy-vline      INTO ld_text SEPARATED BY SPACE.

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