ABAP Select data from SAP table SITE_DISTR_SITE_STY 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 SITE_DISTR_SITE_STY 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 SITE_DISTR_SITE_STY. 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 SITE_DISTR_SITE_STY 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_SITE_DISTR_SITE_STY TYPE STANDARD TABLE OF SITE_DISTR_SITE_STY,
      WA_SITE_DISTR_SITE_STY TYPE SITE_DISTR_SITE_STY,
      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: <SITE_DISTR_SITE_STY> TYPE SITE_DISTR_SITE_STY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM SITE_DISTR_SITE_STY
*  INTO TABLE @DATA(IT_SITE_DISTR_SITE_STY2).
*--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_SITE_DISTR_SITE_STY INDEX 1 INTO DATA(WA_SITE_DISTR_SITE_STY2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<SITE_DISTR_SITE_STY>-DB_FUNTION = 1.
<SITE_DISTR_SITE_STY>-ERROR_CODE = 1.
<SITE_DISTR_SITE_STY>-T001W = 1.
<SITE_DISTR_SITE_STY>-MANDT = 1.
<SITE_DISTR_SITE_STY>-WERKS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_SITE_DISTR_SITE_STY-NAME1, sy-vline,
  WA_SITE_DISTR_SITE_STY-BWKEY, sy-vline,
  WA_SITE_DISTR_SITE_STY-KUNNR, sy-vline,
  WA_SITE_DISTR_SITE_STY-LIFNR, sy-vline,
  WA_SITE_DISTR_SITE_STY-FABKL, sy-vline,
  WA_SITE_DISTR_SITE_STY-NAME2, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_SITE_DISTR_SITE_STY 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_SITE_DISTR_SITE_STY 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_SITE_DISTR_SITE_STY INTO WA_SITE_DISTR_SITE_STY.


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

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

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_SITE_DISTR_SITE_STY-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_SITE_DISTR_SITE_STY-SPRAS.
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_SITE_DISTR_SITE_STY_STR, 
DB_FUNTION TYPE STRING,
ERROR_CODE TYPE STRING,
T001W TYPE STRING,
MANDT TYPE STRING,
WERKS TYPE STRING,
NAME1 TYPE STRING,
BWKEY TYPE STRING,
KUNNR TYPE STRING,
LIFNR TYPE STRING,
FABKL TYPE STRING,
NAME2 TYPE STRING,
STRAS TYPE STRING,
PFACH TYPE STRING,
PSTLZ TYPE STRING,
ORT01 TYPE STRING,
EKORG TYPE STRING,
VKORG TYPE STRING,
CHAZV TYPE STRING,
KKOWK TYPE STRING,
KORDB TYPE STRING,
BEDPL TYPE STRING,
LAND1 TYPE STRING,
REGIO TYPE STRING,
COUNC TYPE STRING,
CITYC TYPE STRING,
ADRNR TYPE STRING,
IWERK TYPE STRING,
TXJCD TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
SPRAS TYPE STRING,
WKSOP TYPE STRING,
AWSLS TYPE STRING,
CHAZV_OLD TYPE STRING,
VLFKZ TYPE STRING,
BZIRK TYPE STRING,
ZONE1 TYPE STRING,
TAXIW TYPE STRING,
BZQHL TYPE STRING,
LET01 TYPE STRING,
LET02 TYPE STRING,
LET03 TYPE STRING,
TXNAM_MA1 TYPE STRING,
TXNAM_MA2 TYPE STRING,
TXNAM_MA3 TYPE STRING,
BETOL TYPE STRING,
J_1BBRANCH TYPE STRING,
VTBFI TYPE STRING,
FPRFW TYPE STRING,
ACHVM TYPE STRING,
DVSART TYPE STRING,
NODETYPE TYPE STRING,
NSCHEMA TYPE STRING,
PKOSA TYPE STRING,
MISCH TYPE STRING,
MGVUPD TYPE STRING,
VSTEL TYPE STRING,
MGVLAUPD TYPE STRING,
MGVLAREVAL TYPE STRING,
SOURCING TYPE STRING,
NO_DEFAULT_BATCH_MANAGEMENT TYPE STRING,
FSH_MG_ARUN_REQ TYPE STRING,
FSH_SEAIM TYPE STRING,
FSH_BOM_MAINTENANCE TYPE STRING,
FSH_GROUP_PR TYPE STRING,
ARUN_FIX_BATCH TYPE STRING,
OILIVAL TYPE STRING,
OIHVTYPE TYPE STRING,
OIHCREDIPI TYPE STRING,
STORETYPE TYPE STRING,
DEP_STORE TYPE STRING,
WYT3 TYPE STRING,
LFM2 TYPE STRING,
LFM1 TYPE STRING,
KNVK TYPE STRING,
LFBK TYPE STRING,
LFB1 TYPE STRING,
WYT1T TYPE STRING,
WYT1 TYPE STRING,
LFA1 TYPE STRING,
KNVP TYPE STRING,
KNVV TYPE STRING,
KNBK TYPE STRING,
KNB5 TYPE STRING,
KNVI TYPE STRING,
KNVA TYPE STRING,
KNEX TYPE STRING,
KNB1 TYPE STRING,
KNAS TYPE STRING,
KNAT TYPE STRING,
KNBW TYPE STRING,
KNVD TYPE STRING,
KNVL TYPE STRING,
KNVS TYPE STRING,
KNZA TYPE STRING,
T077D TYPE STRING,
WRF12 TYPE STRING,
WRF6 TYPE STRING,
WRF5 TYPE STRING,
WRF4 TYPE STRING,
WRF3 TYPE STRING,
WRF1 TYPE STRING,
TWICSCMF TYPE STRING,
TVSWZ TYPE STRING,
TVSTZ TYPE STRING,
TVKWZ TYPE STRING,
TVKOL TYPE STRING,
TNAD9 TYPE STRING,
TNAD7 TYPE STRING,
TMW00 TYPE STRING,
TMVFU TYPE STRING,
TMKSU TYPE STRING,
T460T TYPE STRING,
T460A TYPE STRING,
T440L TYPE STRING,
T439P TYPE STRING,
T439L TYPE STRING,
T439J TYPE STRING,
T439I TYPE STRING,
T439H TYPE STRING,
T439G TYPE STRING,
T438X TYPE STRING,
T438S TYPE STRING,
T438R TYPE STRING,
T438M TYPE STRING,
T399D TYPE STRING,
T320 TYPE STRING,
T16FW TYPE STRING,
T161W TYPE STRING,
T161V TYPE STRING,
T161I TYPE STRING,
T159X TYPE STRING,
T159R TYPE STRING,
T159L TYPE STRING,
T159C TYPE STRING,
T148W TYPE STRING,
T134M TYPE STRING,
T134G TYPE STRING,
T130W TYPE STRING,
T064S TYPE STRING,
T024W TYPE STRING,
T024D TYPE STRING,
T023W TYPE STRING,
T023X TYPE STRING,
T001K TYPE STRING,
T436A TYPE STRING,
TWLOF TYPE STRING,
T001L TYPE STRING,
EDPP1 TYPE STRING,
KNA1 TYPE STRING,
TCKM2 TYPE STRING,
TMLCCSHD TYPE STRING,
TMLCCSCR TYPE STRING,
CKMLAB02 TYPE STRING,
CKMLV TYPE STRING,END OF T_EKKO_STR.
DATA: WA_SITE_DISTR_SITE_STY_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_SITE_DISTR_SITE_STY_STR-DB_FUNTION sy-vline 
WA_SITE_DISTR_SITE_STY_STR-ERROR_CODE sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T001W sy-vline 
WA_SITE_DISTR_SITE_STY_STR-MANDT sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WERKS sy-vline 
WA_SITE_DISTR_SITE_STY_STR-NAME1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-BWKEY sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KUNNR sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LIFNR sy-vline 
WA_SITE_DISTR_SITE_STY_STR-FABKL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-NAME2 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-STRAS sy-vline 
WA_SITE_DISTR_SITE_STY_STR-PFACH sy-vline 
WA_SITE_DISTR_SITE_STY_STR-PSTLZ sy-vline 
WA_SITE_DISTR_SITE_STY_STR-ORT01 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-EKORG sy-vline 
WA_SITE_DISTR_SITE_STY_STR-VKORG sy-vline 
WA_SITE_DISTR_SITE_STY_STR-CHAZV sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KKOWK sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KORDB sy-vline 
WA_SITE_DISTR_SITE_STY_STR-BEDPL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LAND1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-REGIO sy-vline 
WA_SITE_DISTR_SITE_STY_STR-COUNC sy-vline 
WA_SITE_DISTR_SITE_STY_STR-CITYC sy-vline 
WA_SITE_DISTR_SITE_STY_STR-ADRNR sy-vline 
WA_SITE_DISTR_SITE_STY_STR-IWERK sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TXJCD sy-vline 
WA_SITE_DISTR_SITE_STY_STR-VTWEG sy-vline 
WA_SITE_DISTR_SITE_STY_STR-SPART sy-vline 
WA_SITE_DISTR_SITE_STY_STR-SPRAS sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WKSOP sy-vline 
WA_SITE_DISTR_SITE_STY_STR-AWSLS sy-vline 
WA_SITE_DISTR_SITE_STY_STR-CHAZV_OLD sy-vline 
WA_SITE_DISTR_SITE_STY_STR-VLFKZ sy-vline 
WA_SITE_DISTR_SITE_STY_STR-BZIRK sy-vline 
WA_SITE_DISTR_SITE_STY_STR-ZONE1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TAXIW sy-vline 
WA_SITE_DISTR_SITE_STY_STR-BZQHL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LET01 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LET02 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LET03 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TXNAM_MA1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TXNAM_MA2 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TXNAM_MA3 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-BETOL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-J_1BBRANCH sy-vline 
WA_SITE_DISTR_SITE_STY_STR-VTBFI sy-vline 
WA_SITE_DISTR_SITE_STY_STR-FPRFW sy-vline 
WA_SITE_DISTR_SITE_STY_STR-ACHVM sy-vline 
WA_SITE_DISTR_SITE_STY_STR-DVSART sy-vline 
WA_SITE_DISTR_SITE_STY_STR-NODETYPE sy-vline 
WA_SITE_DISTR_SITE_STY_STR-NSCHEMA sy-vline 
WA_SITE_DISTR_SITE_STY_STR-PKOSA sy-vline 
WA_SITE_DISTR_SITE_STY_STR-MISCH sy-vline 
WA_SITE_DISTR_SITE_STY_STR-MGVUPD sy-vline 
WA_SITE_DISTR_SITE_STY_STR-VSTEL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-MGVLAUPD sy-vline 
WA_SITE_DISTR_SITE_STY_STR-MGVLAREVAL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-SOURCING sy-vline 
WA_SITE_DISTR_SITE_STY_STR-NO_DEFAULT_BATCH_MANAGEMENT sy-vline 
WA_SITE_DISTR_SITE_STY_STR-FSH_MG_ARUN_REQ sy-vline 
WA_SITE_DISTR_SITE_STY_STR-FSH_SEAIM sy-vline 
WA_SITE_DISTR_SITE_STY_STR-FSH_BOM_MAINTENANCE sy-vline 
WA_SITE_DISTR_SITE_STY_STR-FSH_GROUP_PR sy-vline 
WA_SITE_DISTR_SITE_STY_STR-ARUN_FIX_BATCH sy-vline 
WA_SITE_DISTR_SITE_STY_STR-OILIVAL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-OIHVTYPE sy-vline 
WA_SITE_DISTR_SITE_STY_STR-OIHCREDIPI sy-vline 
WA_SITE_DISTR_SITE_STY_STR-STORETYPE sy-vline 
WA_SITE_DISTR_SITE_STY_STR-DEP_STORE sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WYT3 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LFM2 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LFM1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVK sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LFBK sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LFB1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WYT1T sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WYT1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-LFA1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVP sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVV sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNBK sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNB5 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVI sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVA sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNEX sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNB1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNAS sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNAT sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNBW sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVD sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNVS sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNZA sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T077D sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WRF12 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WRF6 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WRF5 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WRF4 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WRF3 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-WRF1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TWICSCMF sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TVSWZ sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TVSTZ sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TVKWZ sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TVKOL sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TNAD9 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TNAD7 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TMW00 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TMVFU sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TMKSU sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T460T sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T460A sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T440L sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T439P sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T439L sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T439J sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T439I sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T439H sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T439G sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T438X sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T438S sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T438R sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T438M sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T399D sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T320 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T16FW sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T161W sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T161V sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T161I sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T159X sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T159R sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T159L sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T159C sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T148W sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T134M sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T134G sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T130W sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T064S sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T024W sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T024D sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T023W sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T023X sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T001K sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T436A sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TWLOF sy-vline 
WA_SITE_DISTR_SITE_STY_STR-T001L sy-vline 
WA_SITE_DISTR_SITE_STY_STR-EDPP1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-KNA1 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TCKM2 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TMLCCSHD sy-vline 
WA_SITE_DISTR_SITE_STY_STR-TMLCCSCR sy-vline 
WA_SITE_DISTR_SITE_STY_STR-CKMLAB02 sy-vline 
WA_SITE_DISTR_SITE_STY_STR-CKMLV sy-vline      INTO ld_text SEPARATED BY SPACE.

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