ABAP Select data from SAP table TLCS_SCREEN_FIELDS 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 TLCS_SCREEN_FIELDS 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 TLCS_SCREEN_FIELDS. 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 TLCS_SCREEN_FIELDS 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_TLCS_SCREEN_FIELDS TYPE STANDARD TABLE OF TLCS_SCREEN_FIELDS,
      WA_TLCS_SCREEN_FIELDS TYPE TLCS_SCREEN_FIELDS,
      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: <TLCS_SCREEN_FIELDS> TYPE TLCS_SCREEN_FIELDS.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TLCS_SCREEN_FIELDS
*  INTO TABLE @DATA(IT_TLCS_SCREEN_FIELDS2).
*--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_TLCS_SCREEN_FIELDS INDEX 1 INTO DATA(WA_TLCS_SCREEN_FIELDS2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TLCS_SCREEN_FIELDS>-XLAVO = 1.
<TLCS_SCREEN_FIELDS>-DLAVO = 1.
<TLCS_SCREEN_FIELDS>-SINCLBE = 1.
<TLCS_SCREEN_FIELDS>-XLABI = 1.
<TLCS_SCREEN_FIELDS>-DLABI = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TLCS_SCREEN_FIELDS-SINCLE, sy-vline,
  WA_TLCS_SCREEN_FIELDS-XKALID1, sy-vline,
  WA_TLCS_SCREEN_FIELDS-SKALID1, sy-vline,
  WA_TLCS_SCREEN_FIELDS-XKALID2, sy-vline,
  WA_TLCS_SCREEN_FIELDS-SKALID2, sy-vline,
  WA_TLCS_SCREEN_FIELDS-SFHAZBA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TLCS_SCREEN_FIELDS 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_TLCS_SCREEN_FIELDS 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_TLCS_SCREEN_FIELDS INTO WA_TLCS_SCREEN_FIELDS.


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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field CONFIRMING_BANK
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_TLCS_SCREEN_FIELDS-CONFIRMING_BANK
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_TLCS_SCREEN_FIELDS-CONFIRMING_BANK.
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_TLCS_SCREEN_FIELDS_STR, 
XLAVO TYPE STRING,
DLAVO TYPE STRING,
SINCLBE TYPE STRING,
XLABI TYPE STRING,
DLABI TYPE STRING,
SINCLE TYPE STRING,
XKALID1 TYPE STRING,
SKALID1 TYPE STRING,
XKALID2 TYPE STRING,
SKALID2 TYPE STRING,
SFHAZBA TYPE STRING,
CREDIT_AMT TYPE STRING,
T_CREDIT_AMT TYPE STRING,
TOLERANCE_POS TYPE STRING,
TOLERANCE_NEG TYPE STRING,
MAX_CREDIT_AMT TYPE STRING,
T_MAX_CREDIT_AMT TYPE STRING,
APPLICANT TYPE STRING,
CRE_AMT_CUR TYPE STRING,
BENFICIARY TYPE STRING,
ISSUING_BANK TYPE STRING,
ADVISING_BANK TYPE STRING,
LC_NUMBER TYPE STRING,
SHIP_METHOD TYPE STRING,
PARTIAL_SHIP TYPE STRING,
XBEWART TYPE STRING,
APPLICANT_TXT TYPE STRING,
ISSUE_BANK_TXT TYPE STRING,
ADVISE_BANK_TXT TYPE STRING,
TOL_INDICATOR TYPE STRING,
MAX_INDICATOR TYPE STRING,
TRANSHIP_ALLOW TYPE STRING,
CHARGE_PLACE TYPE STRING,
LOAD_PLACE TYPE STRING,
FINAL_DEST TYPE STRING,
DEST_PLACE TYPE STRING,
GOODS_DESC TYPE STRING,
ADD_CONDITIONS TYPE STRING,
CHARGE_PAID_BY TYPE STRING,
PAYMENT_AT TYPE STRING,
PRES_PLACE TYPE STRING,
PAY_SIGHT TYPE STRING,
PAY_DEFER TYPE STRING,
APP_PAY TYPE STRING,
BEN_PAY TYPE STRING,
DEFERRED_DAYS TYPE STRING,
BENEFICIARY_TXT TYPE STRING,
PRESENT_DATE TYPE STRING,
SHIPMENT_DATE TYPE STRING,
DZTERM TYPE STRING,
PARTIAL_SHIP_NALLOW TYPE STRING,
FIN_TRANS_NO TYPE STRING,
TRANSHIP_NALLOW TYPE STRING,
DOC_TEMP_NAME TYPE STRING,
NOTICE_DATE TYPE STRING,
MAX_AMT_CUR TYPE STRING,
SHIP_METHOD_TXT TYPE STRING,
ROLL_OVER TYPE STRING,
VBELN TYPE STRING,
INCO1 TYPE STRING,
INCO2 TYPE STRING,
EBELN TYPE STRING,
BEN_INDICATOR TYPE STRING,
MAN_BEN_INDICATOR TYPE STRING,
ADV_INDICATOR TYPE STRING,
MAN_ADV_INDICATOR TYPE STRING,
APP_INDICATOR TYPE STRING,
MAN_APP_INDICATOR TYPE STRING,
ISS_INDICATOR TYPE STRING,
MAN_ISS_INDICATOR TYPE STRING,
MAN_COMP_NAME TYPE STRING,
MAN_COMP_ADDR TYPE STRING,
MAN_COMP_FAX TYPE STRING,
MAN_COMP_CNT_PER TYPE STRING,
MAN_COMP_CNT_NUM TYPE STRING,
MAN_BANK_NAME TYPE STRING,
MAN_BANK_ADDR TYPE STRING,
MAN_BANK_FAX TYPE STRING,
MAN_BANK_CNT_PER TYPE STRING,
MAN_BANK_CNT_NUM TYPE STRING,
MAN_BANK_SWIFT TYPE STRING,
TIME_ZONE TYPE STRING,
CONFIRM_INSTR TYPE STRING,
CONFIRM_INSTR_TXT TYPE STRING,
MOL_TERM TYPE STRING,
SHIP_PER_FROM TYPE STRING,
XSHIP_PER_FROM TYPE STRING,
SHIP_PER_TO TYPE STRING,
XSHIP_PER_TO TYPE STRING,
FLOW_DIRE TYPE STRING,
PRESENT_DAY TYPE STRING,
PRESENT_PER_CON_ID TYPE STRING,
PRESENT_PER_CON_DES TYPE STRING,
ANY_BANK_INDICATOR TYPE STRING,
NOMI_BANK_INDICATOR TYPE STRING,
NOMI_BANK TYPE STRING,
USANCE TYPE STRING,
PAYMENT_PER_CON_ID TYPE STRING,
PAYMENT_PER_CON_DES TYPE STRING,
PAYMENT_TERM TYPE STRING,
CONFIRMING_BANK TYPE STRING,
BG_NUMBER TYPE STRING,
BG_TYPE TYPE STRING,
BG_FORM TYPE STRING,
GUARANTEED_PERCENT TYPE STRING,
T_GUARANTEED_PERCENT TYPE STRING,
CONTRACT_NUMBER TYPE STRING,
CONTRACT_DATE TYPE STRING,
CONTRACT_AMOUNT TYPE STRING,
CONTRACT_CURR TYPE STRING,
BG_TYPE_DESC TYPE STRING,
UNDERLYING_TRANS_ID TYPE STRING,
XCONTRACT_DATE TYPE STRING,
T_CONTRACT_AMOUNT TYPE STRING,
MAN_BP_FLAG TYPE STRING,
AUTO_EXT_NOTICE_DAYS TYPE STRING,
AUTO_EXT_PERIOD TYPE STRING,
AUTO_EXT_PERIOD_TYPE TYPE STRING,
AUTO_EXT_FIN_EXPIRY_DATE TYPE STRING,
AUTO_EXT_FIN_EXPIRY_DATE_T TYPE STRING,
DRAW_MODE TYPE STRING,
MAN_COMP_COUNTRY TYPE STRING,
MAN_BANK_COUNTRY TYPE STRING,
MAN_COMP_CNTRY_DESC TYPE STRING,
MAN_BANK_CNTRY_DESC TYPE STRING,
INCOV TYPE STRING,
MAN_BANK_NAME_EXT TYPE STRING,
MAN_COMP_NAME_EXT TYPE STRING,
MAN_BANK_ADDR_EXT TYPE STRING,
MAN_COMP_ADDR_EXT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TLCS_SCREEN_FIELDS_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_TLCS_SCREEN_FIELDS_STR-XLAVO sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DLAVO sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SINCLBE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XLABI sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DLABI sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SINCLE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XKALID1 sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SKALID1 sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XKALID2 sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SKALID2 sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SFHAZBA sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CREDIT_AMT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-T_CREDIT_AMT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-TOLERANCE_POS sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-TOLERANCE_NEG sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAX_CREDIT_AMT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-T_MAX_CREDIT_AMT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-APPLICANT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CRE_AMT_CUR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BENFICIARY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ISSUING_BANK sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ADVISING_BANK sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-LC_NUMBER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SHIP_METHOD sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PARTIAL_SHIP sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XBEWART sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-APPLICANT_TXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ISSUE_BANK_TXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ADVISE_BANK_TXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-TOL_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAX_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-TRANSHIP_ALLOW sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CHARGE_PLACE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-LOAD_PLACE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-FINAL_DEST sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DEST_PLACE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-GOODS_DESC sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ADD_CONDITIONS sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CHARGE_PAID_BY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PAYMENT_AT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PRES_PLACE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PAY_SIGHT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PAY_DEFER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-APP_PAY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BEN_PAY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DEFERRED_DAYS sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BENEFICIARY_TXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PRESENT_DATE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SHIPMENT_DATE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DZTERM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PARTIAL_SHIP_NALLOW sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-FIN_TRANS_NO sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-TRANSHIP_NALLOW sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DOC_TEMP_NAME sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-NOTICE_DATE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAX_AMT_CUR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SHIP_METHOD_TXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ROLL_OVER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-VBELN sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-INCO1 sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-INCO2 sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-EBELN sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BEN_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BEN_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ADV_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_ADV_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-APP_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_APP_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ISS_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_ISS_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_NAME sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_ADDR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_FAX sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_CNT_PER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_CNT_NUM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_NAME sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_ADDR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_FAX sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_CNT_PER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_CNT_NUM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_SWIFT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-TIME_ZONE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONFIRM_INSTR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONFIRM_INSTR_TXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MOL_TERM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SHIP_PER_FROM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XSHIP_PER_FROM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-SHIP_PER_TO sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XSHIP_PER_TO sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-FLOW_DIRE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PRESENT_DAY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PRESENT_PER_CON_ID sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PRESENT_PER_CON_DES sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-ANY_BANK_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-NOMI_BANK_INDICATOR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-NOMI_BANK sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-USANCE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PAYMENT_PER_CON_ID sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PAYMENT_PER_CON_DES sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-PAYMENT_TERM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONFIRMING_BANK sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BG_NUMBER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BG_TYPE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BG_FORM sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-GUARANTEED_PERCENT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-T_GUARANTEED_PERCENT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONTRACT_NUMBER sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONTRACT_DATE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONTRACT_AMOUNT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-CONTRACT_CURR sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-BG_TYPE_DESC sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-UNDERLYING_TRANS_ID sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-XCONTRACT_DATE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-T_CONTRACT_AMOUNT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BP_FLAG sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-AUTO_EXT_NOTICE_DAYS sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-AUTO_EXT_PERIOD sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-AUTO_EXT_PERIOD_TYPE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-AUTO_EXT_FIN_EXPIRY_DATE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-AUTO_EXT_FIN_EXPIRY_DATE_T sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-DRAW_MODE sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_COUNTRY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_COUNTRY sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_CNTRY_DESC sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_CNTRY_DESC sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-INCOV sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_NAME_EXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_NAME_EXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_BANK_ADDR_EXT sy-vline 
WA_TLCS_SCREEN_FIELDS_STR-MAN_COMP_ADDR_EXT sy-vline      INTO ld_text SEPARATED BY SPACE.

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