ABAP Select data from SAP table FIAAPT_S_ASSET_RTRV 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 FIAAPT_S_ASSET_RTRV 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 FIAAPT_S_ASSET_RTRV. 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 FIAAPT_S_ASSET_RTRV 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_FIAAPT_S_ASSET_RTRV TYPE STANDARD TABLE OF FIAAPT_S_ASSET_RTRV,
      WA_FIAAPT_S_ASSET_RTRV TYPE FIAAPT_S_ASSET_RTRV,
      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: <FIAAPT_S_ASSET_RTRV> TYPE FIAAPT_S_ASSET_RTRV.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FIAAPT_S_ASSET_RTRV
*  INTO TABLE @DATA(IT_FIAAPT_S_ASSET_RTRV2).
*--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_FIAAPT_S_ASSET_RTRV INDEX 1 INTO DATA(WA_FIAAPT_S_ASSET_RTRV2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FIAAPT_S_ASSET_RTRV>-SORT_ORDER = 1.
<FIAAPT_S_ASSET_RTRV>-LINE_TYPE = 1.
<FIAAPT_S_ASSET_RTRV>-MAPA_COUNT = 1.
<FIAAPT_S_ASSET_RTRV>-GROUP_ASSET = 1.
<FIAAPT_S_ASSET_RTRV>-VEH_NO_LIMIT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FIAAPT_S_ASSET_RTRV-VEH_TYPE, sy-vline,
  WA_FIAAPT_S_ASSET_RTRV-VEH_USE_ELEC, sy-vline,
  WA_FIAAPT_S_ASSET_RTRV-VEH_LIMIT, sy-vline,
  WA_FIAAPT_S_ASSET_RTRV-ABGDT, sy-vline,
  WA_FIAAPT_S_ASSET_RTRV-DEAKT, sy-vline,
  WA_FIAAPT_S_ASSET_RTRV-BZDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FIAAPT_S_ASSET_RTRV 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_FIAAPT_S_ASSET_RTRV 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_FIAAPT_S_ASSET_RTRV INTO WA_FIAAPT_S_ASSET_RTRV.


*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 AC132, internal->external for field VEH_LIMIT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-VEH_LIMIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-VEH_LIMIT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field BOOK_REVAL5
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-BOOK_REVAL5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-BOOK_REVAL5.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field BOOK_AAFA
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-BOOK_AAFA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-BOOK_AAFA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field TAX_REVAL5
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-TAX_REVAL5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-TAX_REVAL5.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RVA
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RVA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RVA.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT00
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT00
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT00.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT01
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT01
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT01.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT02
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT02
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT02.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT03
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT03
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT03.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT04
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT04
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT04.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT05
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT05
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT05.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT06
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT06
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT06.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT07
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT07
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT07.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT08
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT08
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT08.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT09
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT09
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT09.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT10
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT10
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT10.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT11
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT11.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT12
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT12
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT12.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT13
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT13
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT13.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field RE_VAL_EDICT14
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT14
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-RE_VAL_EDICT14.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field FR_EDICT_99_REV
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-FR_EDICT_99_REV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-FR_EDICT_99_REV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field FR_NAFAP
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-FR_NAFAP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-FR_NAFAP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field FR_NAFAL
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-FR_NAFAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-FR_NAFAL.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field FR_EDICT_199_REV
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-FR_EDICT_199_REV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-FR_EDICT_199_REV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AD152, internal->external for field FR_EDICT_299_REV
CALL FUNCTION 'CONVERSION_EXIT_AD152_OUTPUT'
  EXPORTING
    input =                      WA_FIAAPT_S_ASSET_RTRV-FR_EDICT_299_REV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FIAAPT_S_ASSET_RTRV-FR_EDICT_299_REV.
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_FIAAPT_S_ASSET_RTRV_STR, 
SORT_ORDER TYPE STRING,
LINE_TYPE TYPE STRING,
MAPA_COUNT TYPE STRING,
GROUP_ASSET TYPE STRING,
VEH_NO_LIMIT TYPE STRING,
VEH_TYPE TYPE STRING,
VEH_USE_ELEC TYPE STRING,
VEH_LIMIT TYPE STRING,
ABGDT TYPE STRING,
DEAKT TYPE STRING,
BZDAT TYPE STRING,
ABAT_CHK TYPE STRING,
EXP_USE_LIFE TYPE STRING,
AFABG TYPE STRING,
AFASL TYPE STRING,
NDJAR TYPE STRING,
NDPER TYPE STRING,
VAL_APC_EDICT00 TYPE STRING,
BOOK_REVAL5 TYPE STRING,
CUR_YR_DEP_EDICT00 TYPE STRING,
BOOK_AAFA TYPE STRING,
ACC_DEP_EDICT00 TYPE STRING,
RESIDUAL_DELTA_COL16 TYPE STRING,
TAX_NDJAR TYPE STRING,
TAX_NDPER TYPE STRING,
NDABJ TYPE STRING,
NDABP TYPE STRING,
TAX_AFABG TYPE STRING,
TAX_RATE_CHAR TYPE STRING,
TAX_VAL_APC TYPE STRING,
TAX_REVAL5 TYPE STRING,
TAX_DEP TYPE STRING,
TAX_AC_DEP TYPE STRING,
UNPL_DEP TYPE STRING,
FR_EDICT TYPE STRING,
RVA TYPE STRING,
RE_VAL_EDICT00 TYPE STRING,
RE_VAL_EDICT01 TYPE STRING,
RE_VAL_EDICT02 TYPE STRING,
RE_VAL_EDICT03 TYPE STRING,
RE_VAL_EDICT04 TYPE STRING,
RE_VAL_EDICT05 TYPE STRING,
RE_VAL_EDICT06 TYPE STRING,
RE_VAL_EDICT07 TYPE STRING,
RE_VAL_EDICT08 TYPE STRING,
RE_VAL_EDICT09 TYPE STRING,
RE_VAL_EDICT10 TYPE STRING,
RE_VAL_EDICT11 TYPE STRING,
RE_VAL_EDICT12 TYPE STRING,
RE_VAL_EDICT13 TYPE STRING,
RE_VAL_EDICT14 TYPE STRING,
FR_EDICT_99_REV TYPE STRING,
FR_EDICT_99_DEP TYPE STRING,
FR_NAFAP TYPE STRING,
FR_NAFAL TYPE STRING,
FR_EDICT_199_REV TYPE STRING,
FR_EDICT_199_DEP TYPE STRING,
FR_EDICT_299_REV TYPE STRING,
FR_EDICT_299_DEP TYPE STRING,
FR_EDICT_299_ACC_DEP TYPE STRING,
TAX_AFASL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FIAAPT_S_ASSET_RTRV_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_FIAAPT_S_ASSET_RTRV_STR-SORT_ORDER sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-LINE_TYPE sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-MAPA_COUNT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-GROUP_ASSET sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-VEH_NO_LIMIT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-VEH_TYPE sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-VEH_USE_ELEC sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-VEH_LIMIT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-ABGDT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-DEAKT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-BZDAT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-ABAT_CHK sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-EXP_USE_LIFE sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-AFABG sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-AFASL sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-NDJAR sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-NDPER sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-VAL_APC_EDICT00 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-BOOK_REVAL5 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-CUR_YR_DEP_EDICT00 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-BOOK_AAFA sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-ACC_DEP_EDICT00 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RESIDUAL_DELTA_COL16 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_NDJAR sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_NDPER sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-NDABJ sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-NDABP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_AFABG sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_RATE_CHAR sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_VAL_APC sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_REVAL5 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_AC_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-UNPL_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RVA sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT00 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT01 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT02 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT03 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT04 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT05 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT06 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT07 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT08 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT09 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT10 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT11 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT12 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT13 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-RE_VAL_EDICT14 sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_99_REV sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_99_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_NAFAP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_NAFAL sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_199_REV sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_199_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_299_REV sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_299_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-FR_EDICT_299_ACC_DEP sy-vline 
WA_FIAAPT_S_ASSET_RTRV_STR-TAX_AFASL sy-vline      INTO ld_text SEPARATED BY SPACE.

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