ABAP Select data from SAP table SIMAIOBPAR_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 SIMAIOBPAR_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 SIMAIOBPAR_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 SIMAIOBPAR_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_SIMAIOBPAR_DI TYPE STANDARD TABLE OF SIMAIOBPAR_DI,
      WA_SIMAIOBPAR_DI TYPE SIMAIOBPAR_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: <SIMAIOBPAR_DI> TYPE SIMAIOBPAR_DI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM SIMAIOBPAR_DI
*  INTO TABLE @DATA(IT_SIMAIOBPAR_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_SIMAIOBPAR_DI INDEX 1 INTO DATA(WA_SIMAIOBPAR_DI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<SIMAIOBPAR_DI>-PART_AKTYP = 1.
<SIMAIOBPAR_DI>-PARTNER = 1.
<SIMAIOBPAR_DI>-ERNAM_PBUSINESS = 1.
<SIMAIOBPAR_DI>-AENAM_PBUSINESS = 1.
<SIMAIOBPAR_DI>-PARTNERACC = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_SIMAIOBPAR_DI-PARTNERACCTYP, sy-vline,
  WA_SIMAIOBPAR_DI-FDGRP, sy-vline,
  WA_SIMAIOBPAR_DI-FDZTG, sy-vline,
  WA_SIMAIOBPAR_DI-CHANGE_ACC, sy-vline,
  WA_SIMAIOBPAR_DI-XARCHIVE, sy-vline,
  WA_SIMAIOBPAR_DI-AUGRP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_SIMAIOBPAR_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_SIMAIOBPAR_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_SIMAIOBPAR_DI INTO WA_SIMAIOBPAR_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 PARTNER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_SIMAIOBPAR_DI-PARTNER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_SIMAIOBPAR_DI-PARTNER.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field CPERS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_SIMAIOBPAR_DI-CPERS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_SIMAIOBPAR_DI-CPERS.
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_SIMAIOBPAR_DI_STR, 
PART_AKTYP TYPE STRING,
PARTNER TYPE STRING,
ERNAM_PBUSINESS TYPE STRING,
AENAM_PBUSINESS TYPE STRING,
PARTNERACC TYPE STRING,
PARTNERACCTYP TYPE STRING,
FDGRP TYPE STRING,
FDZTG TYPE STRING,
CHANGE_ACC TYPE STRING,
XARCHIVE TYPE STRING,
AUGRP TYPE STRING,
CRTVAR TYPE STRING,
CRTVAR_PARTNER TYPE STRING,
CRTVAR_VKONT TYPE STRING,
MVARI TYPE STRING,
IS_COVAR TYPE STRING,
FAART TYPE STRING,
BASE_DATE TYPE STRING,
CPAR_ACTIVE TYPE STRING,
DEF_REC TYPE STRING,
DEF_REC_IND TYPE STRING,
CB_GPART TYPE STRING,
CB_VKONT TYPE STRING,
CORR_MAHNV TYPE STRING,
OBJ1X_X TYPE STRING,
ADRNR TYPE STRING,
ABWRE_X TYPE STRING,
ADRRE_X TYPE STRING,
EZAWE_X TYPE STRING,
EBVTY_X TYPE STRING,
ABWRA_X TYPE STRING,
ADRRA_X TYPE STRING,
AZAWE_X TYPE STRING,
ANZRA TYPE STRING,
ATART TYPE STRING,
ABVTY_X TYPE STRING,
TRANSFER_ACC TYPE STRING,
INDIRECT_TRANS TYPE STRING,
CCARD_ID TYPE STRING,
CCARD_OUT TYPE STRING,
IKEY TYPE STRING,
INTPEROFF TYPE STRING,
INTPER TYPE STRING,
INTTO TYPE STRING,
VKONV TYPE STRING,
GPARV TYPE STRING,
EIGBV TYPE STRING,
MNDID_X TYPE STRING,
PKEY TYPE STRING,
POKEY TYPE STRING,
PP_FROM TYPE STRING,
PP_FROM_TIME TYPE STRING,
POGRU TYPE STRING,
POVER TYPE STRING,
STUPEROFF TYPE STRING,
STUPER TYPE STRING,
SCFDGRP TYPE STRING,
SCFDZTG TYPE STRING,
XAKONTO TYPE STRING,
ALKEY TYPE STRING,
RCL_INSOBJECT TYPE STRING,
RCL_PARTNER TYPE STRING,
PARTNER_OPOST TYPE STRING,
EXT_PARTNER TYPE STRING,
EXT_ADRNR TYPE STRING,
EXT_ACCOUNT TYPE STRING,
EXT_BANK_INC TYPE STRING,
EXT_BANK_OUT TYPE STRING,
EXT_ABWRE TYPE STRING,
EXT_ADRRE TYPE STRING,
EXT_ABWRA TYPE STRING,
EXT_ADRRA TYPE STRING,
EXT_TRANSFER_ACC TYPE STRING,
EXT_DEF_REC TYPE STRING,
EXT_GPARV TYPE STRING,
EXT_VKONV TYPE STRING,
EXT_CRT_PART TYPE STRING,
EXT_CRT_VKNT TYPE STRING,
EXT_CB_GPART TYPE STRING,
EXT_CB_VKONT TYPE STRING,
EXT_RCL_INSOBJECT TYPE STRING,
EXT_RCL_PARTNER TYPE STRING,
EXT_PART_OPOST TYPE STRING,
CMGRP TYPE STRING,
STRAT TYPE STRING,
CPERS TYPE STRING,
QSSKZ_E TYPE STRING,
QSSKZ_A TYPE STRING,END OF T_EKKO_STR.
DATA: WA_SIMAIOBPAR_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_SIMAIOBPAR_DI_STR-PART_AKTYP sy-vline 
WA_SIMAIOBPAR_DI_STR-PARTNER sy-vline 
WA_SIMAIOBPAR_DI_STR-ERNAM_PBUSINESS sy-vline 
WA_SIMAIOBPAR_DI_STR-AENAM_PBUSINESS sy-vline 
WA_SIMAIOBPAR_DI_STR-PARTNERACC sy-vline 
WA_SIMAIOBPAR_DI_STR-PARTNERACCTYP sy-vline 
WA_SIMAIOBPAR_DI_STR-FDGRP sy-vline 
WA_SIMAIOBPAR_DI_STR-FDZTG sy-vline 
WA_SIMAIOBPAR_DI_STR-CHANGE_ACC sy-vline 
WA_SIMAIOBPAR_DI_STR-XARCHIVE sy-vline 
WA_SIMAIOBPAR_DI_STR-AUGRP sy-vline 
WA_SIMAIOBPAR_DI_STR-CRTVAR sy-vline 
WA_SIMAIOBPAR_DI_STR-CRTVAR_PARTNER sy-vline 
WA_SIMAIOBPAR_DI_STR-CRTVAR_VKONT sy-vline 
WA_SIMAIOBPAR_DI_STR-MVARI sy-vline 
WA_SIMAIOBPAR_DI_STR-IS_COVAR sy-vline 
WA_SIMAIOBPAR_DI_STR-FAART sy-vline 
WA_SIMAIOBPAR_DI_STR-BASE_DATE sy-vline 
WA_SIMAIOBPAR_DI_STR-CPAR_ACTIVE sy-vline 
WA_SIMAIOBPAR_DI_STR-DEF_REC sy-vline 
WA_SIMAIOBPAR_DI_STR-DEF_REC_IND sy-vline 
WA_SIMAIOBPAR_DI_STR-CB_GPART sy-vline 
WA_SIMAIOBPAR_DI_STR-CB_VKONT sy-vline 
WA_SIMAIOBPAR_DI_STR-CORR_MAHNV sy-vline 
WA_SIMAIOBPAR_DI_STR-OBJ1X_X sy-vline 
WA_SIMAIOBPAR_DI_STR-ADRNR sy-vline 
WA_SIMAIOBPAR_DI_STR-ABWRE_X sy-vline 
WA_SIMAIOBPAR_DI_STR-ADRRE_X sy-vline 
WA_SIMAIOBPAR_DI_STR-EZAWE_X sy-vline 
WA_SIMAIOBPAR_DI_STR-EBVTY_X sy-vline 
WA_SIMAIOBPAR_DI_STR-ABWRA_X sy-vline 
WA_SIMAIOBPAR_DI_STR-ADRRA_X sy-vline 
WA_SIMAIOBPAR_DI_STR-AZAWE_X sy-vline 
WA_SIMAIOBPAR_DI_STR-ANZRA sy-vline 
WA_SIMAIOBPAR_DI_STR-ATART sy-vline 
WA_SIMAIOBPAR_DI_STR-ABVTY_X sy-vline 
WA_SIMAIOBPAR_DI_STR-TRANSFER_ACC sy-vline 
WA_SIMAIOBPAR_DI_STR-INDIRECT_TRANS sy-vline 
WA_SIMAIOBPAR_DI_STR-CCARD_ID sy-vline 
WA_SIMAIOBPAR_DI_STR-CCARD_OUT sy-vline 
WA_SIMAIOBPAR_DI_STR-IKEY sy-vline 
WA_SIMAIOBPAR_DI_STR-INTPEROFF sy-vline 
WA_SIMAIOBPAR_DI_STR-INTPER sy-vline 
WA_SIMAIOBPAR_DI_STR-INTTO sy-vline 
WA_SIMAIOBPAR_DI_STR-VKONV sy-vline 
WA_SIMAIOBPAR_DI_STR-GPARV sy-vline 
WA_SIMAIOBPAR_DI_STR-EIGBV sy-vline 
WA_SIMAIOBPAR_DI_STR-MNDID_X sy-vline 
WA_SIMAIOBPAR_DI_STR-PKEY sy-vline 
WA_SIMAIOBPAR_DI_STR-POKEY sy-vline 
WA_SIMAIOBPAR_DI_STR-PP_FROM sy-vline 
WA_SIMAIOBPAR_DI_STR-PP_FROM_TIME sy-vline 
WA_SIMAIOBPAR_DI_STR-POGRU sy-vline 
WA_SIMAIOBPAR_DI_STR-POVER sy-vline 
WA_SIMAIOBPAR_DI_STR-STUPEROFF sy-vline 
WA_SIMAIOBPAR_DI_STR-STUPER sy-vline 
WA_SIMAIOBPAR_DI_STR-SCFDGRP sy-vline 
WA_SIMAIOBPAR_DI_STR-SCFDZTG sy-vline 
WA_SIMAIOBPAR_DI_STR-XAKONTO sy-vline 
WA_SIMAIOBPAR_DI_STR-ALKEY sy-vline 
WA_SIMAIOBPAR_DI_STR-RCL_INSOBJECT sy-vline 
WA_SIMAIOBPAR_DI_STR-RCL_PARTNER sy-vline 
WA_SIMAIOBPAR_DI_STR-PARTNER_OPOST sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_PARTNER sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_ADRNR sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_ACCOUNT sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_BANK_INC sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_BANK_OUT sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_ABWRE sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_ADRRE sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_ABWRA sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_ADRRA sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_TRANSFER_ACC sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_DEF_REC sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_GPARV sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_VKONV sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_CRT_PART sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_CRT_VKNT sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_CB_GPART sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_CB_VKONT sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_RCL_INSOBJECT sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_RCL_PARTNER sy-vline 
WA_SIMAIOBPAR_DI_STR-EXT_PART_OPOST sy-vline 
WA_SIMAIOBPAR_DI_STR-CMGRP sy-vline 
WA_SIMAIOBPAR_DI_STR-STRAT sy-vline 
WA_SIMAIOBPAR_DI_STR-CPERS sy-vline 
WA_SIMAIOBPAR_DI_STR-QSSKZ_E sy-vline 
WA_SIMAIOBPAR_DI_STR-QSSKZ_A sy-vline      INTO ld_text SEPARATED BY SPACE.

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