ABAP Select data from SAP table BUR_DI_EXT 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 BUR_DI_EXT 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 BUR_DI_EXT. 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 BUR_DI_EXT 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_BUR_DI_EXT TYPE STANDARD TABLE OF BUR_DI_EXT,
      WA_BUR_DI_EXT TYPE BUR_DI_EXT,
      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: <BUR_DI_EXT> TYPE BUR_DI_EXT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BUR_DI_EXT
*  INTO TABLE @DATA(IT_BUR_DI_EXT2).
*--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_BUR_DI_EXT INDEX 1 INTO DATA(WA_BUR_DI_EXT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BUR_DI_EXT>-ORG_INDEX = 1.
<BUR_DI_EXT>-AKTYP = 1.
<BUR_DI_EXT>-RLTP1 = 1.
<BUR_DI_EXT>-RLTP2 = 1.
<BUR_DI_EXT>-RLTP3 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BUR_DI_EXT-RLTP4, sy-vline,
  WA_BUR_DI_EXT-RLTP5, sy-vline,
  WA_BUR_DI_EXT-RLTP6, sy-vline,
  WA_BUR_DI_EXT-RLTP7, sy-vline,
  WA_BUR_DI_EXT-RLTP8, sy-vline,
  WA_BUR_DI_EXT-RLTP9, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BUR_DI_EXT 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_BUR_DI_EXT 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_BUR_DI_EXT INTO WA_BUR_DI_EXT.


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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDRESS
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_BUR_DI_EXT-SMTP_ADDRESS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUR_DI_EXT-SMTP_ADDRESS.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_BUR_DI_EXT-SMTP_ADDR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUR_DI_EXT-SMTP_ADDR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit SPDEV, internal->external for field PRT_DEST
CALL FUNCTION 'CONVERSION_EXIT_SPDEV_OUTPUT'
  EXPORTING
    input =                      WA_BUR_DI_EXT-PRT_DEST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUR_DI_EXT-PRT_DEST.
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_BUR_DI_EXT_STR, 
ORG_INDEX TYPE STRING,
AKTYP TYPE STRING,
RLTP1 TYPE STRING,
RLTP2 TYPE STRING,
RLTP3 TYPE STRING,
RLTP4 TYPE STRING,
RLTP5 TYPE STRING,
RLTP6 TYPE STRING,
RLTP7 TYPE STRING,
RLTP8 TYPE STRING,
RLTP9 TYPE STRING,
PARTNER1 TYPE STRING,
PARTNER2 TYPE STRING,
DATE_TO TYPE STRING,
DATE_FROM TYPE STRING,
RELTYP TYPE STRING,
XRF TYPE STRING,
DFTVAL TYPE STRING,
RLTYP TYPE STRING,
BPEXT1 TYPE STRING,
BPEXT2 TYPE STRING,
DATE_FROM_NEW TYPE STRING,
DATE_TO_NEW TYPE STRING,
RELKIND TYPE STRING,
XDFREL TYPE STRING,
FNCTN TYPE STRING,
PAFKT TYPE STRING,
DPRTMNT TYPE STRING,
ABTNR TYPE STRING,
PAAUTH TYPE STRING,
PAVIP TYPE STRING,
PAREM TYPE STRING,
TEL_NUMBER TYPE STRING,
TEL_EXTENS TYPE STRING,
FAX_NUMBER TYPE STRING,
FAX_EXTENS TYPE STRING,
SMTP_ADDRESS TYPE STRING,
REL_PER TYPE STRING,
REL_AMO TYPE STRING,
REL_CUR TYPE STRING,
ADDRNUMBER TYPE STRING,
ADEXT_ADDR TYPE STRING,
CHIND_ADDR TYPE STRING,
XDFADR TYPE STRING,
DEPARTMENT TYPE STRING,
FUNCTION TYPE STRING,
BUILDING_C TYPE STRING,
FLOOR_C TYPE STRING,
ROOMNUM_C TYPE STRING,
ID_CODE TYPE STRING,
IH_MAIL TYPE STRING,
DEFLT_COMM TYPE STRING,
CHIND_TEL TYPE STRING,
TEL_CONSNR TYPE STRING,
TEL_CNTRY TYPE STRING,
TEL_NUM_ADDR TYPE STRING,
TEL_EXT_ADDR TYPE STRING,
TEL_DEFLT TYPE STRING,
TEL_REMARK TYPE STRING,
TEL_HOME TYPE STRING,
CHIND_FAX TYPE STRING,
FAX_CONSNR TYPE STRING,
FAX_CNTRY TYPE STRING,
FAX_NUM_ADDR TYPE STRING,
FAX_EXT_ADDR TYPE STRING,
FAX_DEFLT TYPE STRING,
FAX_REMARK TYPE STRING,
FAX_HOME TYPE STRING,
CHIND_TTX TYPE STRING,
TTX_CONSNR TYPE STRING,
TTX_CNTRY TYPE STRING,
TTX_NUM_ADDR TYPE STRING,
TTX_DEFLT TYPE STRING,
TTX_REMARK TYPE STRING,
TTX_HOME TYPE STRING,
CHIND_TLX TYPE STRING,
TLX_CONSNR TYPE STRING,
TLX_CNTRY TYPE STRING,
TLX_NUM_ADDR TYPE STRING,
TLX_DEFLT TYPE STRING,
TLX_REMARK TYPE STRING,
TLX_HOME TYPE STRING,
CHIND_SMTP TYPE STRING,
SMTP_CONSNR TYPE STRING,
SMTP_ADDR TYPE STRING,
SMTP_DEFLT TYPE STRING,
SMTP_REMARK TYPE STRING,
SMTP_HOME TYPE STRING,
CHIND_RML TYPE STRING,
RML_CONSNR TYPE STRING,
RML_SYMB_DEST TYPE STRING,
RML_RECVR_TYPE TYPE STRING,
RML_UMAND TYPE STRING,
RML_UNAME TYPE STRING,
RML_DEFLT TYPE STRING,
RML_REMARK TYPE STRING,
RML_HOME TYPE STRING,
CHIND_X400 TYPE STRING,
X400_CONSNR TYPE STRING,
X400_CNTRY TYPE STRING,
X400_ADMIN TYPE STRING,
X400_PRIVD TYPE STRING,
X400_ORG TYPE STRING,
X400_ORG1 TYPE STRING,
X400_ORG2 TYPE STRING,
X400_ORG3 TYPE STRING,
X400_ORG4 TYPE STRING,
X400_LNAME TYPE STRING,
X400_FNAME TYPE STRING,
X400_INI TYPE STRING,
X400_GENER TYPE STRING,
X400_X121 TYPE STRING,
X400_TERMID TYPE STRING,
X400_TERMTP TYPE STRING,
X400_UANUMID TYPE STRING,
X400_TYPE1 TYPE STRING,
X400_VALUE1 TYPE STRING,
X400_TYPE2 TYPE STRING,
X400_VALUE2 TYPE STRING,
X400_TYPE3 TYPE STRING,
X400_VALUE3 TYPE STRING,
X400_TYPE4 TYPE STRING,
X400_VALUE4 TYPE STRING,
X400_R3_USER TYPE STRING,
X400_DEFLT TYPE STRING,
X400_REMARK TYPE STRING,
X400_HOME TYPE STRING,
CHIND_RFC TYPE STRING,
RFC_CONSNR TYPE STRING,
RFC_DEST TYPE STRING,
RFC_DEFLT TYPE STRING,
RFC_REMARK TYPE STRING,
RFC_HOME TYPE STRING,
CHIND_PRT TYPE STRING,
PRT_CONSNR TYPE STRING,
PRT_DEST TYPE STRING,
PRT_DEFLT TYPE STRING,
PRT_REMARK TYPE STRING,
PRT_HOME TYPE STRING,
CHIND_SSF TYPE STRING,
SSF_CONSNR TYPE STRING,
SSF_SCREEN TYPE STRING,
SSF_DEFLT TYPE STRING,
SSF_REMARK TYPE STRING,
SSF_HOME TYPE STRING,
CHIND_URI TYPE STRING,
URI_CONSNR TYPE STRING,
URI_TYPE TYPE STRING,
URI_SCREEN TYPE STRING,
URI_DEFLT TYPE STRING,
URI_REMARK TYPE STRING,
URI_HOME TYPE STRING,
CHIND_PAG TYPE STRING,
PAG_CONSNR TYPE STRING,
PAG_CNTRY TYPE STRING,
PAG_SERV TYPE STRING,
PAG_NMBR TYPE STRING,
PAG_DEFLT TYPE STRING,
PAG_REMARK TYPE STRING,
PAG_HOME TYPE STRING,
R_3_USER TYPE STRING,
STD_RECIP TYPE STRING,
FLG_NOUSE TYPE STRING,
CMPY_PART_PER TYPE STRING,
CMPY_PART_AMO TYPE STRING,
CMPY_PART_CUR TYPE STRING,
CMPY_CONTROL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BUR_DI_EXT_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_BUR_DI_EXT_STR-ORG_INDEX sy-vline 
WA_BUR_DI_EXT_STR-AKTYP sy-vline 
WA_BUR_DI_EXT_STR-RLTP1 sy-vline 
WA_BUR_DI_EXT_STR-RLTP2 sy-vline 
WA_BUR_DI_EXT_STR-RLTP3 sy-vline 
WA_BUR_DI_EXT_STR-RLTP4 sy-vline 
WA_BUR_DI_EXT_STR-RLTP5 sy-vline 
WA_BUR_DI_EXT_STR-RLTP6 sy-vline 
WA_BUR_DI_EXT_STR-RLTP7 sy-vline 
WA_BUR_DI_EXT_STR-RLTP8 sy-vline 
WA_BUR_DI_EXT_STR-RLTP9 sy-vline 
WA_BUR_DI_EXT_STR-PARTNER1 sy-vline 
WA_BUR_DI_EXT_STR-PARTNER2 sy-vline 
WA_BUR_DI_EXT_STR-DATE_TO sy-vline 
WA_BUR_DI_EXT_STR-DATE_FROM sy-vline 
WA_BUR_DI_EXT_STR-RELTYP sy-vline 
WA_BUR_DI_EXT_STR-XRF sy-vline 
WA_BUR_DI_EXT_STR-DFTVAL sy-vline 
WA_BUR_DI_EXT_STR-RLTYP sy-vline 
WA_BUR_DI_EXT_STR-BPEXT1 sy-vline 
WA_BUR_DI_EXT_STR-BPEXT2 sy-vline 
WA_BUR_DI_EXT_STR-DATE_FROM_NEW sy-vline 
WA_BUR_DI_EXT_STR-DATE_TO_NEW sy-vline 
WA_BUR_DI_EXT_STR-RELKIND sy-vline 
WA_BUR_DI_EXT_STR-XDFREL sy-vline 
WA_BUR_DI_EXT_STR-FNCTN sy-vline 
WA_BUR_DI_EXT_STR-PAFKT sy-vline 
WA_BUR_DI_EXT_STR-DPRTMNT sy-vline 
WA_BUR_DI_EXT_STR-ABTNR sy-vline 
WA_BUR_DI_EXT_STR-PAAUTH sy-vline 
WA_BUR_DI_EXT_STR-PAVIP sy-vline 
WA_BUR_DI_EXT_STR-PAREM sy-vline 
WA_BUR_DI_EXT_STR-TEL_NUMBER sy-vline 
WA_BUR_DI_EXT_STR-TEL_EXTENS sy-vline 
WA_BUR_DI_EXT_STR-FAX_NUMBER sy-vline 
WA_BUR_DI_EXT_STR-FAX_EXTENS sy-vline 
WA_BUR_DI_EXT_STR-SMTP_ADDRESS sy-vline 
WA_BUR_DI_EXT_STR-REL_PER sy-vline 
WA_BUR_DI_EXT_STR-REL_AMO sy-vline 
WA_BUR_DI_EXT_STR-REL_CUR sy-vline 
WA_BUR_DI_EXT_STR-ADDRNUMBER sy-vline 
WA_BUR_DI_EXT_STR-ADEXT_ADDR sy-vline 
WA_BUR_DI_EXT_STR-CHIND_ADDR sy-vline 
WA_BUR_DI_EXT_STR-XDFADR sy-vline 
WA_BUR_DI_EXT_STR-DEPARTMENT sy-vline 
WA_BUR_DI_EXT_STR-FUNCTION sy-vline 
WA_BUR_DI_EXT_STR-BUILDING_C sy-vline 
WA_BUR_DI_EXT_STR-FLOOR_C sy-vline 
WA_BUR_DI_EXT_STR-ROOMNUM_C sy-vline 
WA_BUR_DI_EXT_STR-ID_CODE sy-vline 
WA_BUR_DI_EXT_STR-IH_MAIL sy-vline 
WA_BUR_DI_EXT_STR-DEFLT_COMM sy-vline 
WA_BUR_DI_EXT_STR-CHIND_TEL sy-vline 
WA_BUR_DI_EXT_STR-TEL_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-TEL_CNTRY sy-vline 
WA_BUR_DI_EXT_STR-TEL_NUM_ADDR sy-vline 
WA_BUR_DI_EXT_STR-TEL_EXT_ADDR sy-vline 
WA_BUR_DI_EXT_STR-TEL_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-TEL_REMARK sy-vline 
WA_BUR_DI_EXT_STR-TEL_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_FAX sy-vline 
WA_BUR_DI_EXT_STR-FAX_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-FAX_CNTRY sy-vline 
WA_BUR_DI_EXT_STR-FAX_NUM_ADDR sy-vline 
WA_BUR_DI_EXT_STR-FAX_EXT_ADDR sy-vline 
WA_BUR_DI_EXT_STR-FAX_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-FAX_REMARK sy-vline 
WA_BUR_DI_EXT_STR-FAX_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_TTX sy-vline 
WA_BUR_DI_EXT_STR-TTX_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-TTX_CNTRY sy-vline 
WA_BUR_DI_EXT_STR-TTX_NUM_ADDR sy-vline 
WA_BUR_DI_EXT_STR-TTX_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-TTX_REMARK sy-vline 
WA_BUR_DI_EXT_STR-TTX_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_TLX sy-vline 
WA_BUR_DI_EXT_STR-TLX_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-TLX_CNTRY sy-vline 
WA_BUR_DI_EXT_STR-TLX_NUM_ADDR sy-vline 
WA_BUR_DI_EXT_STR-TLX_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-TLX_REMARK sy-vline 
WA_BUR_DI_EXT_STR-TLX_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_SMTP sy-vline 
WA_BUR_DI_EXT_STR-SMTP_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-SMTP_ADDR sy-vline 
WA_BUR_DI_EXT_STR-SMTP_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-SMTP_REMARK sy-vline 
WA_BUR_DI_EXT_STR-SMTP_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_RML sy-vline 
WA_BUR_DI_EXT_STR-RML_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-RML_SYMB_DEST sy-vline 
WA_BUR_DI_EXT_STR-RML_RECVR_TYPE sy-vline 
WA_BUR_DI_EXT_STR-RML_UMAND sy-vline 
WA_BUR_DI_EXT_STR-RML_UNAME sy-vline 
WA_BUR_DI_EXT_STR-RML_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-RML_REMARK sy-vline 
WA_BUR_DI_EXT_STR-RML_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_X400 sy-vline 
WA_BUR_DI_EXT_STR-X400_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-X400_CNTRY sy-vline 
WA_BUR_DI_EXT_STR-X400_ADMIN sy-vline 
WA_BUR_DI_EXT_STR-X400_PRIVD sy-vline 
WA_BUR_DI_EXT_STR-X400_ORG sy-vline 
WA_BUR_DI_EXT_STR-X400_ORG1 sy-vline 
WA_BUR_DI_EXT_STR-X400_ORG2 sy-vline 
WA_BUR_DI_EXT_STR-X400_ORG3 sy-vline 
WA_BUR_DI_EXT_STR-X400_ORG4 sy-vline 
WA_BUR_DI_EXT_STR-X400_LNAME sy-vline 
WA_BUR_DI_EXT_STR-X400_FNAME sy-vline 
WA_BUR_DI_EXT_STR-X400_INI sy-vline 
WA_BUR_DI_EXT_STR-X400_GENER sy-vline 
WA_BUR_DI_EXT_STR-X400_X121 sy-vline 
WA_BUR_DI_EXT_STR-X400_TERMID sy-vline 
WA_BUR_DI_EXT_STR-X400_TERMTP sy-vline 
WA_BUR_DI_EXT_STR-X400_UANUMID sy-vline 
WA_BUR_DI_EXT_STR-X400_TYPE1 sy-vline 
WA_BUR_DI_EXT_STR-X400_VALUE1 sy-vline 
WA_BUR_DI_EXT_STR-X400_TYPE2 sy-vline 
WA_BUR_DI_EXT_STR-X400_VALUE2 sy-vline 
WA_BUR_DI_EXT_STR-X400_TYPE3 sy-vline 
WA_BUR_DI_EXT_STR-X400_VALUE3 sy-vline 
WA_BUR_DI_EXT_STR-X400_TYPE4 sy-vline 
WA_BUR_DI_EXT_STR-X400_VALUE4 sy-vline 
WA_BUR_DI_EXT_STR-X400_R3_USER sy-vline 
WA_BUR_DI_EXT_STR-X400_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-X400_REMARK sy-vline 
WA_BUR_DI_EXT_STR-X400_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_RFC sy-vline 
WA_BUR_DI_EXT_STR-RFC_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-RFC_DEST sy-vline 
WA_BUR_DI_EXT_STR-RFC_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-RFC_REMARK sy-vline 
WA_BUR_DI_EXT_STR-RFC_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_PRT sy-vline 
WA_BUR_DI_EXT_STR-PRT_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-PRT_DEST sy-vline 
WA_BUR_DI_EXT_STR-PRT_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-PRT_REMARK sy-vline 
WA_BUR_DI_EXT_STR-PRT_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_SSF sy-vline 
WA_BUR_DI_EXT_STR-SSF_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-SSF_SCREEN sy-vline 
WA_BUR_DI_EXT_STR-SSF_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-SSF_REMARK sy-vline 
WA_BUR_DI_EXT_STR-SSF_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_URI sy-vline 
WA_BUR_DI_EXT_STR-URI_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-URI_TYPE sy-vline 
WA_BUR_DI_EXT_STR-URI_SCREEN sy-vline 
WA_BUR_DI_EXT_STR-URI_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-URI_REMARK sy-vline 
WA_BUR_DI_EXT_STR-URI_HOME sy-vline 
WA_BUR_DI_EXT_STR-CHIND_PAG sy-vline 
WA_BUR_DI_EXT_STR-PAG_CONSNR sy-vline 
WA_BUR_DI_EXT_STR-PAG_CNTRY sy-vline 
WA_BUR_DI_EXT_STR-PAG_SERV sy-vline 
WA_BUR_DI_EXT_STR-PAG_NMBR sy-vline 
WA_BUR_DI_EXT_STR-PAG_DEFLT sy-vline 
WA_BUR_DI_EXT_STR-PAG_REMARK sy-vline 
WA_BUR_DI_EXT_STR-PAG_HOME sy-vline 
WA_BUR_DI_EXT_STR-R_3_USER sy-vline 
WA_BUR_DI_EXT_STR-STD_RECIP sy-vline 
WA_BUR_DI_EXT_STR-FLG_NOUSE sy-vline 
WA_BUR_DI_EXT_STR-CMPY_PART_PER sy-vline 
WA_BUR_DI_EXT_STR-CMPY_PART_AMO sy-vline 
WA_BUR_DI_EXT_STR-CMPY_PART_CUR sy-vline 
WA_BUR_DI_EXT_STR-CMPY_CONTROL sy-vline      INTO ld_text SEPARATED BY SPACE.

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