ABAP Select data from SAP table BAPITRKEXPECTEDEVENT 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 BAPITRKEXPECTEDEVENT 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 BAPITRKEXPECTEDEVENT. 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 BAPITRKEXPECTEDEVENT 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_BAPITRKEXPECTEDEVENT TYPE STANDARD TABLE OF BAPITRKEXPECTEDEVENT,
      WA_BAPITRKEXPECTEDEVENT TYPE BAPITRKEXPECTEDEVENT,
      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: <BAPITRKEXPECTEDEVENT> TYPE BAPITRKEXPECTEDEVENT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM BAPITRKEXPECTEDEVENT
*  INTO TABLE @DATA(IT_BAPITRKEXPECTEDEVENT2).
*--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_BAPITRKEXPECTEDEVENT INDEX 1 INTO DATA(WA_BAPITRKEXPECTEDEVENT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<BAPITRKEXPECTEDEVENT>-TO_GUID = 1.
<BAPITRKEXPECTEDEVENT>-SEQ_NBR = 1.
<BAPITRKEXPECTEDEVENT>-GROUP_NBR = 1.
<BAPITRKEXPECTEDEVENT>-ITEM_NBR = 1.
<BAPITRKEXPECTEDEVENT>-EVENT_CODE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_BAPITRKEXPECTEDEVENT-EVENT_GROUP, sy-vline,
  WA_BAPITRKEXPECTEDEVENT-PRIORITY, sy-vline,
  WA_BAPITRKEXPECTEDEVENT-REQ_TYPE, sy-vline,
  WA_BAPITRKEXPECTEDEVENT-REQ_SET_NBR, sy-vline,
  WA_BAPITRKEXPECTEDEVENT-PRED_FLAG, sy-vline,
  WA_BAPITRKEXPECTEDEVENT-EVENT_STATUS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_BAPITRKEXPECTEDEVENT 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_BAPITRKEXPECTEDEVENT 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_BAPITRKEXPECTEDEVENT INTO WA_BAPITRKEXPECTEDEVENT.


*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 TSTPS, internal->external for field MSG_EXP_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-MSG_EXP_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-MSG_EXP_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field ORIG_MSG_EXP_DTE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-ORIG_MSG_EXP_DTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-ORIG_MSG_EXP_DTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field EARLIEST_MSG_DTE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EARLIEST_MSG_DTE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EARLIEST_MSG_DTE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field LATEST_MSG_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-LATEST_MSG_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-LATEST_MSG_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field MSG_RCVD_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-MSG_RCVD_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-MSG_RCVD_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field MSG_DATE_UTC
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-MSG_DATE_UTC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-MSG_DATE_UTC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field EVENT_EXP_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EVENT_EXP_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EVENT_EXP_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field ORIG_EV_EXP_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-ORIG_EV_EXP_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-ORIG_EV_EXP_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field EARLIEST_EV_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EARLIEST_EV_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EARLIEST_EV_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field LATEST_EV_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-LATEST_EV_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-LATEST_EV_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field EVENT_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EVENT_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EVENT_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field EVENT_DATE_UTC
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EVENT_DATE_UTC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EVENT_DATE_UTC.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field MSG_EXP_DUR
CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-MSG_EXP_DUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-MSG_EXP_DUR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field EV_EXP_DUR
CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EV_EXP_DUR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EV_EXP_DUR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field MSG_TOLERANCE
CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-MSG_TOLERANCE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-MSG_TOLERANCE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTRN, internal->external for field EV_TOLERANCE
CALL FUNCTION 'CONVERSION_EXIT_TSTRN_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-EV_TOLERANCE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-EV_TOLERANCE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field AO_EV_EXP_DATE
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-AO_EV_EXP_DATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-AO_EV_EXP_DATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field DATETIME1
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-DATETIME1
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-DATETIME1.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field DATETIME2
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-DATETIME2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-DATETIME2.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field DATETIME3
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-DATETIME3
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-DATETIME3.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field DATETIME4
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-DATETIME4
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-DATETIME4.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field DATETIME5
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_BAPITRKEXPECTEDEVENT-DATETIME5
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_BAPITRKEXPECTEDEVENT-DATETIME5.
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_BAPITRKEXPECTEDEVENT_STR, 
TO_GUID TYPE STRING,
SEQ_NBR TYPE STRING,
GROUP_NBR TYPE STRING,
ITEM_NBR TYPE STRING,
EVENT_CODE TYPE STRING,
EVENT_GROUP TYPE STRING,
PRIORITY TYPE STRING,
REQ_TYPE TYPE STRING,
REQ_SET_NBR TYPE STRING,
PRED_FLAG TYPE STRING,
EVENT_STATUS TYPE STRING,
MSG_STATUS TYPE STRING,
CARRIER_ID_TYPE TYPE STRING,
CARRIER_ID TYPE STRING,
CARRIER_VAL_FUNC TYPE STRING,
LOC_ID_TYPE TYPE STRING,
LOC_ID_1 TYPE STRING,
LOC_ID_2 TYPE STRING,
LOC_VAL_FUNC TYPE STRING,
MSG_EXP_DATE TYPE STRING,
ORIG_MSG_EXP_DTE TYPE STRING,
EARLIEST_MSG_DTE TYPE STRING,
LATEST_MSG_DATE TYPE STRING,
MSG_RCVD_DATE TYPE STRING,
MSG_EXP_TZONE TYPE STRING,
MSG_RCVD_TZONE TYPE STRING,
MSG_DATE_UTC TYPE STRING,
EVENT_EXP_DATE TYPE STRING,
ORIG_EV_EXP_DATE TYPE STRING,
EARLIEST_EV_DATE TYPE STRING,
LATEST_EV_DATE TYPE STRING,
EVENT_DATE TYPE STRING,
EVENT_EXP_TZONE TYPE STRING,
EVENT_TZONE TYPE STRING,
EVENT_DATE_UTC TYPE STRING,
MSG_EXP_DATE_SEQ TYPE STRING,
MSG_EXP_DUR TYPE STRING,
MSG_EXP_DUR_SIGN TYPE STRING,
MSG_EXP_CALC_RUL TYPE STRING,
EV_EXP_DATE_SEQ TYPE STRING,
EV_EXP_DUR TYPE STRING,
EV_EXP_DUR_SIGN TYPE STRING,
EV_EXP_CALC_RULE TYPE STRING,
MSG_TOLERANCE TYPE STRING,
MSG_TOL_RULE TYPE STRING,
EV_TOLERANCE TYPE STRING,
EV_TOL_RULE TYPE STRING,
APPSYS_REF TYPE STRING,
REPROCESS_FLAG TYPE STRING,
STATUS_ICON_L2 TYPE STRING,
COUNTRY TYPE STRING,
REGION TYPE STRING,
POSTAL_CD TYPE STRING,
CITY TYPE STRING,
LOCAT_DESC TYPE STRING,
AO_EV_EXP_DATE TYPE STRING,
MSG_GUID TYPE STRING,
DATETIME1 TYPE STRING,
TZONE1 TYPE STRING,
DATETIME2 TYPE STRING,
TZONE2 TYPE STRING,
DATETIME3 TYPE STRING,
TZONE3 TYPE STRING,
DATETIME4 TYPE STRING,
TZONE4 TYPE STRING,
DATETIME5 TYPE STRING,
TZONE5 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_BAPITRKEXPECTEDEVENT_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_BAPITRKEXPECTEDEVENT_STR-TO_GUID sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-SEQ_NBR sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-GROUP_NBR sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-ITEM_NBR sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_CODE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_GROUP sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-PRIORITY sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-REQ_TYPE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-REQ_SET_NBR sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-PRED_FLAG sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_STATUS sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_STATUS sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-CARRIER_ID_TYPE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-CARRIER_ID sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-CARRIER_VAL_FUNC sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LOC_ID_TYPE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LOC_ID_1 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LOC_ID_2 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LOC_VAL_FUNC sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_EXP_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-ORIG_MSG_EXP_DTE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EARLIEST_MSG_DTE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LATEST_MSG_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_RCVD_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_EXP_TZONE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_RCVD_TZONE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_DATE_UTC sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_EXP_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-ORIG_EV_EXP_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EARLIEST_EV_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LATEST_EV_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_EXP_TZONE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_TZONE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EVENT_DATE_UTC sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_EXP_DATE_SEQ sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_EXP_DUR sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_EXP_DUR_SIGN sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_EXP_CALC_RUL sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EV_EXP_DATE_SEQ sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EV_EXP_DUR sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EV_EXP_DUR_SIGN sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EV_EXP_CALC_RULE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_TOLERANCE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_TOL_RULE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EV_TOLERANCE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-EV_TOL_RULE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-APPSYS_REF sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-REPROCESS_FLAG sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-STATUS_ICON_L2 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-COUNTRY sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-REGION sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-POSTAL_CD sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-CITY sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-LOCAT_DESC sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-AO_EV_EXP_DATE sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-MSG_GUID sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-DATETIME1 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-TZONE1 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-DATETIME2 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-TZONE2 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-DATETIME3 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-TZONE3 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-DATETIME4 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-TZONE4 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-DATETIME5 sy-vline 
WA_BAPITRKEXPECTEDEVENT_STR-TZONE5 sy-vline      INTO ld_text SEPARATED BY SPACE.

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