ABAP Select data from SAP table COD_S_FLOC 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_FLOC 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_FLOC. 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_FLOC 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_FLOC TYPE STANDARD TABLE OF COD_S_FLOC,
      WA_COD_S_FLOC TYPE COD_S_FLOC,
      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_FLOC> TYPE COD_S_FLOC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM COD_S_FLOC
*  INTO TABLE @DATA(IT_COD_S_FLOC2).
*--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_FLOC INDEX 1 INTO DATA(WA_COD_S_FLOC2).


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

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

ENDLOOP.

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

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


*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 TPLNR, internal->external for field FUNCTIONAL_LOCATION_NUMBER
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_FLOC-FUNCTIONAL_LOCATION_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-FUNCTIONAL_LOCATION_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_FLOC-UNIT_OF_WT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CONSTYEAR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CONSTTYPE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-COSTCENTER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-WBS_ELEM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-ASSET_NO
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-SUB_NUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-STANDORDER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-SETTLORDER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-READ_ADRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CONSTTYPE_EXTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CONSTTYPE_VERSION
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-LINEAR_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-FIRST_OFFSET_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-SECOND_OFFSET_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-MARKER_DISTANCE_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CONSTTYPE_LONG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-CONSTTYPE_LONG.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TPLNR, internal->external for field SUPFLOC
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_FLOC-SUPFLOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-SUPFLOC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field ADDRNUMBER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_COD_S_FLOC-ADDRNUMBER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CITY_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CITYP_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CITYH_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-CITY_CODE2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-STREETCODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-ADDRESS_ID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-LANGU_CREA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-COUNTY_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC-TOWNSHIP_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COD_S_FLOC-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_FLOC_STR, 
FUNCTIONAL_LOCATION_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,
FLOC_ONLY TYPE STRING,
STRIND TYPE STRING,
CATEGORY TYPE STRING,
SUPFLOC TYPE STRING,
EQINSTALL TYPE STRING,
EQSINGLE TYPE STRING,
POSNR TYPE STRING,
READ_REFERENCE_LOCATION 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,
ALT_LABELS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_COD_S_FLOC_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_FLOC_STR-FUNCTIONAL_LOCATION_NUMBER sy-vline 
WA_COD_S_FLOC_STR-GENERAL sy-vline 
WA_COD_S_FLOC_STR-AUTHGRP sy-vline 
WA_COD_S_FLOC_STR-OBJECTTYPE sy-vline 
WA_COD_S_FLOC_STR-INVENTORY sy-vline 
WA_COD_S_FLOC_STR-OBJ_SIZE sy-vline 
WA_COD_S_FLOC_STR-OBJ_WEIGHT sy-vline 
WA_COD_S_FLOC_STR-UNIT_OF_WT sy-vline 
WA_COD_S_FLOC_STR-UNIT_ISO sy-vline 
WA_COD_S_FLOC_STR-ACQDATE sy-vline 
WA_COD_S_FLOC_STR-ACQUISVAL sy-vline 
WA_COD_S_FLOC_STR-CURRENCY sy-vline 
WA_COD_S_FLOC_STR-CURR_ISO sy-vline 
WA_COD_S_FLOC_STR-MANFACTURE sy-vline 
WA_COD_S_FLOC_STR-MANCOUNTRY sy-vline 
WA_COD_S_FLOC_STR-COUNTR_ISO sy-vline 
WA_COD_S_FLOC_STR-MANSERNO sy-vline 
WA_COD_S_FLOC_STR-MANMODEL sy-vline 
WA_COD_S_FLOC_STR-CONSTYEAR sy-vline 
WA_COD_S_FLOC_STR-CONSTMONTH sy-vline 
WA_COD_S_FLOC_STR-START_FROM sy-vline 
WA_COD_S_FLOC_STR-PLANPLANT sy-vline 
WA_COD_S_FLOC_STR-CONSTTYPE sy-vline 
WA_COD_S_FLOC_STR-MANPARNO sy-vline 
WA_COD_S_FLOC_STR-PLANGROUP sy-vline 
WA_COD_S_FLOC_STR-CATPROFILE sy-vline 
WA_COD_S_FLOC_STR-WORK_CTR sy-vline 
WA_COD_S_FLOC_STR-DESCRIPT sy-vline 
WA_COD_S_FLOC_STR-ABCINDIC sy-vline 
WA_COD_S_FLOC_STR-SORTFIELD sy-vline 
WA_COD_S_FLOC_STR-MAINTPLANT sy-vline 
WA_COD_S_FLOC_STR-MAINTLOC sy-vline 
WA_COD_S_FLOC_STR-MAINTROOM sy-vline 
WA_COD_S_FLOC_STR-PLSECTN sy-vline 
WA_COD_S_FLOC_STR-PP_WKCTR sy-vline 
WA_COD_S_FLOC_STR-BUS_AREA sy-vline 
WA_COD_S_FLOC_STR-COSTCENTER sy-vline 
WA_COD_S_FLOC_STR-WBS_ELEM sy-vline 
WA_COD_S_FLOC_STR-COMP_CODE sy-vline 
WA_COD_S_FLOC_STR-ASSET_NO sy-vline 
WA_COD_S_FLOC_STR-SUB_NUMBER sy-vline 
WA_COD_S_FLOC_STR-STANDORDER sy-vline 
WA_COD_S_FLOC_STR-SETTLORDER sy-vline 
WA_COD_S_FLOC_STR-SALES_ORG sy-vline 
WA_COD_S_FLOC_STR-DISTR_CHAN sy-vline 
WA_COD_S_FLOC_STR-DIVISION sy-vline 
WA_COD_S_FLOC_STR-SALES_OFF sy-vline 
WA_COD_S_FLOC_STR-SALES_GRP sy-vline 
WA_COD_S_FLOC_STR-READ_CRDAT sy-vline 
WA_COD_S_FLOC_STR-READ_CRNAM sy-vline 
WA_COD_S_FLOC_STR-READ_CHDAT sy-vline 
WA_COD_S_FLOC_STR-READ_CHNAM sy-vline 
WA_COD_S_FLOC_STR-READ_ADRNR sy-vline 
WA_COD_S_FLOC_STR-CONSTTYPE_EXTERNAL sy-vline 
WA_COD_S_FLOC_STR-CONSTTYPE_GUID sy-vline 
WA_COD_S_FLOC_STR-CONSTTYPE_VERSION sy-vline 
WA_COD_S_FLOC_STR-READ_OBJNR sy-vline 
WA_COD_S_FLOC_STR-SHIFT_REPORT_TYPE sy-vline 
WA_COD_S_FLOC_STR-SHIFT_NOTE_NOTIFICATION_TYPE sy-vline 
WA_COD_S_FLOC_STR-START_POINT sy-vline 
WA_COD_S_FLOC_STR-END_POINT sy-vline 
WA_COD_S_FLOC_STR-LINEAR_LENGTH sy-vline 
WA_COD_S_FLOC_STR-LINEAR_UNIT sy-vline 
WA_COD_S_FLOC_STR-FIRST_OFFSET_TYPE_CODE sy-vline 
WA_COD_S_FLOC_STR-FIRST_OFFSET_VALUE sy-vline 
WA_COD_S_FLOC_STR-FIRST_OFFSET_UNIT sy-vline 
WA_COD_S_FLOC_STR-SECOND_OFFSET_TYPE_CODE sy-vline 
WA_COD_S_FLOC_STR-SECOND_OFFSET_VALUE sy-vline 
WA_COD_S_FLOC_STR-SECOND_OFFSET_UNIT sy-vline 
WA_COD_S_FLOC_STR-SECOND_OFFSET_UNIT_ISO sy-vline 
WA_COD_S_FLOC_STR-LINEAR_UNIT_ISO sy-vline 
WA_COD_S_FLOC_STR-FIRST_OFFSET_UNIT_ISO sy-vline 
WA_COD_S_FLOC_STR-LINEAR_REFERENCE_PATTERN sy-vline 
WA_COD_S_FLOC_STR-MARKER_START_POINT sy-vline 
WA_COD_S_FLOC_STR-MARKER_DISTANCE_START_POINT sy-vline 
WA_COD_S_FLOC_STR-MARKER_END_POINT sy-vline 
WA_COD_S_FLOC_STR-MARKER_DISTANCE_END_POINT sy-vline 
WA_COD_S_FLOC_STR-MARKER_DISTANCE_UNIT sy-vline 
WA_COD_S_FLOC_STR-MARKER_DISTANCE_UNIT_ISO sy-vline 
WA_COD_S_FLOC_STR-CONSTTYPE_LONG sy-vline 
WA_COD_S_FLOC_STR-END_TO sy-vline 
WA_COD_S_FLOC_STR-VALID_TO sy-vline 
WA_COD_S_FLOC_STR-VALID_FROM sy-vline 
WA_COD_S_FLOC_STR-CLASS sy-vline 
WA_COD_S_FLOC_STR-STSMA sy-vline 
WA_COD_S_FLOC_STR-FLOC_ONLY sy-vline 
WA_COD_S_FLOC_STR-STRIND sy-vline 
WA_COD_S_FLOC_STR-CATEGORY sy-vline 
WA_COD_S_FLOC_STR-SUPFLOC sy-vline 
WA_COD_S_FLOC_STR-EQINSTALL sy-vline 
WA_COD_S_FLOC_STR-EQSINGLE sy-vline 
WA_COD_S_FLOC_STR-POSNR sy-vline 
WA_COD_S_FLOC_STR-READ_REFERENCE_LOCATION sy-vline 
WA_COD_S_FLOC_STR-ADDRESS sy-vline 
WA_COD_S_FLOC_STR-ADDRNUMBER sy-vline 
WA_COD_S_FLOC_STR-ADDRHANDLE sy-vline 
WA_COD_S_FLOC_STR-NATION sy-vline 
WA_COD_S_FLOC_STR-DATE sy-vline 
WA_COD_S_FLOC_STR-DATE_FROM sy-vline 
WA_COD_S_FLOC_STR-DATE_TO sy-vline 
WA_COD_S_FLOC_STR-TITLE sy-vline 
WA_COD_S_FLOC_STR-NAME1 sy-vline 
WA_COD_S_FLOC_STR-NAME2 sy-vline 
WA_COD_S_FLOC_STR-NAME3 sy-vline 
WA_COD_S_FLOC_STR-NAME4 sy-vline 
WA_COD_S_FLOC_STR-NAME_TXT sy-vline 
WA_COD_S_FLOC_STR-NAME_CO sy-vline 
WA_COD_S_FLOC_STR-CITY1 sy-vline 
WA_COD_S_FLOC_STR-CITY2 sy-vline 
WA_COD_S_FLOC_STR-CITY_CODE sy-vline 
WA_COD_S_FLOC_STR-CITYP_CODE sy-vline 
WA_COD_S_FLOC_STR-HOME_CITY sy-vline 
WA_COD_S_FLOC_STR-CITYH_CODE sy-vline 
WA_COD_S_FLOC_STR-CHCKSTATUS sy-vline 
WA_COD_S_FLOC_STR-REGIOGROUP sy-vline 
WA_COD_S_FLOC_STR-POST_CODE1 sy-vline 
WA_COD_S_FLOC_STR-POST_CODE2 sy-vline 
WA_COD_S_FLOC_STR-POST_CODE3 sy-vline 
WA_COD_S_FLOC_STR-PCODE1_EXT sy-vline 
WA_COD_S_FLOC_STR-PCODE2_EXT sy-vline 
WA_COD_S_FLOC_STR-PCODE3_EXT sy-vline 
WA_COD_S_FLOC_STR-PO_BOX sy-vline 
WA_COD_S_FLOC_STR-DONT_USE_P sy-vline 
WA_COD_S_FLOC_STR-PO_BOX_NUM sy-vline 
WA_COD_S_FLOC_STR-PO_BOX_LOC sy-vline 
WA_COD_S_FLOC_STR-CITY_CODE2 sy-vline 
WA_COD_S_FLOC_STR-PO_BOX_REG sy-vline 
WA_COD_S_FLOC_STR-PO_BOX_CTY sy-vline 
WA_COD_S_FLOC_STR-POSTALAREA sy-vline 
WA_COD_S_FLOC_STR-TRANSPZONE sy-vline 
WA_COD_S_FLOC_STR-STREET sy-vline 
WA_COD_S_FLOC_STR-DONT_USE_S sy-vline 
WA_COD_S_FLOC_STR-STREETCODE sy-vline 
WA_COD_S_FLOC_STR-STREETABBR sy-vline 
WA_COD_S_FLOC_STR-HOUSE_NUM1 sy-vline 
WA_COD_S_FLOC_STR-HOUSE_NUM2 sy-vline 
WA_COD_S_FLOC_STR-HOUSE_NUM3 sy-vline 
WA_COD_S_FLOC_STR-STR_SUPPL1 sy-vline 
WA_COD_S_FLOC_STR-STR_SUPPL2 sy-vline 
WA_COD_S_FLOC_STR-STR_SUPPL3 sy-vline 
WA_COD_S_FLOC_STR-LOCATION sy-vline 
WA_COD_S_FLOC_STR-BUILDING sy-vline 
WA_COD_S_FLOC_STR-FLOOR sy-vline 
WA_COD_S_FLOC_STR-ROOMNUMBER sy-vline 
WA_COD_S_FLOC_STR-COUNTRY sy-vline 
WA_COD_S_FLOC_STR-LANGU sy-vline 
WA_COD_S_FLOC_STR-REGION sy-vline 
WA_COD_S_FLOC_STR-SORT1 sy-vline 
WA_COD_S_FLOC_STR-SORT2 sy-vline 
WA_COD_S_FLOC_STR-SORT_PHN sy-vline 
WA_COD_S_FLOC_STR-ADDRORIGIN sy-vline 
WA_COD_S_FLOC_STR-EXTENSION1 sy-vline 
WA_COD_S_FLOC_STR-EXTENSION2 sy-vline 
WA_COD_S_FLOC_STR-TIME_ZONE sy-vline 
WA_COD_S_FLOC_STR-TAXJURCODE sy-vline 
WA_COD_S_FLOC_STR-ADDRESS_ID sy-vline 
WA_COD_S_FLOC_STR-REMARK sy-vline 
WA_COD_S_FLOC_STR-LANGU_CREA sy-vline 
WA_COD_S_FLOC_STR-PO_BOX_LOBBY sy-vline 
WA_COD_S_FLOC_STR-DELI_SERV_TYPE sy-vline 
WA_COD_S_FLOC_STR-DELI_SERV_NUMBER sy-vline 
WA_COD_S_FLOC_STR-COUNTY_CODE sy-vline 
WA_COD_S_FLOC_STR-COUNTY sy-vline 
WA_COD_S_FLOC_STR-TOWNSHIP_CODE sy-vline 
WA_COD_S_FLOC_STR-TOWNSHIP sy-vline 
WA_COD_S_FLOC_STR-DEFLT_COMM sy-vline 
WA_COD_S_FLOC_STR-XPCPT sy-vline 
WA_COD_S_FLOC_STR-TEL_NUMBER sy-vline 
WA_COD_S_FLOC_STR-TEL_EXTENS sy-vline 
WA_COD_S_FLOC_STR-FAX_NUMBER sy-vline 
WA_COD_S_FLOC_STR-FAX_EXTENS sy-vline 
WA_COD_S_FLOC_STR-ADDR_GROUP sy-vline 
WA_COD_S_FLOC_STR-COUNTRY_ISO sy-vline 
WA_COD_S_FLOC_STR-LANGU_ISO sy-vline 
WA_COD_S_FLOC_STR-LANGU_CREA_ISO sy-vline 
WA_COD_S_FLOC_STR-PO_BOX_CTY_ISO sy-vline 
WA_COD_S_FLOC_STR-SYSTEM_STATUS sy-vline 
WA_COD_S_FLOC_STR-USER_STATUS sy-vline 
WA_COD_S_FLOC_STR-PARTNER sy-vline 
WA_COD_S_FLOC_STR-LONG_TEXT sy-vline 
WA_COD_S_FLOC_STR-DESCRIPTION sy-vline 
WA_COD_S_FLOC_STR-WARRANTY sy-vline 
WA_COD_S_FLOC_STR-ALT_LABELS sy-vline      INTO ld_text SEPARATED BY SPACE.

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