ABAP Select data from SAP table BUS020_DI 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 BUS020_DI 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 BUS020_DI. 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 BUS020_DI 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_BUS020_DI TYPE STANDARD TABLE OF BUS020_DI,
      WA_BUS020_DI TYPE BUS020_DI,
      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: <BUS020_DI> TYPE BUS020_DI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BUS020_DI
*  INTO TABLE @DATA(IT_BUS020_DI2).
*--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_BUS020_DI INDEX 1 INTO DATA(WA_BUS020_DI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BUS020_DI>-ADINT_ADDR = 1.
<BUS020_DI>-ADEXT_ADDR = 1.
<BUS020_DI>-CHIND_ADDR = 1.
<BUS020_DI>-XDFADR = 1.
<BUS020_DI>-GUID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BUS020_DI-ADDR_DATE_FROM, sy-vline,
  WA_BUS020_DI-ADDR_DATE_TO, sy-vline,
  WA_BUS020_DI-ADDR_MOVE_DATE, sy-vline,
  WA_BUS020_DI-MOVE_ADDR, sy-vline,
  WA_BUS020_DI-NAME_CO, sy-vline,
  WA_BUS020_DI-CITY1, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BUS020_DI 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_BUS020_DI 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_BUS020_DI INTO WA_BUS020_DI.


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

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

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field LANGU
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_BUS020_DI-LANGU
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUS020_DI-LANGU.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field LANGU_CREA
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_BUS020_DI-LANGU_CREA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUS020_DI-LANGU_CREA.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit SXIDN, internal->external for field SMTP_ADDR
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_BUS020_DI-SMTP_ADDR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUS020_DI-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_BUS020_DI-PRT_DEST
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BUS020_DI-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_BUS020_DI_STR, 
ADINT_ADDR TYPE STRING,
ADEXT_ADDR TYPE STRING,
CHIND_ADDR TYPE STRING,
XDFADR TYPE STRING,
GUID TYPE STRING,
ADDR_DATE_FROM TYPE STRING,
ADDR_DATE_TO TYPE STRING,
ADDR_MOVE_DATE TYPE STRING,
MOVE_ADDR TYPE STRING,
NAME_CO TYPE STRING,
CITY1 TYPE STRING,
CITY2 TYPE STRING,
CITY_CODE TYPE STRING,
CITYP_CODE TYPE STRING,
HOME_CITY TYPE STRING,
CITYH_CODE TYPE STRING,
CHCKSTATUS TYPE STRING,
REGIOGROUP TYPE STRING,
POST_CODE1 TYPE STRING,
POST_CODE2 TYPE STRING,
POST_CODE3 TYPE STRING,
PCODE1_EXT TYPE STRING,
PCODE2_EXT TYPE STRING,
PCODE3_EXT TYPE STRING,
PO_BOX TYPE STRING,
DONT_USE_P TYPE STRING,
PO_BOX_NUM TYPE STRING,
PO_BOX_LOC TYPE STRING,
CITY_CODE2 TYPE STRING,
PO_BOX_REG TYPE STRING,
PO_BOX_CTY TYPE STRING,
POSTALAREA TYPE STRING,
TRANSPZONE TYPE STRING,
STREET TYPE STRING,
DONT_USE_S TYPE STRING,
STREETCODE TYPE STRING,
STREETABBR TYPE STRING,
HOUSE_NUM1 TYPE STRING,
HOUSE_NUM2 TYPE STRING,
HOUSE_NUM3 TYPE STRING,
STR_SUPPL1 TYPE STRING,
STR_SUPPL2 TYPE STRING,
STR_SUPPL3 TYPE STRING,
LOCATION TYPE STRING,
BUILDING TYPE STRING,
FLOOR TYPE STRING,
ROOMNUMBER TYPE STRING,
COUNTRY TYPE STRING,
LANGU TYPE STRING,
REGION TYPE STRING,
SORT1 TYPE STRING,
SORT2 TYPE STRING,
SORT_PHN TYPE STRING,
ADDRORIGIN TYPE STRING,
EXTENSION1 TYPE STRING,
EXTENSION2 TYPE STRING,
TIME_ZONE TYPE STRING,
TAXJURCODE TYPE STRING,
ADDRESS_ID TYPE STRING,
REMARK TYPE STRING,
LANGU_CREA TYPE STRING,
PO_BOX_LOBBY TYPE STRING,
DELI_SERV_TYPE TYPE STRING,
DELI_SERV_NUMBER TYPE STRING,
COUNTY_CODE TYPE STRING,
COUNTY TYPE STRING,
TOWNSHIP_CODE TYPE STRING,
TOWNSHIP TYPE STRING,
DEFLT_COMM TYPE STRING,
CHIND_TEL TYPE STRING,
TEL_CONSNR TYPE STRING,
TEL_CNTRY TYPE STRING,
TEL_NUMBER TYPE STRING,
TEL_EXTENS TYPE STRING,
TEL_DEFLT TYPE STRING,
TEL_REMARK TYPE STRING,
TEL_HOME TYPE STRING,
TEL_MOBILE TYPE STRING,
TEL_RECEIV TYPE STRING,
TEL_VALID_FROM TYPE STRING,
TEL_VALID_TO TYPE STRING,
TEL_DONT_USE TYPE STRING,
CHIND_FAX TYPE STRING,
FAX_CONSNR TYPE STRING,
FAX_CNTRY TYPE STRING,
FAX_NUMBER TYPE STRING,
FAX_EXTENS TYPE STRING,
FAX_DEFLT TYPE STRING,
FAX_REMARK TYPE STRING,
FAX_HOME TYPE STRING,
FAX_VALID_FROM TYPE STRING,
FAX_VALID_TO TYPE STRING,
FAX_DONT_USE TYPE STRING,
CHIND_TTX TYPE STRING,
TTX_CONSNR TYPE STRING,
TTX_CNTRY TYPE STRING,
TTX_NUMBER TYPE STRING,
TTX_DEFLT TYPE STRING,
TTX_REMARK TYPE STRING,
TTX_HOME TYPE STRING,
TTX_VALID_FROM TYPE STRING,
TTX_VALID_TO TYPE STRING,
TTX_DONT_USE TYPE STRING,
CHIND_TLX TYPE STRING,
TLX_CONSNR TYPE STRING,
TLX_CNTRY TYPE STRING,
TLX_NUMBER TYPE STRING,
TLX_DEFLT TYPE STRING,
TLX_REMARK TYPE STRING,
TLX_HOME TYPE STRING,
TLX_VALID_FROM TYPE STRING,
TLX_VALID_TO TYPE STRING,
TLX_DONT_USE 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,
SMTP_VALID_FROM TYPE STRING,
SMTP_VALID_TO TYPE STRING,
SMTP_DONT_USE 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,
RML_VALID_FROM TYPE STRING,
RML_VALID_TO TYPE STRING,
RML_DONT_USE 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,
X400_VALID_FROM TYPE STRING,
X400_VALID_TO TYPE STRING,
X400_DONT_USE 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,
RFC_VALID_FROM TYPE STRING,
RFC_VALID_TO TYPE STRING,
RFC_DONT_USE 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,
PRT_VALID_FROM TYPE STRING,
PRT_VALID_TO TYPE STRING,
PRT_DONT_USE 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,
SSF_VALID_FROM TYPE STRING,
SSF_VALID_TO TYPE STRING,
SSF_DONT_USE 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,
URI_VALID_FROM TYPE STRING,
URI_VALID_TO TYPE STRING,
URI_DONT_USE TYPE STRING,
CHIND_PAG TYPE STRING,
PAG_CONSNR TYPE STRING,
PAG_SERV TYPE STRING,
PAG_NMBR TYPE STRING,
PAG_DEFLT TYPE STRING,
PAG_REMARK TYPE STRING,
PAG_HOME TYPE STRING,
PAG_VALID_FROM TYPE STRING,
PAG_VALID_TO TYPE STRING,
PAG_DONT_USE TYPE STRING,
CHIND_ADDR_VERS TYPE STRING,
VERS_NATION TYPE STRING,
VERS_TITLE TYPE STRING,
VERS_NAME1 TYPE STRING,
VERS_NAME2 TYPE STRING,
VERS_NAME3 TYPE STRING,
VERS_NAME4 TYPE STRING,
VERS_NAME_FIRST TYPE STRING,
VERS_NAME_LAST TYPE STRING,
VERS_NAME2_P TYPE STRING,
VERS_NAMEMIDDLE TYPE STRING,
VERS_NAME_LAST2 TYPE STRING,
VERS_TITLE_ACA1 TYPE STRING,
VERS_TITLE_ACA2 TYPE STRING,
VERS_PREFIX1 TYPE STRING,
VERS_PREFIX2 TYPE STRING,
VERS_TITLE_SPPL TYPE STRING,
VERS_NICKNAME TYPE STRING,
VERS_INITIALS TYPE STRING,
VERS_NAMEFORMAT TYPE STRING,
VERS_NAMCOUNTRY TYPE STRING,
VERS_NAME_CO TYPE STRING,
VERS_CITY1 TYPE STRING,
VERS_CITY2 TYPE STRING,
VERS_HOME_CITY TYPE STRING,
VERS_PO_BOX_LOC TYPE STRING,
VERS_STREET TYPE STRING,
VERS_HOUSE_NUM1 TYPE STRING,
VERS_HOUSE_NUM2 TYPE STRING,
VERS_STR_SUPPL1 TYPE STRING,
VERS_STR_SUPPL2 TYPE STRING,
VERS_STR_SUPPL3 TYPE STRING,
VERS_LOCATION TYPE STRING,
VERS_BUILDING TYPE STRING,
VERS_FLOOR TYPE STRING,
VERS_ROOMNUMBER TYPE STRING,
VERS_SORT1 TYPE STRING,
VERS_SORT2 TYPE STRING,
VERS_REMARK TYPE STRING,
TEL_STD_VALFROM TYPE STRING,
TEL_STD_VALTO TYPE STRING,
TEL_DEF_USAGE TYPE STRING,
FAX_STD_VALFROM TYPE STRING,
FAX_STD_VALTO TYPE STRING,
FAX_DEF_USAGE TYPE STRING,
TTX_STD_VALFROM TYPE STRING,
TTX_STD_VALTO TYPE STRING,
TTX_DEF_USAGE TYPE STRING,
TLX_STD_VALFROM TYPE STRING,
TLX_STD_VALTO TYPE STRING,
TLX_DEF_USAGE TYPE STRING,
SMTP_STD_VALFROM TYPE STRING,
SMTP_STD_VALTO TYPE STRING,
SMTP_DEF_USAGE TYPE STRING,
RML_STD_VALFROM TYPE STRING,
RML_STD_VALTO TYPE STRING,
RML_DEF_USAGE TYPE STRING,
X400_STD_VALFROM TYPE STRING,
X400_STD_VALTO TYPE STRING,
X400_DEF_USAGE TYPE STRING,
RFC_STD_VALFROM TYPE STRING,
RFC_STD_VALTO TYPE STRING,
RFC_DEF_USAGE TYPE STRING,
PRT_STD_VALFROM TYPE STRING,
PRT_STD_VALTO TYPE STRING,
PRT_DEF_USAGE TYPE STRING,
SSF_STD_VALFROM TYPE STRING,
SSF_STD_VALTO TYPE STRING,
SSF_DEF_USAGE TYPE STRING,
URI_STD_VALFROM TYPE STRING,
URI_STD_VALTO TYPE STRING,
URI_DEF_USAGE TYPE STRING,
PAG_STD_VALFROM TYPE STRING,
PAG_STD_VALTO TYPE STRING,
PAG_DEF_USAGE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BUS020_DI_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_BUS020_DI_STR-ADINT_ADDR sy-vline 
WA_BUS020_DI_STR-ADEXT_ADDR sy-vline 
WA_BUS020_DI_STR-CHIND_ADDR sy-vline 
WA_BUS020_DI_STR-XDFADR sy-vline 
WA_BUS020_DI_STR-GUID sy-vline 
WA_BUS020_DI_STR-ADDR_DATE_FROM sy-vline 
WA_BUS020_DI_STR-ADDR_DATE_TO sy-vline 
WA_BUS020_DI_STR-ADDR_MOVE_DATE sy-vline 
WA_BUS020_DI_STR-MOVE_ADDR sy-vline 
WA_BUS020_DI_STR-NAME_CO sy-vline 
WA_BUS020_DI_STR-CITY1 sy-vline 
WA_BUS020_DI_STR-CITY2 sy-vline 
WA_BUS020_DI_STR-CITY_CODE sy-vline 
WA_BUS020_DI_STR-CITYP_CODE sy-vline 
WA_BUS020_DI_STR-HOME_CITY sy-vline 
WA_BUS020_DI_STR-CITYH_CODE sy-vline 
WA_BUS020_DI_STR-CHCKSTATUS sy-vline 
WA_BUS020_DI_STR-REGIOGROUP sy-vline 
WA_BUS020_DI_STR-POST_CODE1 sy-vline 
WA_BUS020_DI_STR-POST_CODE2 sy-vline 
WA_BUS020_DI_STR-POST_CODE3 sy-vline 
WA_BUS020_DI_STR-PCODE1_EXT sy-vline 
WA_BUS020_DI_STR-PCODE2_EXT sy-vline 
WA_BUS020_DI_STR-PCODE3_EXT sy-vline 
WA_BUS020_DI_STR-PO_BOX sy-vline 
WA_BUS020_DI_STR-DONT_USE_P sy-vline 
WA_BUS020_DI_STR-PO_BOX_NUM sy-vline 
WA_BUS020_DI_STR-PO_BOX_LOC sy-vline 
WA_BUS020_DI_STR-CITY_CODE2 sy-vline 
WA_BUS020_DI_STR-PO_BOX_REG sy-vline 
WA_BUS020_DI_STR-PO_BOX_CTY sy-vline 
WA_BUS020_DI_STR-POSTALAREA sy-vline 
WA_BUS020_DI_STR-TRANSPZONE sy-vline 
WA_BUS020_DI_STR-STREET sy-vline 
WA_BUS020_DI_STR-DONT_USE_S sy-vline 
WA_BUS020_DI_STR-STREETCODE sy-vline 
WA_BUS020_DI_STR-STREETABBR sy-vline 
WA_BUS020_DI_STR-HOUSE_NUM1 sy-vline 
WA_BUS020_DI_STR-HOUSE_NUM2 sy-vline 
WA_BUS020_DI_STR-HOUSE_NUM3 sy-vline 
WA_BUS020_DI_STR-STR_SUPPL1 sy-vline 
WA_BUS020_DI_STR-STR_SUPPL2 sy-vline 
WA_BUS020_DI_STR-STR_SUPPL3 sy-vline 
WA_BUS020_DI_STR-LOCATION sy-vline 
WA_BUS020_DI_STR-BUILDING sy-vline 
WA_BUS020_DI_STR-FLOOR sy-vline 
WA_BUS020_DI_STR-ROOMNUMBER sy-vline 
WA_BUS020_DI_STR-COUNTRY sy-vline 
WA_BUS020_DI_STR-LANGU sy-vline 
WA_BUS020_DI_STR-REGION sy-vline 
WA_BUS020_DI_STR-SORT1 sy-vline 
WA_BUS020_DI_STR-SORT2 sy-vline 
WA_BUS020_DI_STR-SORT_PHN sy-vline 
WA_BUS020_DI_STR-ADDRORIGIN sy-vline 
WA_BUS020_DI_STR-EXTENSION1 sy-vline 
WA_BUS020_DI_STR-EXTENSION2 sy-vline 
WA_BUS020_DI_STR-TIME_ZONE sy-vline 
WA_BUS020_DI_STR-TAXJURCODE sy-vline 
WA_BUS020_DI_STR-ADDRESS_ID sy-vline 
WA_BUS020_DI_STR-REMARK sy-vline 
WA_BUS020_DI_STR-LANGU_CREA sy-vline 
WA_BUS020_DI_STR-PO_BOX_LOBBY sy-vline 
WA_BUS020_DI_STR-DELI_SERV_TYPE sy-vline 
WA_BUS020_DI_STR-DELI_SERV_NUMBER sy-vline 
WA_BUS020_DI_STR-COUNTY_CODE sy-vline 
WA_BUS020_DI_STR-COUNTY sy-vline 
WA_BUS020_DI_STR-TOWNSHIP_CODE sy-vline 
WA_BUS020_DI_STR-TOWNSHIP sy-vline 
WA_BUS020_DI_STR-DEFLT_COMM sy-vline 
WA_BUS020_DI_STR-CHIND_TEL sy-vline 
WA_BUS020_DI_STR-TEL_CONSNR sy-vline 
WA_BUS020_DI_STR-TEL_CNTRY sy-vline 
WA_BUS020_DI_STR-TEL_NUMBER sy-vline 
WA_BUS020_DI_STR-TEL_EXTENS sy-vline 
WA_BUS020_DI_STR-TEL_DEFLT sy-vline 
WA_BUS020_DI_STR-TEL_REMARK sy-vline 
WA_BUS020_DI_STR-TEL_HOME sy-vline 
WA_BUS020_DI_STR-TEL_MOBILE sy-vline 
WA_BUS020_DI_STR-TEL_RECEIV sy-vline 
WA_BUS020_DI_STR-TEL_VALID_FROM sy-vline 
WA_BUS020_DI_STR-TEL_VALID_TO sy-vline 
WA_BUS020_DI_STR-TEL_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_FAX sy-vline 
WA_BUS020_DI_STR-FAX_CONSNR sy-vline 
WA_BUS020_DI_STR-FAX_CNTRY sy-vline 
WA_BUS020_DI_STR-FAX_NUMBER sy-vline 
WA_BUS020_DI_STR-FAX_EXTENS sy-vline 
WA_BUS020_DI_STR-FAX_DEFLT sy-vline 
WA_BUS020_DI_STR-FAX_REMARK sy-vline 
WA_BUS020_DI_STR-FAX_HOME sy-vline 
WA_BUS020_DI_STR-FAX_VALID_FROM sy-vline 
WA_BUS020_DI_STR-FAX_VALID_TO sy-vline 
WA_BUS020_DI_STR-FAX_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_TTX sy-vline 
WA_BUS020_DI_STR-TTX_CONSNR sy-vline 
WA_BUS020_DI_STR-TTX_CNTRY sy-vline 
WA_BUS020_DI_STR-TTX_NUMBER sy-vline 
WA_BUS020_DI_STR-TTX_DEFLT sy-vline 
WA_BUS020_DI_STR-TTX_REMARK sy-vline 
WA_BUS020_DI_STR-TTX_HOME sy-vline 
WA_BUS020_DI_STR-TTX_VALID_FROM sy-vline 
WA_BUS020_DI_STR-TTX_VALID_TO sy-vline 
WA_BUS020_DI_STR-TTX_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_TLX sy-vline 
WA_BUS020_DI_STR-TLX_CONSNR sy-vline 
WA_BUS020_DI_STR-TLX_CNTRY sy-vline 
WA_BUS020_DI_STR-TLX_NUMBER sy-vline 
WA_BUS020_DI_STR-TLX_DEFLT sy-vline 
WA_BUS020_DI_STR-TLX_REMARK sy-vline 
WA_BUS020_DI_STR-TLX_HOME sy-vline 
WA_BUS020_DI_STR-TLX_VALID_FROM sy-vline 
WA_BUS020_DI_STR-TLX_VALID_TO sy-vline 
WA_BUS020_DI_STR-TLX_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_SMTP sy-vline 
WA_BUS020_DI_STR-SMTP_CONSNR sy-vline 
WA_BUS020_DI_STR-SMTP_ADDR sy-vline 
WA_BUS020_DI_STR-SMTP_DEFLT sy-vline 
WA_BUS020_DI_STR-SMTP_REMARK sy-vline 
WA_BUS020_DI_STR-SMTP_HOME sy-vline 
WA_BUS020_DI_STR-SMTP_VALID_FROM sy-vline 
WA_BUS020_DI_STR-SMTP_VALID_TO sy-vline 
WA_BUS020_DI_STR-SMTP_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_RML sy-vline 
WA_BUS020_DI_STR-RML_CONSNR sy-vline 
WA_BUS020_DI_STR-RML_SYMB_DEST sy-vline 
WA_BUS020_DI_STR-RML_RECVR_TYPE sy-vline 
WA_BUS020_DI_STR-RML_UMAND sy-vline 
WA_BUS020_DI_STR-RML_UNAME sy-vline 
WA_BUS020_DI_STR-RML_DEFLT sy-vline 
WA_BUS020_DI_STR-RML_REMARK sy-vline 
WA_BUS020_DI_STR-RML_HOME sy-vline 
WA_BUS020_DI_STR-RML_VALID_FROM sy-vline 
WA_BUS020_DI_STR-RML_VALID_TO sy-vline 
WA_BUS020_DI_STR-RML_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_X400 sy-vline 
WA_BUS020_DI_STR-X400_CONSNR sy-vline 
WA_BUS020_DI_STR-X400_CNTRY sy-vline 
WA_BUS020_DI_STR-X400_ADMIN sy-vline 
WA_BUS020_DI_STR-X400_PRIVD sy-vline 
WA_BUS020_DI_STR-X400_ORG sy-vline 
WA_BUS020_DI_STR-X400_ORG1 sy-vline 
WA_BUS020_DI_STR-X400_ORG2 sy-vline 
WA_BUS020_DI_STR-X400_ORG3 sy-vline 
WA_BUS020_DI_STR-X400_ORG4 sy-vline 
WA_BUS020_DI_STR-X400_LNAME sy-vline 
WA_BUS020_DI_STR-X400_FNAME sy-vline 
WA_BUS020_DI_STR-X400_INI sy-vline 
WA_BUS020_DI_STR-X400_GENER sy-vline 
WA_BUS020_DI_STR-X400_X121 sy-vline 
WA_BUS020_DI_STR-X400_TERMID sy-vline 
WA_BUS020_DI_STR-X400_TERMTP sy-vline 
WA_BUS020_DI_STR-X400_UANUMID sy-vline 
WA_BUS020_DI_STR-X400_TYPE1 sy-vline 
WA_BUS020_DI_STR-X400_VALUE1 sy-vline 
WA_BUS020_DI_STR-X400_TYPE2 sy-vline 
WA_BUS020_DI_STR-X400_VALUE2 sy-vline 
WA_BUS020_DI_STR-X400_TYPE3 sy-vline 
WA_BUS020_DI_STR-X400_VALUE3 sy-vline 
WA_BUS020_DI_STR-X400_TYPE4 sy-vline 
WA_BUS020_DI_STR-X400_VALUE4 sy-vline 
WA_BUS020_DI_STR-X400_R3_USER sy-vline 
WA_BUS020_DI_STR-X400_DEFLT sy-vline 
WA_BUS020_DI_STR-X400_REMARK sy-vline 
WA_BUS020_DI_STR-X400_HOME sy-vline 
WA_BUS020_DI_STR-X400_VALID_FROM sy-vline 
WA_BUS020_DI_STR-X400_VALID_TO sy-vline 
WA_BUS020_DI_STR-X400_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_RFC sy-vline 
WA_BUS020_DI_STR-RFC_CONSNR sy-vline 
WA_BUS020_DI_STR-RFC_DEST sy-vline 
WA_BUS020_DI_STR-RFC_DEFLT sy-vline 
WA_BUS020_DI_STR-RFC_REMARK sy-vline 
WA_BUS020_DI_STR-RFC_HOME sy-vline 
WA_BUS020_DI_STR-RFC_VALID_FROM sy-vline 
WA_BUS020_DI_STR-RFC_VALID_TO sy-vline 
WA_BUS020_DI_STR-RFC_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_PRT sy-vline 
WA_BUS020_DI_STR-PRT_CONSNR sy-vline 
WA_BUS020_DI_STR-PRT_DEST sy-vline 
WA_BUS020_DI_STR-PRT_DEFLT sy-vline 
WA_BUS020_DI_STR-PRT_REMARK sy-vline 
WA_BUS020_DI_STR-PRT_HOME sy-vline 
WA_BUS020_DI_STR-PRT_VALID_FROM sy-vline 
WA_BUS020_DI_STR-PRT_VALID_TO sy-vline 
WA_BUS020_DI_STR-PRT_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_SSF sy-vline 
WA_BUS020_DI_STR-SSF_CONSNR sy-vline 
WA_BUS020_DI_STR-SSF_SCREEN sy-vline 
WA_BUS020_DI_STR-SSF_DEFLT sy-vline 
WA_BUS020_DI_STR-SSF_REMARK sy-vline 
WA_BUS020_DI_STR-SSF_HOME sy-vline 
WA_BUS020_DI_STR-SSF_VALID_FROM sy-vline 
WA_BUS020_DI_STR-SSF_VALID_TO sy-vline 
WA_BUS020_DI_STR-SSF_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_URI sy-vline 
WA_BUS020_DI_STR-URI_CONSNR sy-vline 
WA_BUS020_DI_STR-URI_TYPE sy-vline 
WA_BUS020_DI_STR-URI_SCREEN sy-vline 
WA_BUS020_DI_STR-URI_DEFLT sy-vline 
WA_BUS020_DI_STR-URI_REMARK sy-vline 
WA_BUS020_DI_STR-URI_HOME sy-vline 
WA_BUS020_DI_STR-URI_VALID_FROM sy-vline 
WA_BUS020_DI_STR-URI_VALID_TO sy-vline 
WA_BUS020_DI_STR-URI_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_PAG sy-vline 
WA_BUS020_DI_STR-PAG_CONSNR sy-vline 
WA_BUS020_DI_STR-PAG_SERV sy-vline 
WA_BUS020_DI_STR-PAG_NMBR sy-vline 
WA_BUS020_DI_STR-PAG_DEFLT sy-vline 
WA_BUS020_DI_STR-PAG_REMARK sy-vline 
WA_BUS020_DI_STR-PAG_HOME sy-vline 
WA_BUS020_DI_STR-PAG_VALID_FROM sy-vline 
WA_BUS020_DI_STR-PAG_VALID_TO sy-vline 
WA_BUS020_DI_STR-PAG_DONT_USE sy-vline 
WA_BUS020_DI_STR-CHIND_ADDR_VERS sy-vline 
WA_BUS020_DI_STR-VERS_NATION sy-vline 
WA_BUS020_DI_STR-VERS_TITLE sy-vline 
WA_BUS020_DI_STR-VERS_NAME1 sy-vline 
WA_BUS020_DI_STR-VERS_NAME2 sy-vline 
WA_BUS020_DI_STR-VERS_NAME3 sy-vline 
WA_BUS020_DI_STR-VERS_NAME4 sy-vline 
WA_BUS020_DI_STR-VERS_NAME_FIRST sy-vline 
WA_BUS020_DI_STR-VERS_NAME_LAST sy-vline 
WA_BUS020_DI_STR-VERS_NAME2_P sy-vline 
WA_BUS020_DI_STR-VERS_NAMEMIDDLE sy-vline 
WA_BUS020_DI_STR-VERS_NAME_LAST2 sy-vline 
WA_BUS020_DI_STR-VERS_TITLE_ACA1 sy-vline 
WA_BUS020_DI_STR-VERS_TITLE_ACA2 sy-vline 
WA_BUS020_DI_STR-VERS_PREFIX1 sy-vline 
WA_BUS020_DI_STR-VERS_PREFIX2 sy-vline 
WA_BUS020_DI_STR-VERS_TITLE_SPPL sy-vline 
WA_BUS020_DI_STR-VERS_NICKNAME sy-vline 
WA_BUS020_DI_STR-VERS_INITIALS sy-vline 
WA_BUS020_DI_STR-VERS_NAMEFORMAT sy-vline 
WA_BUS020_DI_STR-VERS_NAMCOUNTRY sy-vline 
WA_BUS020_DI_STR-VERS_NAME_CO sy-vline 
WA_BUS020_DI_STR-VERS_CITY1 sy-vline 
WA_BUS020_DI_STR-VERS_CITY2 sy-vline 
WA_BUS020_DI_STR-VERS_HOME_CITY sy-vline 
WA_BUS020_DI_STR-VERS_PO_BOX_LOC sy-vline 
WA_BUS020_DI_STR-VERS_STREET sy-vline 
WA_BUS020_DI_STR-VERS_HOUSE_NUM1 sy-vline 
WA_BUS020_DI_STR-VERS_HOUSE_NUM2 sy-vline 
WA_BUS020_DI_STR-VERS_STR_SUPPL1 sy-vline 
WA_BUS020_DI_STR-VERS_STR_SUPPL2 sy-vline 
WA_BUS020_DI_STR-VERS_STR_SUPPL3 sy-vline 
WA_BUS020_DI_STR-VERS_LOCATION sy-vline 
WA_BUS020_DI_STR-VERS_BUILDING sy-vline 
WA_BUS020_DI_STR-VERS_FLOOR sy-vline 
WA_BUS020_DI_STR-VERS_ROOMNUMBER sy-vline 
WA_BUS020_DI_STR-VERS_SORT1 sy-vline 
WA_BUS020_DI_STR-VERS_SORT2 sy-vline 
WA_BUS020_DI_STR-VERS_REMARK sy-vline 
WA_BUS020_DI_STR-TEL_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-TEL_STD_VALTO sy-vline 
WA_BUS020_DI_STR-TEL_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-FAX_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-FAX_STD_VALTO sy-vline 
WA_BUS020_DI_STR-FAX_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-TTX_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-TTX_STD_VALTO sy-vline 
WA_BUS020_DI_STR-TTX_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-TLX_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-TLX_STD_VALTO sy-vline 
WA_BUS020_DI_STR-TLX_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-SMTP_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-SMTP_STD_VALTO sy-vline 
WA_BUS020_DI_STR-SMTP_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-RML_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-RML_STD_VALTO sy-vline 
WA_BUS020_DI_STR-RML_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-X400_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-X400_STD_VALTO sy-vline 
WA_BUS020_DI_STR-X400_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-RFC_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-RFC_STD_VALTO sy-vline 
WA_BUS020_DI_STR-RFC_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-PRT_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-PRT_STD_VALTO sy-vline 
WA_BUS020_DI_STR-PRT_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-SSF_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-SSF_STD_VALTO sy-vline 
WA_BUS020_DI_STR-SSF_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-URI_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-URI_STD_VALTO sy-vline 
WA_BUS020_DI_STR-URI_DEF_USAGE sy-vline 
WA_BUS020_DI_STR-PAG_STD_VALFROM sy-vline 
WA_BUS020_DI_STR-PAG_STD_VALTO sy-vline 
WA_BUS020_DI_STR-PAG_DEF_USAGE sy-vline      INTO ld_text SEPARATED BY SPACE.

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