ABAP Select data from SAP table FKKBIX_DISC_CAL_RESULT 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 FKKBIX_DISC_CAL_RESULT 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 FKKBIX_DISC_CAL_RESULT. 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 FKKBIX_DISC_CAL_RESULT 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_FKKBIX_DISC_CAL_RESULT TYPE STANDARD TABLE OF FKKBIX_DISC_CAL_RESULT,
      WA_FKKBIX_DISC_CAL_RESULT TYPE FKKBIX_DISC_CAL_RESULT,
      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: <FKKBIX_DISC_CAL_RESULT> TYPE FKKBIX_DISC_CAL_RESULT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FKKBIX_DISC_CAL_RESULT
*  INTO TABLE @DATA(IT_FKKBIX_DISC_CAL_RESULT2).
*--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_FKKBIX_DISC_CAL_RESULT INDEX 1 INTO DATA(WA_FKKBIX_DISC_CAL_RESULT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FKKBIX_DISC_CAL_RESULT>-MASTER_DATA = 1.
<FKKBIX_DISC_CAL_RESULT>-GPART = 1.
<FKKBIX_DISC_CAL_RESULT>-VKONT = 1.
<FKKBIX_DISC_CAL_RESULT>-VTREF = 1.
<FKKBIX_DISC_CAL_RESULT>-SUBAP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FKKBIX_DISC_CAL_RESULT-VTPOS, sy-vline,
  WA_FKKBIX_DISC_CAL_RESULT-VTPID, sy-vline,
  WA_FKKBIX_DISC_CAL_RESULT-MASTER_AGRMT, sy-vline,
  WA_FKKBIX_DISC_CAL_RESULT-MAKEY, sy-vline,
  WA_FKKBIX_DISC_CAL_RESULT-AGD, sy-vline,
  WA_FKKBIX_DISC_CAL_RESULT-MANDT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FKKBIX_DISC_CAL_RESULT 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_FKKBIX_DISC_CAL_RESULT 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_FKKBIX_DISC_CAL_RESULT INTO WA_FKKBIX_DISC_CAL_RESULT.


*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_FKKBIX_DISC_CAL_RESULT-GPART
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FKKBIX_DISC_CAL_RESULT-GPART.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field AGGR_UNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_FKKBIX_DISC_CAL_RESULT-AGGR_UNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FKKBIX_DISC_CAL_RESULT-AGGR_UNIT.
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_FKKBIX_DISC_CAL_RESULT_STR, 
MASTER_DATA TYPE STRING,
GPART TYPE STRING,
VKONT TYPE STRING,
VTREF TYPE STRING,
SUBAP TYPE STRING,
VTPOS TYPE STRING,
VTPID TYPE STRING,
MASTER_AGRMT TYPE STRING,
MAKEY TYPE STRING,
AGD TYPE STRING,
MANDT TYPE STRING,
AGUID TYPE STRING,
AGRMT TYPE STRING,
VALTO TYPE STRING,
DISCKEY TYPE STRING,
DISGP TYPE STRING,
DISVK TYPE STRING,
DISCL TYPE STRING,
CALC_LVL_FLD_VALUE TYPE STRING,
DISCOUNT TYPE STRING,
BASIC TYPE STRING,
MANDT TYPE STRING,
DISCKEY TYPE STRING,
CURRENCY TYPE STRING,
DISC_ASSGR TYPE STRING,
CYCLE TYPE STRING,
PROCESSING_LEVEL TYPE STRING,
NO_BASE_AMNT_ADJ TYPE STRING,
UTILIZATION TYPE STRING,
TRACE_OPTION TYPE STRING,
VERSION_DET_REF_DATE TYPE STRING,
CALC_EXECUTION TYPE STRING,
TEXT TYPE STRING,
LANGU TYPE STRING,
BITCAT TYPE STRING,
SUBPROCESS TYPE STRING,
BITTYPE TYPE STRING,
HVORG TYPE STRING,
TVORG TYPE STRING,
ACCASS_ORIG TYPE STRING,
T_EVENT TYPE STRING,
DO_TRACE TYPE STRING,
VERSION TYPE STRING,
DISCKEY TYPE STRING,
DISCKEY_VERSNO TYPE STRING,
VALID_FROM TYPE STRING,
VALID_TO TYPE STRING,
CALCULATION TYPE STRING,
BASE TYPE STRING,
MANDT TYPE STRING,
DISCKEY TYPE STRING,
VALID_TO TYPE STRING,
BASE_KEY TYPE STRING,
BASE_UTIL TYPE STRING,
BASE_TYPE TYPE STRING,
EXIT_FUNCNAME TYPE STRING,
SEL_TYPE TYPE STRING,
SEL_GPART TYPE STRING,
SEL_NAME TYPE STRING,
TEXT TYPE STRING,
LANGU TYPE STRING,
RULE TYPE STRING,
MANDT TYPE STRING,
DISCKEY TYPE STRING,
VALID_TO TYPE STRING,
CALC_RULE_KEY TYPE STRING,
RULE_TYPE TYPE STRING,
SCALE_REF_FIELD TYPE STRING,
SCALE_REF_UNIT TYPE STRING,
EXIT_FUNCNAME TYPE STRING,
TEXT TYPE STRING,
LANGU TYPE STRING,
ATTRIBUTES TYPE STRING,
CONDITION TYPE STRING,
BASE TYPE STRING,
MANDT TYPE STRING,
DISCKEY TYPE STRING,
VALID_TO TYPE STRING,
BASE_KEY TYPE STRING,
BASE_UTIL TYPE STRING,
BASE_TYPE TYPE STRING,
EXIT_FUNCNAME TYPE STRING,
SEL_TYPE TYPE STRING,
SEL_GPART TYPE STRING,
SEL_NAME TYPE STRING,
TEXT TYPE STRING,
LANGU TYPE STRING,
RULE TYPE STRING,
MANDT TYPE STRING,
DISCKEY TYPE STRING,
VALID_TO TYPE STRING,
COND_RULE_KEY TYPE STRING,
RULE_TYPE TYPE STRING,
EXIT_FUNCNAME TYPE STRING,
FUNCTION_ID TYPE STRING,
FDT_TRACE_OPTION TYPE STRING,
TEXT TYPE STRING,
LANGU TYPE STRING,
FDT_DO_TRACE TYPE STRING,
ATTRIBUTES TYPE STRING,
DISC_SIGN TYPE STRING,
DISC_TOT_AMOUNT TYPE STRING,
DISC_TOT_PERCENTAGE TYPE STRING,
CALC_DETAILS TYPE STRING,
CALC_BASE_TOT_AMOUNT TYPE STRING,
BASE_AMOUNT_AGGR TYPE STRING,
AGGR_FIELDNAME TYPE STRING,
AGGR_UNIT TYPE STRING,
AGGR_CURR TYPE STRING,
AGGR_RESULT TYPE STRING,
AGGR_CONVERSION_DETAILS TYPE STRING,
T_CALC_UNIT TYPE STRING,
SCALE_REF_FIELD_AGGR TYPE STRING,
AGGR_FIELDNAME TYPE STRING,
AGGR_UNIT TYPE STRING,
AGGR_CURR TYPE STRING,
AGGR_RESULT TYPE STRING,
AGGR_CONVERSION_DETAILS TYPE STRING,
T_CALC_DISTRIBUTION TYPE STRING,
COND_DETAILS TYPE STRING,
COND_EXISTS TYPE STRING,
COND_PASSED TYPE STRING,
T_COND_UNIT TYPE STRING,
FDT_TRACE TYPE STRING,
DEPY_DETAILS TYPE STRING,
BASEADJ_TOT_AMOUNT TYPE STRING,
T_DEPY_UNIT TYPE STRING,
CURR_CONFORM_CALC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FKKBIX_DISC_CAL_RESULT_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_FKKBIX_DISC_CAL_RESULT_STR-MASTER_DATA sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-GPART sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VKONT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VTREF sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SUBAP sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VTPOS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VTPID sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MASTER_AGRMT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MAKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGD sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MANDT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGUID sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGRMT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALTO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISGP sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISVK sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCL sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CALC_LVL_FLD_VALUE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCOUNT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASIC sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MANDT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CURRENCY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISC_ASSGR sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CYCLE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-PROCESSING_LEVEL sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-NO_BASE_AMNT_ADJ sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-UTILIZATION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TRACE_OPTION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VERSION_DET_REF_DATE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CALC_EXECUTION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TEXT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-LANGU sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BITCAT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SUBPROCESS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BITTYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-HVORG sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TVORG sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-ACCASS_ORIG sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-T_EVENT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DO_TRACE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VERSION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY_VERSNO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALID_FROM sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALID_TO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CALCULATION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MANDT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALID_TO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_KEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_UTIL sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_TYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-EXIT_FUNCNAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SEL_TYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SEL_GPART sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SEL_NAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TEXT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-LANGU sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-RULE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MANDT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALID_TO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CALC_RULE_KEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-RULE_TYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SCALE_REF_FIELD sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SCALE_REF_UNIT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-EXIT_FUNCNAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TEXT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-LANGU sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-ATTRIBUTES sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CONDITION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MANDT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALID_TO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_KEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_UTIL sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_TYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-EXIT_FUNCNAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SEL_TYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SEL_GPART sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SEL_NAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TEXT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-LANGU sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-RULE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-MANDT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISCKEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-VALID_TO sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-COND_RULE_KEY sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-RULE_TYPE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-EXIT_FUNCNAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-FUNCTION_ID sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-FDT_TRACE_OPTION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-TEXT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-LANGU sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-FDT_DO_TRACE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-ATTRIBUTES sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISC_SIGN sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISC_TOT_AMOUNT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DISC_TOT_PERCENTAGE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CALC_DETAILS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CALC_BASE_TOT_AMOUNT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASE_AMOUNT_AGGR sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_FIELDNAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_UNIT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_CURR sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_RESULT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_CONVERSION_DETAILS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-T_CALC_UNIT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-SCALE_REF_FIELD_AGGR sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_FIELDNAME sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_UNIT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_CURR sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_RESULT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-AGGR_CONVERSION_DETAILS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-T_CALC_DISTRIBUTION sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-COND_DETAILS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-COND_EXISTS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-COND_PASSED sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-T_COND_UNIT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-FDT_TRACE sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-DEPY_DETAILS sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-BASEADJ_TOT_AMOUNT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-T_DEPY_UNIT sy-vline 
WA_FKKBIX_DISC_CAL_RESULT_STR-CURR_CONFORM_CALC sy-vline      INTO ld_text SEPARATED BY SPACE.

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