ABAP Select data from SAP table KOMKBJA 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 KOMKBJA 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 KOMKBJA. 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 KOMKBJA 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_KOMKBJA TYPE STANDARD TABLE OF KOMKBJA,
      WA_KOMKBJA TYPE KOMKBJA,
      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: <KOMKBJA> TYPE KOMKBJA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM KOMKBJA
*  INTO TABLE @DATA(IT_KOMKBJA2).
*--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_KOMKBJA INDEX 1 INTO DATA(WA_KOMKBJA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<KOMKBJA>-VKORG = 1.
<KOMKBJA>-VTWEG = 1.
<KOMKBJA>-SPART = 1.
<KOMKBJA>-VKBUR = 1.
<KOMKBJA>-VKGRP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_KOMKBJA-TRTYP, sy-vline,
  WA_KOMKBJA-GPAG, sy-vline,
  WA_KOMKBJA-KKBER, sy-vline,
  WA_KOMKBJA-SBGRP, sy-vline,
  WA_KOMKBJA-CTLPC, sy-vline,
  WA_KOMKBJA-CMGST, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_KOMKBJA 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_KOMKBJA 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_KOMKBJA INTO WA_KOMKBJA.


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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field PACKAGE_CATEGORY
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_KOMKBJA-PACKAGE_CATEGORY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KOMKBJA-PACKAGE_CATEGORY.
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_KOMKBJA_STR, 
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
VKBUR TYPE STRING,
VKGRP TYPE STRING,
TRTYP TYPE STRING,
GPAG TYPE STRING,
KKBER TYPE STRING,
SBGRP TYPE STRING,
CTLPC TYPE STRING,
CMGST TYPE STRING,
ZLSCH TYPE STRING,
MNDID TYPE STRING,
SEPA_STATUS TYPE STRING,
PAM_AUART TYPE STRING,
PAM_ST_K TYPE STRING,
PAM_POSART TYPE STRING,
PAM_PSTYV TYPE STRING,
PAM_WKTYP TYPE STRING,
PAM_XAGENT TYPE STRING,
PAM_ST_P TYPE STRING,
INHK_KFM TYPE STRING,
INHK_KLEV1 TYPE STRING,
INHK_TECH1 TYPE STRING,
INHK_TLEV1 TYPE STRING,
INHK_TECH2 TYPE STRING,
AZART_PLAZ TYPE STRING,
AZART_SOND TYPE STRING,
PLAZIERUNG TYPE STRING,
TBEL TYPE STRING,
BELEG_ART TYPE STRING,
BELEG_ANZ TYPE STRING,
KORR_ART TYPE STRING,
KORR_ANZ TYPE STRING,
RECH_KOPIE TYPE STRING,
CHIFFRE_KZ TYPE STRING,
XPRNOTW TYPE STRING,
XKUNK_NOTW TYPE STRING,
XPRINHNOTW TYPE STRING,
XUVFAKT TYPE STRING,
XUVGP TYPE STRING,
XUVPREIS TYPE STRING,
XUVABSCHL TYPE STRING,
XUVVZ TYPE STRING,
XRESERV TYPE STRING,
XRESBEST TYPE STRING,
XSPERR_BON TYPE STRING,
XKOMMFRGB TYPE STRING,
INSERENT TYPE STRING,
KUKARR TYPE STRING,
XUVMOT TYPE STRING,
XUVTECH TYPE STRING,
XNOCHG_TEC TYPE STRING,
XTECH_EE TYPE STRING,
XBAWRUF TYPE STRING,
XSPERR_TEC TYPE STRING,
XCMP_FAIL TYPE STRING,
MERKMAL0PA TYPE STRING,
MERKMAL1PA TYPE STRING,
MERKMAL2PA TYPE STRING,
MERKMAL3PA TYPE STRING,
MERKMAL4PA TYPE STRING,
MERKMAL5PA TYPE STRING,
MERKMAL6PA TYPE STRING,
MERKMAL7PA TYPE STRING,
MERKMAL8PA TYPE STRING,
MERKMAL9PA TYPE STRING,
XUVMOT_SI TYPE STRING,
XDISPO_SI TYPE STRING,
XSI_PLAZ TYPE STRING,
XMUSTER_OK TYPE STRING,
XSI_VORH TYPE STRING,
MERKMAL0PS TYPE STRING,
MERKMAL1PS TYPE STRING,
MERKMAL2PS TYPE STRING,
MERKMAL3PS TYPE STRING,
MERKMAL4PS TYPE STRING,
MERKMAL5PS TYPE STRING,
MERKMAL6PS TYPE STRING,
MERKMAL7PS TYPE STRING,
MERKMAL8PS TYPE STRING,
MERKMAL9PS TYPE STRING,
MERKMAL0PW TYPE STRING,
MERKMAL1PW TYPE STRING,
MERKMAL2PW TYPE STRING,
MERKMAL3PW TYPE STRING,
MERKMAL4PW TYPE STRING,
MERKMAL5PW TYPE STRING,
MERKMAL6PW TYPE STRING,
MERKMAL7PW TYPE STRING,
MERKMAL8PW TYPE STRING,
MERKMAL9PW TYPE STRING,
MATNR_PAM TYPE STRING,
DIENTYPPAM TYPE STRING,
DIEN_BE TYPE STRING,
DIEN_IKO TYPE STRING,
MERKMAL0PD TYPE STRING,
MERKMAL1PD TYPE STRING,
MERKMAL2PD TYPE STRING,
MERKMAL3PD TYPE STRING,
MERKMAL4PD TYPE STRING,
MERKMAL5PD TYPE STRING,
MERKMAL6PD TYPE STRING,
MERKMAL7PD TYPE STRING,
MERKMAL8PD TYPE STRING,
MERKMAL9PD TYPE STRING,
MERKMAL0PO TYPE STRING,
MERKMAL1PO TYPE STRING,
MERKMAL2PO TYPE STRING,
MERKMAL3PO TYPE STRING,
MERKMAL4PO TYPE STRING,
MERKMAL5PO TYPE STRING,
MERKMAL6PO TYPE STRING,
MERKMAL7PO TYPE STRING,
MERKMAL8PO TYPE STRING,
MERKMAL9PO TYPE STRING,
AVM_HRKNFT TYPE STRING,
PACKAGE_ID TYPE STRING,
PACKAGE_TYPE TYPE STRING,
PACKAGE_CATEGORY TYPE STRING,
MERKMAL0PP TYPE STRING,
MERKMAL1PP TYPE STRING,
MERKMAL2PP TYPE STRING,
MERKMAL3PP TYPE STRING,
MERKMAL4PP TYPE STRING,
MERKMAL5PP TYPE STRING,
MERKMAL6PP TYPE STRING,
MERKMAL7PP TYPE STRING,
MERKMAL8PP TYPE STRING,
MERKMAL9PP TYPE STRING,
XUVPKEL_PREIS TYPE STRING,
XUVPK TYPE STRING,
XUVPK_ELEM TYPE STRING,
XUV_ADM_VAL TYPE STRING,
XUVPK_PREIS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_KOMKBJA_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_KOMKBJA_STR-VKORG sy-vline 
WA_KOMKBJA_STR-VTWEG sy-vline 
WA_KOMKBJA_STR-SPART sy-vline 
WA_KOMKBJA_STR-VKBUR sy-vline 
WA_KOMKBJA_STR-VKGRP sy-vline 
WA_KOMKBJA_STR-TRTYP sy-vline 
WA_KOMKBJA_STR-GPAG sy-vline 
WA_KOMKBJA_STR-KKBER sy-vline 
WA_KOMKBJA_STR-SBGRP sy-vline 
WA_KOMKBJA_STR-CTLPC sy-vline 
WA_KOMKBJA_STR-CMGST sy-vline 
WA_KOMKBJA_STR-ZLSCH sy-vline 
WA_KOMKBJA_STR-MNDID sy-vline 
WA_KOMKBJA_STR-SEPA_STATUS sy-vline 
WA_KOMKBJA_STR-PAM_AUART sy-vline 
WA_KOMKBJA_STR-PAM_ST_K sy-vline 
WA_KOMKBJA_STR-PAM_POSART sy-vline 
WA_KOMKBJA_STR-PAM_PSTYV sy-vline 
WA_KOMKBJA_STR-PAM_WKTYP sy-vline 
WA_KOMKBJA_STR-PAM_XAGENT sy-vline 
WA_KOMKBJA_STR-PAM_ST_P sy-vline 
WA_KOMKBJA_STR-INHK_KFM sy-vline 
WA_KOMKBJA_STR-INHK_KLEV1 sy-vline 
WA_KOMKBJA_STR-INHK_TECH1 sy-vline 
WA_KOMKBJA_STR-INHK_TLEV1 sy-vline 
WA_KOMKBJA_STR-INHK_TECH2 sy-vline 
WA_KOMKBJA_STR-AZART_PLAZ sy-vline 
WA_KOMKBJA_STR-AZART_SOND sy-vline 
WA_KOMKBJA_STR-PLAZIERUNG sy-vline 
WA_KOMKBJA_STR-TBEL sy-vline 
WA_KOMKBJA_STR-BELEG_ART sy-vline 
WA_KOMKBJA_STR-BELEG_ANZ sy-vline 
WA_KOMKBJA_STR-KORR_ART sy-vline 
WA_KOMKBJA_STR-KORR_ANZ sy-vline 
WA_KOMKBJA_STR-RECH_KOPIE sy-vline 
WA_KOMKBJA_STR-CHIFFRE_KZ sy-vline 
WA_KOMKBJA_STR-XPRNOTW sy-vline 
WA_KOMKBJA_STR-XKUNK_NOTW sy-vline 
WA_KOMKBJA_STR-XPRINHNOTW sy-vline 
WA_KOMKBJA_STR-XUVFAKT sy-vline 
WA_KOMKBJA_STR-XUVGP sy-vline 
WA_KOMKBJA_STR-XUVPREIS sy-vline 
WA_KOMKBJA_STR-XUVABSCHL sy-vline 
WA_KOMKBJA_STR-XUVVZ sy-vline 
WA_KOMKBJA_STR-XRESERV sy-vline 
WA_KOMKBJA_STR-XRESBEST sy-vline 
WA_KOMKBJA_STR-XSPERR_BON sy-vline 
WA_KOMKBJA_STR-XKOMMFRGB sy-vline 
WA_KOMKBJA_STR-INSERENT sy-vline 
WA_KOMKBJA_STR-KUKARR sy-vline 
WA_KOMKBJA_STR-XUVMOT sy-vline 
WA_KOMKBJA_STR-XUVTECH sy-vline 
WA_KOMKBJA_STR-XNOCHG_TEC sy-vline 
WA_KOMKBJA_STR-XTECH_EE sy-vline 
WA_KOMKBJA_STR-XBAWRUF sy-vline 
WA_KOMKBJA_STR-XSPERR_TEC sy-vline 
WA_KOMKBJA_STR-XCMP_FAIL sy-vline 
WA_KOMKBJA_STR-MERKMAL0PA sy-vline 
WA_KOMKBJA_STR-MERKMAL1PA sy-vline 
WA_KOMKBJA_STR-MERKMAL2PA sy-vline 
WA_KOMKBJA_STR-MERKMAL3PA sy-vline 
WA_KOMKBJA_STR-MERKMAL4PA sy-vline 
WA_KOMKBJA_STR-MERKMAL5PA sy-vline 
WA_KOMKBJA_STR-MERKMAL6PA sy-vline 
WA_KOMKBJA_STR-MERKMAL7PA sy-vline 
WA_KOMKBJA_STR-MERKMAL8PA sy-vline 
WA_KOMKBJA_STR-MERKMAL9PA sy-vline 
WA_KOMKBJA_STR-XUVMOT_SI sy-vline 
WA_KOMKBJA_STR-XDISPO_SI sy-vline 
WA_KOMKBJA_STR-XSI_PLAZ sy-vline 
WA_KOMKBJA_STR-XMUSTER_OK sy-vline 
WA_KOMKBJA_STR-XSI_VORH sy-vline 
WA_KOMKBJA_STR-MERKMAL0PS sy-vline 
WA_KOMKBJA_STR-MERKMAL1PS sy-vline 
WA_KOMKBJA_STR-MERKMAL2PS sy-vline 
WA_KOMKBJA_STR-MERKMAL3PS sy-vline 
WA_KOMKBJA_STR-MERKMAL4PS sy-vline 
WA_KOMKBJA_STR-MERKMAL5PS sy-vline 
WA_KOMKBJA_STR-MERKMAL6PS sy-vline 
WA_KOMKBJA_STR-MERKMAL7PS sy-vline 
WA_KOMKBJA_STR-MERKMAL8PS sy-vline 
WA_KOMKBJA_STR-MERKMAL9PS sy-vline 
WA_KOMKBJA_STR-MERKMAL0PW sy-vline 
WA_KOMKBJA_STR-MERKMAL1PW sy-vline 
WA_KOMKBJA_STR-MERKMAL2PW sy-vline 
WA_KOMKBJA_STR-MERKMAL3PW sy-vline 
WA_KOMKBJA_STR-MERKMAL4PW sy-vline 
WA_KOMKBJA_STR-MERKMAL5PW sy-vline 
WA_KOMKBJA_STR-MERKMAL6PW sy-vline 
WA_KOMKBJA_STR-MERKMAL7PW sy-vline 
WA_KOMKBJA_STR-MERKMAL8PW sy-vline 
WA_KOMKBJA_STR-MERKMAL9PW sy-vline 
WA_KOMKBJA_STR-MATNR_PAM sy-vline 
WA_KOMKBJA_STR-DIENTYPPAM sy-vline 
WA_KOMKBJA_STR-DIEN_BE sy-vline 
WA_KOMKBJA_STR-DIEN_IKO sy-vline 
WA_KOMKBJA_STR-MERKMAL0PD sy-vline 
WA_KOMKBJA_STR-MERKMAL1PD sy-vline 
WA_KOMKBJA_STR-MERKMAL2PD sy-vline 
WA_KOMKBJA_STR-MERKMAL3PD sy-vline 
WA_KOMKBJA_STR-MERKMAL4PD sy-vline 
WA_KOMKBJA_STR-MERKMAL5PD sy-vline 
WA_KOMKBJA_STR-MERKMAL6PD sy-vline 
WA_KOMKBJA_STR-MERKMAL7PD sy-vline 
WA_KOMKBJA_STR-MERKMAL8PD sy-vline 
WA_KOMKBJA_STR-MERKMAL9PD sy-vline 
WA_KOMKBJA_STR-MERKMAL0PO sy-vline 
WA_KOMKBJA_STR-MERKMAL1PO sy-vline 
WA_KOMKBJA_STR-MERKMAL2PO sy-vline 
WA_KOMKBJA_STR-MERKMAL3PO sy-vline 
WA_KOMKBJA_STR-MERKMAL4PO sy-vline 
WA_KOMKBJA_STR-MERKMAL5PO sy-vline 
WA_KOMKBJA_STR-MERKMAL6PO sy-vline 
WA_KOMKBJA_STR-MERKMAL7PO sy-vline 
WA_KOMKBJA_STR-MERKMAL8PO sy-vline 
WA_KOMKBJA_STR-MERKMAL9PO sy-vline 
WA_KOMKBJA_STR-AVM_HRKNFT sy-vline 
WA_KOMKBJA_STR-PACKAGE_ID sy-vline 
WA_KOMKBJA_STR-PACKAGE_TYPE sy-vline 
WA_KOMKBJA_STR-PACKAGE_CATEGORY sy-vline 
WA_KOMKBJA_STR-MERKMAL0PP sy-vline 
WA_KOMKBJA_STR-MERKMAL1PP sy-vline 
WA_KOMKBJA_STR-MERKMAL2PP sy-vline 
WA_KOMKBJA_STR-MERKMAL3PP sy-vline 
WA_KOMKBJA_STR-MERKMAL4PP sy-vline 
WA_KOMKBJA_STR-MERKMAL5PP sy-vline 
WA_KOMKBJA_STR-MERKMAL6PP sy-vline 
WA_KOMKBJA_STR-MERKMAL7PP sy-vline 
WA_KOMKBJA_STR-MERKMAL8PP sy-vline 
WA_KOMKBJA_STR-MERKMAL9PP sy-vline 
WA_KOMKBJA_STR-XUVPKEL_PREIS sy-vline 
WA_KOMKBJA_STR-XUVPK sy-vline 
WA_KOMKBJA_STR-XUVPK_ELEM sy-vline 
WA_KOMKBJA_STR-XUV_ADM_VAL sy-vline 
WA_KOMKBJA_STR-XUVPK_PREIS sy-vline      INTO ld_text SEPARATED BY SPACE.

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