ABAP Select data from SAP table IDIN_ALV_TREE into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP IDIN_ALV_TREE 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 IDIN_ALV_TREE. 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 IDIN_ALV_TREE 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_IDIN_ALV_TREE TYPE STANDARD TABLE OF IDIN_ALV_TREE,
      WA_IDIN_ALV_TREE TYPE IDIN_ALV_TREE,
      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: <IDIN_ALV_TREE> TYPE IDIN_ALV_TREE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IDIN_ALV_TREE
*  INTO TABLE @DATA(IT_IDIN_ALV_TREE2).
*--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_IDIN_ALV_TREE INDEX 1 INTO DATA(WA_IDIN_ALV_TREE2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_IDIN_ALV_TREE ASSIGNING <IDIN_ALV_TREE>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<IDIN_ALV_TREE>-BUKRS = 1.
<IDIN_ALV_TREE>-GJAHR = 1.
<IDIN_ALV_TREE>-BLKKEY = 1.
<IDIN_ALV_TREE>-BLKDESC = 1.
<IDIN_ALV_TREE>-GLO_IN_ADDNL_BLK = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IDIN_ALV_TREE-ADDNLBLKDESC, sy-vline,
WA_IDIN_ALV_TREE-GLO_IN_AST_USE, sy-vline,
WA_IDIN_ALV_TREE-PERIOD, sy-vline,
WA_IDIN_ALV_TREE-ANLN1, sy-vline,
WA_IDIN_ALV_TREE-ANLN2, sy-vline,
WA_IDIN_ALV_TREE-TXT50, sy-vline.
ENDLOOP. *Add any further fields from structure WA_IDIN_ALV_TREE 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_IDIN_ALV_TREE 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_IDIN_ALV_TREE INTO WA_IDIN_ALV_TREE. *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 GJAHR, internal->external for field GJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-GJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-GJAHR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit AC172, internal->external for field WDV_OPEN CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-WDV_OPEN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-WDV_OPEN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ADJ_WDV CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ADJ_WDV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ADJ_WDV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ADJ_TRN_GT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ADJ_TRN_GT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ADJ_TRN_GT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ADJ_TRN_LT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ADJ_TRN_LT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ADJ_TRN_LT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field WDV_CLOSE CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-WDV_CLOSE IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-WDV_CLOSE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field DEP_AMT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-DEP_AMT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-DEP_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field DEP_AMT_PROJ CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-DEP_AMT_PROJ IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-DEP_AMT_PROJ.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ACQLT180 CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ACQLT180 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ACQLT180.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ACQGT180 CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ACQGT180 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ACQGT180.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ACQLT180_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ACQLT180_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ACQLT180_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ACQGT180_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ACQGT180_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ACQGT180_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field RTRMNT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-RTRMNT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-RTRMNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field RTRMNT_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-RTRMNT_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-RTRMNT_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFRIN_LT180 CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFRIN_LT180 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFRIN_LT180.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFRIN_GT180 CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFRIN_GT180 IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFRIN_GT180.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFRIN_LT180_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFRIN_LT180_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFRIN_LT180_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFRIN_GT180_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFRIN_GT180_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFRIN_GT180_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFROUT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFROUT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFROUT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFROUT_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFROUT_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFROUT_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field CGAIN CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-CGAIN IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-CGAIN.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field CLOSS CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-CLOSS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-CLOSS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field POST_CAP CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-POST_CAP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-POST_CAP.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field POST_CAP_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-POST_CAP_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-POST_CAP_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field CMEMO CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-CMEMO IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-CMEMO.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field CMEMO_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-CMEMO_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-CMEMO_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field INVST_SUPRT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-INVST_SUPRT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-INVST_SUPRT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field INVST_SUPRT_OLD CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-INVST_SUPRT_OLD IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-INVST_SUPRT_OLD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFRIN_BLK CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFRIN_BLK IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFRIN_BLK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field TRNSFROUT_BLK CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-TRNSFROUT_BLK IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-TRNSFROUT_BLK.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ACQLT180_ADDAMT CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ACQLT180_ADDAMT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ACQLT180_ADDAMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC172, internal->external for field ADBLK_ADDAMT_DEDC CALL FUNCTION 'CONVERSION_EXIT_AC172_OUTPUT' EXPORTING input = WA_IDIN_ALV_TREE-ADBLK_ADDAMT_DEDC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_IDIN_ALV_TREE-ADBLK_ADDAMT_DEDC.
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_IDIN_ALV_TREE_STR,
BUKRS TYPE STRING,
GJAHR TYPE STRING,
BLKKEY TYPE STRING,
BLKDESC TYPE STRING,
GLO_IN_ADDNL_BLK TYPE STRING,
ADDNLBLKDESC TYPE STRING,
GLO_IN_AST_USE TYPE STRING,
PERIOD TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
TXT50 TYPE STRING,
ASSTDTLS TYPE STRING,
ADJDTLS TYPE STRING,
WAERS TYPE STRING,
WDV_OPEN TYPE STRING,
ADJ_WDV TYPE STRING,
ADJ_TRN_GT TYPE STRING,
ADJ_TRN_LT TYPE STRING,
WDV_CLOSE TYPE STRING,
DEP_AMT TYPE STRING,
DEP_AMT_PROJ TYPE STRING,
RATE TYPE STRING,
ACQLT180 TYPE STRING,
ACQGT180 TYPE STRING,
ACQLT180_OLD TYPE STRING,
ACQGT180_OLD TYPE STRING,
RTRMNT TYPE STRING,
RTRMNT_OLD TYPE STRING,
TRNSFRIN_LT180 TYPE STRING,
TRNSFRIN_GT180 TYPE STRING,
TRNSFRIN_LT180_OLD TYPE STRING,
TRNSFRIN_GT180_OLD TYPE STRING,
TRNSFROUT TYPE STRING,
TRNSFROUT_OLD TYPE STRING,
CGAIN TYPE STRING,
CLOSS TYPE STRING,
POST_CAP TYPE STRING,
POST_CAP_OLD TYPE STRING,
CMEMO TYPE STRING,
CMEMO_OLD TYPE STRING,
INVST_SUPRT TYPE STRING,
INVST_SUPRT_OLD TYPE STRING,
TRNSFRIN_BLK TYPE STRING,
TRNSFROUT_BLK TYPE STRING,
ACQLT180_ADDAMT TYPE STRING,
ADBLK_ADDAMT_DEDC TYPE STRING,END OF T_EKKO_STR. DATA: WA_IDIN_ALV_TREE_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_IDIN_ALV_TREE_STR-BUKRS sy-vline
WA_IDIN_ALV_TREE_STR-GJAHR sy-vline
WA_IDIN_ALV_TREE_STR-BLKKEY sy-vline
WA_IDIN_ALV_TREE_STR-BLKDESC sy-vline
WA_IDIN_ALV_TREE_STR-GLO_IN_ADDNL_BLK sy-vline
WA_IDIN_ALV_TREE_STR-ADDNLBLKDESC sy-vline
WA_IDIN_ALV_TREE_STR-GLO_IN_AST_USE sy-vline
WA_IDIN_ALV_TREE_STR-PERIOD sy-vline
WA_IDIN_ALV_TREE_STR-ANLN1 sy-vline
WA_IDIN_ALV_TREE_STR-ANLN2 sy-vline
WA_IDIN_ALV_TREE_STR-TXT50 sy-vline
WA_IDIN_ALV_TREE_STR-ASSTDTLS sy-vline
WA_IDIN_ALV_TREE_STR-ADJDTLS sy-vline
WA_IDIN_ALV_TREE_STR-WAERS sy-vline
WA_IDIN_ALV_TREE_STR-WDV_OPEN sy-vline
WA_IDIN_ALV_TREE_STR-ADJ_WDV sy-vline
WA_IDIN_ALV_TREE_STR-ADJ_TRN_GT sy-vline
WA_IDIN_ALV_TREE_STR-ADJ_TRN_LT sy-vline
WA_IDIN_ALV_TREE_STR-WDV_CLOSE sy-vline
WA_IDIN_ALV_TREE_STR-DEP_AMT sy-vline
WA_IDIN_ALV_TREE_STR-DEP_AMT_PROJ sy-vline
WA_IDIN_ALV_TREE_STR-RATE sy-vline
WA_IDIN_ALV_TREE_STR-ACQLT180 sy-vline
WA_IDIN_ALV_TREE_STR-ACQGT180 sy-vline
WA_IDIN_ALV_TREE_STR-ACQLT180_OLD sy-vline
WA_IDIN_ALV_TREE_STR-ACQGT180_OLD sy-vline
WA_IDIN_ALV_TREE_STR-RTRMNT sy-vline
WA_IDIN_ALV_TREE_STR-RTRMNT_OLD sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFRIN_LT180 sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFRIN_GT180 sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFRIN_LT180_OLD sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFRIN_GT180_OLD sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFROUT sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFROUT_OLD sy-vline
WA_IDIN_ALV_TREE_STR-CGAIN sy-vline
WA_IDIN_ALV_TREE_STR-CLOSS sy-vline
WA_IDIN_ALV_TREE_STR-POST_CAP sy-vline
WA_IDIN_ALV_TREE_STR-POST_CAP_OLD sy-vline
WA_IDIN_ALV_TREE_STR-CMEMO sy-vline
WA_IDIN_ALV_TREE_STR-CMEMO_OLD sy-vline
WA_IDIN_ALV_TREE_STR-INVST_SUPRT sy-vline
WA_IDIN_ALV_TREE_STR-INVST_SUPRT_OLD sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFRIN_BLK sy-vline
WA_IDIN_ALV_TREE_STR-TRNSFROUT_BLK sy-vline
WA_IDIN_ALV_TREE_STR-ACQLT180_ADDAMT sy-vline
WA_IDIN_ALV_TREE_STR-ADBLK_ADDAMT_DEDC sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.