ABAP Select data from SAP table FKK_COLLHIST_CNTXT_CORR_S 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 FKK_COLLHIST_CNTXT_CORR_S 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 FKK_COLLHIST_CNTXT_CORR_S. 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 FKK_COLLHIST_CNTXT_CORR_S 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_FKK_COLLHIST_CNTXT_CORR_S TYPE STANDARD TABLE OF FKK_COLLHIST_CNTXT_CORR_S,
      WA_FKK_COLLHIST_CNTXT_CORR_S TYPE FKK_COLLHIST_CNTXT_CORR_S,
      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: <FKK_COLLHIST_CNTXT_CORR_S> TYPE FKK_COLLHIST_CNTXT_CORR_S.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FKK_COLLHIST_CNTXT_CORR_S
*  INTO TABLE @DATA(IT_FKK_COLLHIST_CNTXT_CORR_S2).
*--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_FKK_COLLHIST_CNTXT_CORR_S INDEX 1 INTO DATA(WA_FKK_COLLHIST_CNTXT_CORR_S2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FKK_COLLHIST_CNTXT_CORR_S>-GRPINDEX = 1.
<FKK_COLLHIST_CNTXT_CORR_S>-MANDT = 1.
<FKK_COLLHIST_CNTXT_CORR_S>-COTYP = 1.
<FKK_COLLHIST_CNTXT_CORR_S>-COKEY = 1.
<FKK_COLLHIST_CNTXT_CORR_S>-UNAME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FKK_COLLHIST_CNTXT_CORR_S-CDATE, sy-vline,
  WA_FKK_COLLHIST_CNTXT_CORR_S-CTIME, sy-vline,
  WA_FKK_COLLHIST_CNTXT_CORR_S-GPART, sy-vline,
  WA_FKK_COLLHIST_CNTXT_CORR_S-GPART_GUID, sy-vline,
  WA_FKK_COLLHIST_CNTXT_CORR_S-GPART_ADR_KIND, sy-vline,
  WA_FKK_COLLHIST_CNTXT_CORR_S-ORG_GPART, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FKK_COLLHIST_CNTXT_CORR_S 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_FKK_COLLHIST_CNTXT_CORR_S 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_FKK_COLLHIST_CNTXT_CORR_S INTO WA_FKK_COLLHIST_CNTXT_CORR_S.


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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ACNUM_INT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_FKK_COLLHIST_CNTXT_CORR_S-ACNUM_INT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FKK_COLLHIST_CNTXT_CORR_S-ACNUM_INT.
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_FKK_COLLHIST_CNTXT_CORR_S_STR, 
GRPINDEX TYPE STRING,
MANDT TYPE STRING,
COTYP TYPE STRING,
COKEY TYPE STRING,
UNAME TYPE STRING,
CDATE TYPE STRING,
CTIME TYPE STRING,
GPART TYPE STRING,
GPART_GUID TYPE STRING,
GPART_ADR_KIND TYPE STRING,
ORG_GPART TYPE STRING,
ORG_GPART_GUID TYPE STRING,
ADD_GPART TYPE STRING,
ADD_GPART_GUID TYPE STRING,
ADD_GPART_CAT TYPE STRING,
VKONT TYPE STRING,
VTREF TYPE STRING,
ADR_VALID_ON TYPE STRING,
ADRNR TYPE STRING,
ADR_GUID TYPE STRING,
ADRNR_INDEP_COMM TYPE STRING,
AGPART TYPE STRING,
AGPART_GUID TYPE STRING,
AGPART_ADR_KIND TYPE STRING,
AADRNR TYPE STRING,
AADR_GUID TYPE STRING,
FORMKEY TYPE STRING,
FORMKEY_RDI TYPE STRING,
ENTID1 TYPE STRING,
DATA1 TYPE STRING,
ENTID2 TYPE STRING,
DATA2 TYPE STRING,
ENTID3 TYPE STRING,
DATA3 TYPE STRING,
ENTID4 TYPE STRING,
DATA4 TYPE STRING,
CSORT TYPE STRING,
XCODT TYPE STRING,
XCODT_CLUST TYPE STRING,
LAUFD TYPE STRING,
LAUFI TYPE STRING,
XTEST TYPE STRING,
COPRI TYPE STRING,
COIDT TYPE STRING,
COITM TYPE STRING,
SPRAS TYPE STRING,
SALWA TYPE STRING,
SALBE TYPE STRING,
SENDCONTROL TYPE STRING,
PERSNUMBER TYPE STRING,
APERSNUMBER TYPE STRING,
BUKRS TYPE STRING,
CORR_ROLE TYPE STRING,
COPRI_LAUFD TYPE STRING,
COPRI_LAUFI TYPE STRING,
PROCESS_ID_ TYPE STRING,
NO_DOCPARTS TYPE STRING,
DOCPART_ROLE TYPE STRING,
XTRIAL TYPE STRING,
XREPRINT TYPE STRING,
SUBAP TYPE STRING,
XDELETE TYPE STRING,
PRINT_MODE TYPE STRING,
X_NO_ARC TYPE STRING,
X_DOCPART_LIST TYPE STRING,
LOCK_STATUS TYPE STRING,
/PF1/CLEARING_AREA TYPE STRING,
/PF1/TYPE TYPE STRING,
/PF1/REFERENCE_NO TYPE STRING,
/PF1/FAX_NUMBER TYPE STRING,
/PF1/ORDER_DATE TYPE STRING,
/PF1/ERROR_TEXT TYPE STRING,
BKKRS TYPE STRING,
ACNUM_INT TYPE STRING,
OBJECT_IDCMS TYPE STRING,
FLG_ORIGINALCMS TYPE STRING,
SENDCONTROLCMS TYPE STRING,
INT_ACCNT_IDPF1 TYPE STRING,
AM_AREAPF1 TYPE STRING,
PRODUCT_IDPF1 TYPE STRING,
BP_AREAPF1 TYPE STRING,
PRODUCTTYPEFVD TYPE STRING,
BP_ROLEFVD TYPE STRING,
BP_ROLETYPEFVD TYPE STRING,
SOBJECTFVD TYPE STRING,
CORR_ACTIVITYFVD TYPE STRING,
REFERENCEDATEFVD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FKK_COLLHIST_CNTXT_CORR_S_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_FKK_COLLHIST_CNTXT_CORR_S_STR-GRPINDEX sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-MANDT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COTYP sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COKEY sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-UNAME sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-CDATE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-CTIME sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-GPART sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-GPART_GUID sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-GPART_ADR_KIND sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ORG_GPART sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ORG_GPART_GUID sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADD_GPART sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADD_GPART_GUID sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADD_GPART_CAT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-VKONT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-VTREF sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADR_VALID_ON sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADRNR sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADR_GUID sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ADRNR_INDEP_COMM sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-AGPART sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-AGPART_GUID sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-AGPART_ADR_KIND sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-AADRNR sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-AADR_GUID sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-FORMKEY sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-FORMKEY_RDI sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ENTID1 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-DATA1 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ENTID2 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-DATA2 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ENTID3 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-DATA3 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ENTID4 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-DATA4 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-CSORT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-XCODT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-XCODT_CLUST sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-LAUFD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-LAUFI sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-XTEST sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COPRI sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COIDT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COITM sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SPRAS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SALWA sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SALBE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SENDCONTROL sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-PERSNUMBER sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-APERSNUMBER sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-BUKRS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-CORR_ROLE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COPRI_LAUFD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-COPRI_LAUFI sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-PROCESS_ID_ sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-NO_DOCPARTS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-DOCPART_ROLE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-XTRIAL sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-XREPRINT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SUBAP sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-XDELETE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-PRINT_MODE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-X_NO_ARC sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-X_DOCPART_LIST sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-LOCK_STATUS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-/PF1/CLEARING_AREA sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-/PF1/TYPE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-/PF1/REFERENCE_NO sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-/PF1/FAX_NUMBER sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-/PF1/ORDER_DATE sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-/PF1/ERROR_TEXT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-BKKRS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-ACNUM_INT sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-OBJECT_IDCMS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-FLG_ORIGINALCMS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SENDCONTROLCMS sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-INT_ACCNT_IDPF1 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-AM_AREAPF1 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-PRODUCT_IDPF1 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-BP_AREAPF1 sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-PRODUCTTYPEFVD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-BP_ROLEFVD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-BP_ROLETYPEFVD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-SOBJECTFVD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-CORR_ACTIVITYFVD sy-vline 
WA_FKK_COLLHIST_CNTXT_CORR_S_STR-REFERENCEDATEFVD sy-vline      INTO ld_text SEPARATED BY SPACE.

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