ABAP Select data from SAP table TBCO_BANK 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 TBCO_BANK 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 TBCO_BANK. 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 TBCO_BANK 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_TBCO_BANK TYPE STANDARD TABLE OF TBCO_BANK,
      WA_TBCO_BANK TYPE TBCO_BANK,
      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: <TBCO_BANK> TYPE TBCO_BANK.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TBCO_BANK
*  INTO TABLE @DATA(IT_TBCO_BANK2).
*--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_TBCO_BANK INDEX 1 INTO DATA(WA_TBCO_BANK2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TBCO_BANK>-MANDT = 1.
<TBCO_BANK>-BUKRS = 1.
<TBCO_BANK>-RFHA = 1.
<TBCO_BANK>-SSIGN = 1.
<TBCO_BANK>-WAERS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TBCO_BANK-DZVERB, sy-vline,
  WA_TBCO_BANK-SBEWART, sy-vline,
  WA_TBCO_BANK-CRUSER, sy-vline,
  WA_TBCO_BANK-DCRDAT, sy-vline,
  WA_TBCO_BANK-TCRTIM, sy-vline,
  WA_TBCO_BANK-UPUSER, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TBCO_BANK 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_TBCO_BANK 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_TBCO_BANK INTO WA_TBCO_BANK.


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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field CHKMEREC
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_TBCO_BANK-CHKMEREC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TBCO_BANK-CHKMEREC.
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_TBCO_BANK_STR, 
MANDT TYPE STRING,
BUKRS TYPE STRING,
RFHA TYPE STRING,
SSIGN TYPE STRING,
WAERS TYPE STRING,
DZVERB TYPE STRING,
SBEWART TYPE STRING,
CRUSER TYPE STRING,
DCRDAT TYPE STRING,
TCRTIM TYPE STRING,
UPUSER TYPE STRING,
DUPDAT TYPE STRING,
TUPTIM TYPE STRING,
HBKID TYPE STRING,
HKTID TYPE STRING,
RPZAHL TYPE STRING,
RPBANK TYPE STRING,
SZART TYPE STRING,
ZLSCH TYPE STRING,
UZAWE TYPE STRING,
SPAYRQ TYPE STRING,
SPRSNG TYPE STRING,
SPRGRD TYPE STRING,
SCSPAY TYPE STRING,
ZWELS TYPE STRING,
RPCODE TYPE STRING,
RP_TEXT TYPE STRING,
LZBKZ TYPE STRING,
LANDL TYPE STRING,
NOVATION_OID TYPE STRING,
MNDID TYPE STRING,
CHAINTXSND TYPE STRING,
CHAINNOSND TYPE STRING,
BANKSSND TYPE STRING,
BANKLSND TYPE STRING,
ERDATSND TYPE STRING,
ERNAMSND TYPE STRING,
BANKASND TYPE STRING,
PROVZSND TYPE STRING,
STRASSND TYPE STRING,
ORT01SND TYPE STRING,
SWIFTSND TYPE STRING,
BGRUPSND TYPE STRING,
XPGROSND TYPE STRING,
LOEVMSND TYPE STRING,
BNKLZSND TYPE STRING,
PSKTOSND TYPE STRING,
ADRNRSND TYPE STRING,
BRNCHSND TYPE STRING,
CHKMESND TYPE STRING,
BANKNSND TYPE STRING,
BNTYPSND TYPE STRING,
BKONTSND TYPE STRING,
BKREFSND TYPE STRING,
IBANSND TYPE STRING,
IBAN_SENDER TYPE STRING,
CHAINTXIM1 TYPE STRING,
CHAINNOIM1 TYPE STRING,
BANKSIM1 TYPE STRING,
BANKLIM1 TYPE STRING,
ERDATIM1 TYPE STRING,
ERNAMIM1 TYPE STRING,
BANKAIM1 TYPE STRING,
PROVZIM1 TYPE STRING,
STRASIM1 TYPE STRING,
ORT01IM1 TYPE STRING,
SWIFTIM1 TYPE STRING,
BGRUPIM1 TYPE STRING,
XPGROIM1 TYPE STRING,
LOEVMIM1 TYPE STRING,
BNKLZIM1 TYPE STRING,
PSKTOIM1 TYPE STRING,
ADRNRIM1 TYPE STRING,
BRNCHIM1 TYPE STRING,
CHKMEIM1 TYPE STRING,
BANKNIM1 TYPE STRING,
BNTYPIM1 TYPE STRING,
BKONTIM1 TYPE STRING,
BKREFIM1 TYPE STRING,
IBANIM1 TYPE STRING,
CHAINTXIM2 TYPE STRING,
CHAINNOIM2 TYPE STRING,
BANKSIM2 TYPE STRING,
BANKLIM2 TYPE STRING,
ERDATIM2 TYPE STRING,
ERNAMIM2 TYPE STRING,
BANKAIM2 TYPE STRING,
PROVZIM2 TYPE STRING,
STRASIM2 TYPE STRING,
ORT01IM2 TYPE STRING,
SWIFTIM2 TYPE STRING,
BGRUPIM2 TYPE STRING,
XPGROIM2 TYPE STRING,
LOEVMIM2 TYPE STRING,
BNKLZIM2 TYPE STRING,
PSKTOIM2 TYPE STRING,
ADRNRIM2 TYPE STRING,
BRNCHIM2 TYPE STRING,
CHKMEIM2 TYPE STRING,
BANKNIM2 TYPE STRING,
BNTYPIM2 TYPE STRING,
BKONTIM2 TYPE STRING,
BKREFIM2 TYPE STRING,
IBANIM2 TYPE STRING,
CHAINTXIM3 TYPE STRING,
CHAINNOIM3 TYPE STRING,
BANKSIM3 TYPE STRING,
BANKLIM3 TYPE STRING,
ERDATIM3 TYPE STRING,
ERNAMIM3 TYPE STRING,
BANKAIM3 TYPE STRING,
PROVZIM3 TYPE STRING,
STRASIM3 TYPE STRING,
ORT01IM3 TYPE STRING,
SWIFTIM3 TYPE STRING,
BGRUPIM3 TYPE STRING,
XPGROIM3 TYPE STRING,
LOEVMIM3 TYPE STRING,
BNKLZIM3 TYPE STRING,
PSKTOIM3 TYPE STRING,
ADRNRIM3 TYPE STRING,
BRNCHIM3 TYPE STRING,
CHKMEIM3 TYPE STRING,
BANKNIM3 TYPE STRING,
BNTYPIM3 TYPE STRING,
BKONTIM3 TYPE STRING,
BKREFIM3 TYPE STRING,
IBANIM3 TYPE STRING,
CHAINTXREC TYPE STRING,
CHAINNOREC TYPE STRING,
BANKSREC TYPE STRING,
BANKLREC TYPE STRING,
ERDATREC TYPE STRING,
ERNAMREC TYPE STRING,
BANKAREC TYPE STRING,
PROVZREC TYPE STRING,
STRASREC TYPE STRING,
ORT01REC TYPE STRING,
SWIFTREC TYPE STRING,
BGRUPREC TYPE STRING,
XPGROREC TYPE STRING,
LOEVMREC TYPE STRING,
BNKLZREC TYPE STRING,
PSKTOREC TYPE STRING,
ADRNRREC TYPE STRING,
BRNCHREC TYPE STRING,
CHKMEREC TYPE STRING,
BANKNREC TYPE STRING,
BNTYPREC TYPE STRING,
BKONTREC TYPE STRING,
BKREFREC TYPE STRING,
IBANREC TYPE STRING,
IBAN_RECEIVER TYPE STRING,
XBEWART TYPE STRING,
S_PASSIVE_PAY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TBCO_BANK_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_TBCO_BANK_STR-MANDT sy-vline 
WA_TBCO_BANK_STR-BUKRS sy-vline 
WA_TBCO_BANK_STR-RFHA sy-vline 
WA_TBCO_BANK_STR-SSIGN sy-vline 
WA_TBCO_BANK_STR-WAERS sy-vline 
WA_TBCO_BANK_STR-DZVERB sy-vline 
WA_TBCO_BANK_STR-SBEWART sy-vline 
WA_TBCO_BANK_STR-CRUSER sy-vline 
WA_TBCO_BANK_STR-DCRDAT sy-vline 
WA_TBCO_BANK_STR-TCRTIM sy-vline 
WA_TBCO_BANK_STR-UPUSER sy-vline 
WA_TBCO_BANK_STR-DUPDAT sy-vline 
WA_TBCO_BANK_STR-TUPTIM sy-vline 
WA_TBCO_BANK_STR-HBKID sy-vline 
WA_TBCO_BANK_STR-HKTID sy-vline 
WA_TBCO_BANK_STR-RPZAHL sy-vline 
WA_TBCO_BANK_STR-RPBANK sy-vline 
WA_TBCO_BANK_STR-SZART sy-vline 
WA_TBCO_BANK_STR-ZLSCH sy-vline 
WA_TBCO_BANK_STR-UZAWE sy-vline 
WA_TBCO_BANK_STR-SPAYRQ sy-vline 
WA_TBCO_BANK_STR-SPRSNG sy-vline 
WA_TBCO_BANK_STR-SPRGRD sy-vline 
WA_TBCO_BANK_STR-SCSPAY sy-vline 
WA_TBCO_BANK_STR-ZWELS sy-vline 
WA_TBCO_BANK_STR-RPCODE sy-vline 
WA_TBCO_BANK_STR-RP_TEXT sy-vline 
WA_TBCO_BANK_STR-LZBKZ sy-vline 
WA_TBCO_BANK_STR-LANDL sy-vline 
WA_TBCO_BANK_STR-NOVATION_OID sy-vline 
WA_TBCO_BANK_STR-MNDID sy-vline 
WA_TBCO_BANK_STR-CHAINTXSND sy-vline 
WA_TBCO_BANK_STR-CHAINNOSND sy-vline 
WA_TBCO_BANK_STR-BANKSSND sy-vline 
WA_TBCO_BANK_STR-BANKLSND sy-vline 
WA_TBCO_BANK_STR-ERDATSND sy-vline 
WA_TBCO_BANK_STR-ERNAMSND sy-vline 
WA_TBCO_BANK_STR-BANKASND sy-vline 
WA_TBCO_BANK_STR-PROVZSND sy-vline 
WA_TBCO_BANK_STR-STRASSND sy-vline 
WA_TBCO_BANK_STR-ORT01SND sy-vline 
WA_TBCO_BANK_STR-SWIFTSND sy-vline 
WA_TBCO_BANK_STR-BGRUPSND sy-vline 
WA_TBCO_BANK_STR-XPGROSND sy-vline 
WA_TBCO_BANK_STR-LOEVMSND sy-vline 
WA_TBCO_BANK_STR-BNKLZSND sy-vline 
WA_TBCO_BANK_STR-PSKTOSND sy-vline 
WA_TBCO_BANK_STR-ADRNRSND sy-vline 
WA_TBCO_BANK_STR-BRNCHSND sy-vline 
WA_TBCO_BANK_STR-CHKMESND sy-vline 
WA_TBCO_BANK_STR-BANKNSND sy-vline 
WA_TBCO_BANK_STR-BNTYPSND sy-vline 
WA_TBCO_BANK_STR-BKONTSND sy-vline 
WA_TBCO_BANK_STR-BKREFSND sy-vline 
WA_TBCO_BANK_STR-IBANSND sy-vline 
WA_TBCO_BANK_STR-IBAN_SENDER sy-vline 
WA_TBCO_BANK_STR-CHAINTXIM1 sy-vline 
WA_TBCO_BANK_STR-CHAINNOIM1 sy-vline 
WA_TBCO_BANK_STR-BANKSIM1 sy-vline 
WA_TBCO_BANK_STR-BANKLIM1 sy-vline 
WA_TBCO_BANK_STR-ERDATIM1 sy-vline 
WA_TBCO_BANK_STR-ERNAMIM1 sy-vline 
WA_TBCO_BANK_STR-BANKAIM1 sy-vline 
WA_TBCO_BANK_STR-PROVZIM1 sy-vline 
WA_TBCO_BANK_STR-STRASIM1 sy-vline 
WA_TBCO_BANK_STR-ORT01IM1 sy-vline 
WA_TBCO_BANK_STR-SWIFTIM1 sy-vline 
WA_TBCO_BANK_STR-BGRUPIM1 sy-vline 
WA_TBCO_BANK_STR-XPGROIM1 sy-vline 
WA_TBCO_BANK_STR-LOEVMIM1 sy-vline 
WA_TBCO_BANK_STR-BNKLZIM1 sy-vline 
WA_TBCO_BANK_STR-PSKTOIM1 sy-vline 
WA_TBCO_BANK_STR-ADRNRIM1 sy-vline 
WA_TBCO_BANK_STR-BRNCHIM1 sy-vline 
WA_TBCO_BANK_STR-CHKMEIM1 sy-vline 
WA_TBCO_BANK_STR-BANKNIM1 sy-vline 
WA_TBCO_BANK_STR-BNTYPIM1 sy-vline 
WA_TBCO_BANK_STR-BKONTIM1 sy-vline 
WA_TBCO_BANK_STR-BKREFIM1 sy-vline 
WA_TBCO_BANK_STR-IBANIM1 sy-vline 
WA_TBCO_BANK_STR-CHAINTXIM2 sy-vline 
WA_TBCO_BANK_STR-CHAINNOIM2 sy-vline 
WA_TBCO_BANK_STR-BANKSIM2 sy-vline 
WA_TBCO_BANK_STR-BANKLIM2 sy-vline 
WA_TBCO_BANK_STR-ERDATIM2 sy-vline 
WA_TBCO_BANK_STR-ERNAMIM2 sy-vline 
WA_TBCO_BANK_STR-BANKAIM2 sy-vline 
WA_TBCO_BANK_STR-PROVZIM2 sy-vline 
WA_TBCO_BANK_STR-STRASIM2 sy-vline 
WA_TBCO_BANK_STR-ORT01IM2 sy-vline 
WA_TBCO_BANK_STR-SWIFTIM2 sy-vline 
WA_TBCO_BANK_STR-BGRUPIM2 sy-vline 
WA_TBCO_BANK_STR-XPGROIM2 sy-vline 
WA_TBCO_BANK_STR-LOEVMIM2 sy-vline 
WA_TBCO_BANK_STR-BNKLZIM2 sy-vline 
WA_TBCO_BANK_STR-PSKTOIM2 sy-vline 
WA_TBCO_BANK_STR-ADRNRIM2 sy-vline 
WA_TBCO_BANK_STR-BRNCHIM2 sy-vline 
WA_TBCO_BANK_STR-CHKMEIM2 sy-vline 
WA_TBCO_BANK_STR-BANKNIM2 sy-vline 
WA_TBCO_BANK_STR-BNTYPIM2 sy-vline 
WA_TBCO_BANK_STR-BKONTIM2 sy-vline 
WA_TBCO_BANK_STR-BKREFIM2 sy-vline 
WA_TBCO_BANK_STR-IBANIM2 sy-vline 
WA_TBCO_BANK_STR-CHAINTXIM3 sy-vline 
WA_TBCO_BANK_STR-CHAINNOIM3 sy-vline 
WA_TBCO_BANK_STR-BANKSIM3 sy-vline 
WA_TBCO_BANK_STR-BANKLIM3 sy-vline 
WA_TBCO_BANK_STR-ERDATIM3 sy-vline 
WA_TBCO_BANK_STR-ERNAMIM3 sy-vline 
WA_TBCO_BANK_STR-BANKAIM3 sy-vline 
WA_TBCO_BANK_STR-PROVZIM3 sy-vline 
WA_TBCO_BANK_STR-STRASIM3 sy-vline 
WA_TBCO_BANK_STR-ORT01IM3 sy-vline 
WA_TBCO_BANK_STR-SWIFTIM3 sy-vline 
WA_TBCO_BANK_STR-BGRUPIM3 sy-vline 
WA_TBCO_BANK_STR-XPGROIM3 sy-vline 
WA_TBCO_BANK_STR-LOEVMIM3 sy-vline 
WA_TBCO_BANK_STR-BNKLZIM3 sy-vline 
WA_TBCO_BANK_STR-PSKTOIM3 sy-vline 
WA_TBCO_BANK_STR-ADRNRIM3 sy-vline 
WA_TBCO_BANK_STR-BRNCHIM3 sy-vline 
WA_TBCO_BANK_STR-CHKMEIM3 sy-vline 
WA_TBCO_BANK_STR-BANKNIM3 sy-vline 
WA_TBCO_BANK_STR-BNTYPIM3 sy-vline 
WA_TBCO_BANK_STR-BKONTIM3 sy-vline 
WA_TBCO_BANK_STR-BKREFIM3 sy-vline 
WA_TBCO_BANK_STR-IBANIM3 sy-vline 
WA_TBCO_BANK_STR-CHAINTXREC sy-vline 
WA_TBCO_BANK_STR-CHAINNOREC sy-vline 
WA_TBCO_BANK_STR-BANKSREC sy-vline 
WA_TBCO_BANK_STR-BANKLREC sy-vline 
WA_TBCO_BANK_STR-ERDATREC sy-vline 
WA_TBCO_BANK_STR-ERNAMREC sy-vline 
WA_TBCO_BANK_STR-BANKAREC sy-vline 
WA_TBCO_BANK_STR-PROVZREC sy-vline 
WA_TBCO_BANK_STR-STRASREC sy-vline 
WA_TBCO_BANK_STR-ORT01REC sy-vline 
WA_TBCO_BANK_STR-SWIFTREC sy-vline 
WA_TBCO_BANK_STR-BGRUPREC sy-vline 
WA_TBCO_BANK_STR-XPGROREC sy-vline 
WA_TBCO_BANK_STR-LOEVMREC sy-vline 
WA_TBCO_BANK_STR-BNKLZREC sy-vline 
WA_TBCO_BANK_STR-PSKTOREC sy-vline 
WA_TBCO_BANK_STR-ADRNRREC sy-vline 
WA_TBCO_BANK_STR-BRNCHREC sy-vline 
WA_TBCO_BANK_STR-CHKMEREC sy-vline 
WA_TBCO_BANK_STR-BANKNREC sy-vline 
WA_TBCO_BANK_STR-BNTYPREC sy-vline 
WA_TBCO_BANK_STR-BKONTREC sy-vline 
WA_TBCO_BANK_STR-BKREFREC sy-vline 
WA_TBCO_BANK_STR-IBANREC sy-vline 
WA_TBCO_BANK_STR-IBAN_RECEIVER sy-vline 
WA_TBCO_BANK_STR-XBEWART sy-vline 
WA_TBCO_BANK_STR-S_PASSIVE_PAY sy-vline      INTO ld_text SEPARATED BY SPACE.

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