ABAP Select data from SAP table DIMA_A_DI into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP DIMA_A_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 DIMA_A_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 DIMA_A_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_DIMA_A_DI TYPE STANDARD TABLE OF DIMA_A_DI,
WA_DIMA_A_DI TYPE DIMA_A_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: <DIMA_A_DI> TYPE DIMA_A_DI.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_DIMA_A_DI.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM DIMA_A_DI
INTO TABLE IT_DIMA_A_DI.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM DIMA_A_DI
* INTO TABLE @DATA(IT_DIMA_A_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_DIMA_A_DI INDEX 1 INTO DATA(WA_DIMA_A_DI2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_DIMA_A_DI ASSIGNING <DIMA_A_DI>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<DIMA_A_DI>-AKTYP = 1.
<DIMA_A_DI>-RLTP1 = 1.
<DIMA_A_DI>-RLTP2 = 1.
<DIMA_A_DI>-RLTP3 = 1.
<DIMA_A_DI>-RLTP4 = 1.
ENDLOOP. LOOP AT IT_DIMA_A_DI INTO WA_DIMA_A_DI. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_DIMA_A_DI-RLTP5, sy-vline,
WA_DIMA_A_DI-RLTP6, sy-vline,
WA_DIMA_A_DI-RLTP7, sy-vline,
WA_DIMA_A_DI-RLTP8, sy-vline,
WA_DIMA_A_DI-RLTP9, sy-vline,
WA_DIMA_A_DI-INSOBJECT, sy-vline.
ENDLOOP. *Add any further fields from structure WA_DIMA_A_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_DIMA_A_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_DIMA_A_DI INTO WA_DIMA_A_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 INSOBJECT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-INSOBJECT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-INSOBJECT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-PARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PARTNERACC CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-PARTNERACC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-PARTNERACC.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field FDGRP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-FDGRP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-CRTVAR_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-CRTVAR_VKONT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-DEF_REC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-CB_GPART IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-CB_VKONT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-ADRNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-ABWRE_X IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-ADRRE_X IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-ABWRA_X IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-ADRRA_X IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-TRANSFER_ACC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-VKONV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-VKONV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field GPARV CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-GPARV IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-GPARV.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field SCFDGRP CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-SCFDGRP IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-RCL_INSOBJECT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-RCL_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-PARTNER_OPOST IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_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_DIMA_A_DI-CPERS IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-CPERS.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field PARBRK_PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-PARBRK_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-PARBRK_PARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field BROKER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-BROKER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-BROKER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field BRO_CONTRACT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-BRO_CONTRACT IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-BRO_CONTRACT.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field CORR_PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-CORR_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-CORR_PARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field RECEIVER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-RECEIVER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-RECEIVER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field BRK_PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-BRK_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-BRK_PARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field INSOBJ_COMM CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-INSOBJ_COMM IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-INSOBJ_COMM.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field CLARIFACC CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-CLARIFACC IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-CLARIFACC.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field OUTPAY_PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-OUTPAY_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-OUTPAY_PARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ABWRA_OP_X CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-ABWRA_OP_X IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-ABWRA_OP_X.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field ADRRA_OP_X CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-ADRRA_OP_X IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-ADRRA_OP_X.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field WHV_PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-WHV_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-WHV_PARTNER.
WRITE:/ 'New Value:', ld_input.
*Conversion exit ALPHA, internal->external for field LOCK_PARTNER CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = WA_DIMA_A_DI-LOCK_PARTNER IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_DIMA_A_DI-LOCK_PARTNER.
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_DIMA_A_DI_STR,
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,
INSOBJECT TYPE STRING,
INSOBJECTEXT TYPE STRING,
INSOBJECTTYP TYPE STRING,
VALDT TYPE STRING,
BCON_TYPE TYPE STRING,
BCON_ID TYPE STRING,
BCON_ITEM_TYPE TYPE STRING,
BCON_ITEM_ID TYPE STRING,
BCON_BUSSYS TYPE STRING,
INSOBEZ TYPE STRING,
ERNAM_BUSINESS TYPE STRING,
AENAM_BUSINESS TYPE STRING,
OBJREF TYPE STRING,
CNCREASON TYPE STRING,
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,
PARBRK_PARTNER TYPE STRING,
PARBRK_EXT_PARTNER TYPE STRING,
CREATE_DATE TYPE STRING,
BROKER TYPE STRING,
BRO_CONTRACT TYPE STRING,
COLLECT TYPE STRING,
DATE_FROM TYPE STRING,
DATE_TO TYPE STRING,
DOC_FROM TYPE STRING,
DOC_TO TYPE STRING,
EXT_BROKER TYPE STRING,
EXT_BRO_CONTRACT TYPE STRING,
X_DEL_BROKER TYPE STRING,
CORR_PARTNER TYPE STRING,
CORR_EXT_PARTNER TYPE STRING,
CORR_AKTYP TYPE STRING,
COTYP TYPE STRING,
CORR_ROLE TYPE STRING,
RECEIVER TYPE STRING,
SUBSTITUTE TYPE STRING,
IND_RECEIV TYPE STRING,
EXT_RECEIV TYPE STRING,
IDENTNUMBER TYPE STRING,
BRK_PARTNER TYPE STRING,
BRK_EXT_PARTNER TYPE STRING,
BRK_AKTYP TYPE STRING,
PAYPER TYPE STRING,
PERPOS TYPE STRING,
PEROFF TYPE STRING,
XCOINS_ACT TYPE STRING,
POSCAT_01 TYPE STRING,
POSCAT_02 TYPE STRING,
POSCAT_03 TYPE STRING,
POSCAT_05 TYPE STRING,
BROSTMTYP TYPE STRING,
INSOBJ_COMM TYPE STRING,
CLARIFACC TYPE STRING,
XPOST_AFTER_PYM TYPE STRING,
GRACE_PERIOD TYPE STRING,
GRACE_VALUE TYPE STRING,
EXT_INSOBJ_COMM TYPE STRING,
EXT_CLARIFACC TYPE STRING,
PROC_CODE TYPE STRING,
OUTPAY_PARTNER TYPE STRING,
OUTPAY_EXT_PARTNER TYPE STRING,
OUTPAY_AKTYP TYPE STRING,
ORD_OP TYPE STRING,
ABWRA_OP_X TYPE STRING,
ADRRA_OP_X TYPE STRING,
ABVTY_OP_X TYPE STRING,
CCARD_OUT_OP TYPE STRING,
BETRH_OP TYPE STRING,
WAERS_OP TYPE STRING,
PROZ_OP TYPE STRING,
REST_OP TYPE STRING,
IDENTNUMBER_OP TYPE STRING,
EXT_ABWRA_OP TYPE STRING,
EXT_ADRRA_OP TYPE STRING,
EXT_BANK_OUT_OP TYPE STRING,
WHV_AKTYP TYPE STRING,
WHV_PARTNER TYPE STRING,
WHV_EXT_PARTNER TYPE STRING,
WHV_QSSKZ TYPE STRING,
WHV_QSSEW TYPE STRING,
LOCK_PARTNER TYPE STRING,
LOCK_EXT_PARTNER TYPE STRING,
LOCK_AKTYP TYPE STRING,
LOTYP_KEY TYPE STRING,
PROID_KEY TYPE STRING,
LOCKR_KEY TYPE STRING,
FDATE_KEY TYPE STRING,
TDATE_KEY TYPE STRING,
LOTYP_DAT TYPE STRING,
PROID_DAT TYPE STRING,
LOCKR_DAT TYPE STRING,
FDATE_DAT TYPE STRING,
TDATE_DAT TYPE STRING,
COND_LOOBJ_DAT TYPE STRING,
ACTIVITY_DAT TYPE STRING,END OF T_EKKO_STR. DATA: WA_DIMA_A_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_DIMA_A_DI_STR-AKTYP sy-vline
WA_DIMA_A_DI_STR-RLTP1 sy-vline
WA_DIMA_A_DI_STR-RLTP2 sy-vline
WA_DIMA_A_DI_STR-RLTP3 sy-vline
WA_DIMA_A_DI_STR-RLTP4 sy-vline
WA_DIMA_A_DI_STR-RLTP5 sy-vline
WA_DIMA_A_DI_STR-RLTP6 sy-vline
WA_DIMA_A_DI_STR-RLTP7 sy-vline
WA_DIMA_A_DI_STR-RLTP8 sy-vline
WA_DIMA_A_DI_STR-RLTP9 sy-vline
WA_DIMA_A_DI_STR-INSOBJECT sy-vline
WA_DIMA_A_DI_STR-INSOBJECTEXT sy-vline
WA_DIMA_A_DI_STR-INSOBJECTTYP sy-vline
WA_DIMA_A_DI_STR-VALDT sy-vline
WA_DIMA_A_DI_STR-BCON_TYPE sy-vline
WA_DIMA_A_DI_STR-BCON_ID sy-vline
WA_DIMA_A_DI_STR-BCON_ITEM_TYPE sy-vline
WA_DIMA_A_DI_STR-BCON_ITEM_ID sy-vline
WA_DIMA_A_DI_STR-BCON_BUSSYS sy-vline
WA_DIMA_A_DI_STR-INSOBEZ sy-vline
WA_DIMA_A_DI_STR-ERNAM_BUSINESS sy-vline
WA_DIMA_A_DI_STR-AENAM_BUSINESS sy-vline
WA_DIMA_A_DI_STR-OBJREF sy-vline
WA_DIMA_A_DI_STR-CNCREASON sy-vline
WA_DIMA_A_DI_STR-PART_AKTYP sy-vline
WA_DIMA_A_DI_STR-PARTNER sy-vline
WA_DIMA_A_DI_STR-ERNAM_PBUSINESS sy-vline
WA_DIMA_A_DI_STR-AENAM_PBUSINESS sy-vline
WA_DIMA_A_DI_STR-PARTNERACC sy-vline
WA_DIMA_A_DI_STR-PARTNERACCTYP sy-vline
WA_DIMA_A_DI_STR-FDGRP sy-vline
WA_DIMA_A_DI_STR-FDZTG sy-vline
WA_DIMA_A_DI_STR-CHANGE_ACC sy-vline
WA_DIMA_A_DI_STR-XARCHIVE sy-vline
WA_DIMA_A_DI_STR-AUGRP sy-vline
WA_DIMA_A_DI_STR-CRTVAR sy-vline
WA_DIMA_A_DI_STR-CRTVAR_PARTNER sy-vline
WA_DIMA_A_DI_STR-CRTVAR_VKONT sy-vline
WA_DIMA_A_DI_STR-MVARI sy-vline
WA_DIMA_A_DI_STR-IS_COVAR sy-vline
WA_DIMA_A_DI_STR-FAART sy-vline
WA_DIMA_A_DI_STR-BASE_DATE sy-vline
WA_DIMA_A_DI_STR-CPAR_ACTIVE sy-vline
WA_DIMA_A_DI_STR-DEF_REC sy-vline
WA_DIMA_A_DI_STR-DEF_REC_IND sy-vline
WA_DIMA_A_DI_STR-CB_GPART sy-vline
WA_DIMA_A_DI_STR-CB_VKONT sy-vline
WA_DIMA_A_DI_STR-CORR_MAHNV sy-vline
WA_DIMA_A_DI_STR-OBJ1X_X sy-vline
WA_DIMA_A_DI_STR-ADRNR sy-vline
WA_DIMA_A_DI_STR-ABWRE_X sy-vline
WA_DIMA_A_DI_STR-ADRRE_X sy-vline
WA_DIMA_A_DI_STR-EZAWE_X sy-vline
WA_DIMA_A_DI_STR-EBVTY_X sy-vline
WA_DIMA_A_DI_STR-ABWRA_X sy-vline
WA_DIMA_A_DI_STR-ADRRA_X sy-vline
WA_DIMA_A_DI_STR-AZAWE_X sy-vline
WA_DIMA_A_DI_STR-ANZRA sy-vline
WA_DIMA_A_DI_STR-ATART sy-vline
WA_DIMA_A_DI_STR-ABVTY_X sy-vline
WA_DIMA_A_DI_STR-TRANSFER_ACC sy-vline
WA_DIMA_A_DI_STR-INDIRECT_TRANS sy-vline
WA_DIMA_A_DI_STR-CCARD_ID sy-vline
WA_DIMA_A_DI_STR-CCARD_OUT sy-vline
WA_DIMA_A_DI_STR-IKEY sy-vline
WA_DIMA_A_DI_STR-INTPEROFF sy-vline
WA_DIMA_A_DI_STR-INTPER sy-vline
WA_DIMA_A_DI_STR-INTTO sy-vline
WA_DIMA_A_DI_STR-VKONV sy-vline
WA_DIMA_A_DI_STR-GPARV sy-vline
WA_DIMA_A_DI_STR-EIGBV sy-vline
WA_DIMA_A_DI_STR-MNDID_X sy-vline
WA_DIMA_A_DI_STR-PKEY sy-vline
WA_DIMA_A_DI_STR-POKEY sy-vline
WA_DIMA_A_DI_STR-PP_FROM sy-vline
WA_DIMA_A_DI_STR-PP_FROM_TIME sy-vline
WA_DIMA_A_DI_STR-POGRU sy-vline
WA_DIMA_A_DI_STR-POVER sy-vline
WA_DIMA_A_DI_STR-STUPEROFF sy-vline
WA_DIMA_A_DI_STR-STUPER sy-vline
WA_DIMA_A_DI_STR-SCFDGRP sy-vline
WA_DIMA_A_DI_STR-SCFDZTG sy-vline
WA_DIMA_A_DI_STR-XAKONTO sy-vline
WA_DIMA_A_DI_STR-ALKEY sy-vline
WA_DIMA_A_DI_STR-RCL_INSOBJECT sy-vline
WA_DIMA_A_DI_STR-RCL_PARTNER sy-vline
WA_DIMA_A_DI_STR-PARTNER_OPOST sy-vline
WA_DIMA_A_DI_STR-EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-EXT_ADRNR sy-vline
WA_DIMA_A_DI_STR-EXT_ACCOUNT sy-vline
WA_DIMA_A_DI_STR-EXT_BANK_INC sy-vline
WA_DIMA_A_DI_STR-EXT_BANK_OUT sy-vline
WA_DIMA_A_DI_STR-EXT_ABWRE sy-vline
WA_DIMA_A_DI_STR-EXT_ADRRE sy-vline
WA_DIMA_A_DI_STR-EXT_ABWRA sy-vline
WA_DIMA_A_DI_STR-EXT_ADRRA sy-vline
WA_DIMA_A_DI_STR-EXT_TRANSFER_ACC sy-vline
WA_DIMA_A_DI_STR-EXT_DEF_REC sy-vline
WA_DIMA_A_DI_STR-EXT_GPARV sy-vline
WA_DIMA_A_DI_STR-EXT_VKONV sy-vline
WA_DIMA_A_DI_STR-EXT_CRT_PART sy-vline
WA_DIMA_A_DI_STR-EXT_CRT_VKNT sy-vline
WA_DIMA_A_DI_STR-EXT_CB_GPART sy-vline
WA_DIMA_A_DI_STR-EXT_CB_VKONT sy-vline
WA_DIMA_A_DI_STR-EXT_RCL_INSOBJECT sy-vline
WA_DIMA_A_DI_STR-EXT_RCL_PARTNER sy-vline
WA_DIMA_A_DI_STR-EXT_PART_OPOST sy-vline
WA_DIMA_A_DI_STR-CMGRP sy-vline
WA_DIMA_A_DI_STR-STRAT sy-vline
WA_DIMA_A_DI_STR-CPERS sy-vline
WA_DIMA_A_DI_STR-QSSKZ_E sy-vline
WA_DIMA_A_DI_STR-QSSKZ_A sy-vline
WA_DIMA_A_DI_STR-PARBRK_PARTNER sy-vline
WA_DIMA_A_DI_STR-PARBRK_EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-CREATE_DATE sy-vline
WA_DIMA_A_DI_STR-BROKER sy-vline
WA_DIMA_A_DI_STR-BRO_CONTRACT sy-vline
WA_DIMA_A_DI_STR-COLLECT sy-vline
WA_DIMA_A_DI_STR-DATE_FROM sy-vline
WA_DIMA_A_DI_STR-DATE_TO sy-vline
WA_DIMA_A_DI_STR-DOC_FROM sy-vline
WA_DIMA_A_DI_STR-DOC_TO sy-vline
WA_DIMA_A_DI_STR-EXT_BROKER sy-vline
WA_DIMA_A_DI_STR-EXT_BRO_CONTRACT sy-vline
WA_DIMA_A_DI_STR-X_DEL_BROKER sy-vline
WA_DIMA_A_DI_STR-CORR_PARTNER sy-vline
WA_DIMA_A_DI_STR-CORR_EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-CORR_AKTYP sy-vline
WA_DIMA_A_DI_STR-COTYP sy-vline
WA_DIMA_A_DI_STR-CORR_ROLE sy-vline
WA_DIMA_A_DI_STR-RECEIVER sy-vline
WA_DIMA_A_DI_STR-SUBSTITUTE sy-vline
WA_DIMA_A_DI_STR-IND_RECEIV sy-vline
WA_DIMA_A_DI_STR-EXT_RECEIV sy-vline
WA_DIMA_A_DI_STR-IDENTNUMBER sy-vline
WA_DIMA_A_DI_STR-BRK_PARTNER sy-vline
WA_DIMA_A_DI_STR-BRK_EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-BRK_AKTYP sy-vline
WA_DIMA_A_DI_STR-PAYPER sy-vline
WA_DIMA_A_DI_STR-PERPOS sy-vline
WA_DIMA_A_DI_STR-PEROFF sy-vline
WA_DIMA_A_DI_STR-XCOINS_ACT sy-vline
WA_DIMA_A_DI_STR-POSCAT_01 sy-vline
WA_DIMA_A_DI_STR-POSCAT_02 sy-vline
WA_DIMA_A_DI_STR-POSCAT_03 sy-vline
WA_DIMA_A_DI_STR-POSCAT_05 sy-vline
WA_DIMA_A_DI_STR-BROSTMTYP sy-vline
WA_DIMA_A_DI_STR-INSOBJ_COMM sy-vline
WA_DIMA_A_DI_STR-CLARIFACC sy-vline
WA_DIMA_A_DI_STR-XPOST_AFTER_PYM sy-vline
WA_DIMA_A_DI_STR-GRACE_PERIOD sy-vline
WA_DIMA_A_DI_STR-GRACE_VALUE sy-vline
WA_DIMA_A_DI_STR-EXT_INSOBJ_COMM sy-vline
WA_DIMA_A_DI_STR-EXT_CLARIFACC sy-vline
WA_DIMA_A_DI_STR-PROC_CODE sy-vline
WA_DIMA_A_DI_STR-OUTPAY_PARTNER sy-vline
WA_DIMA_A_DI_STR-OUTPAY_EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-OUTPAY_AKTYP sy-vline
WA_DIMA_A_DI_STR-ORD_OP sy-vline
WA_DIMA_A_DI_STR-ABWRA_OP_X sy-vline
WA_DIMA_A_DI_STR-ADRRA_OP_X sy-vline
WA_DIMA_A_DI_STR-ABVTY_OP_X sy-vline
WA_DIMA_A_DI_STR-CCARD_OUT_OP sy-vline
WA_DIMA_A_DI_STR-BETRH_OP sy-vline
WA_DIMA_A_DI_STR-WAERS_OP sy-vline
WA_DIMA_A_DI_STR-PROZ_OP sy-vline
WA_DIMA_A_DI_STR-REST_OP sy-vline
WA_DIMA_A_DI_STR-IDENTNUMBER_OP sy-vline
WA_DIMA_A_DI_STR-EXT_ABWRA_OP sy-vline
WA_DIMA_A_DI_STR-EXT_ADRRA_OP sy-vline
WA_DIMA_A_DI_STR-EXT_BANK_OUT_OP sy-vline
WA_DIMA_A_DI_STR-WHV_AKTYP sy-vline
WA_DIMA_A_DI_STR-WHV_PARTNER sy-vline
WA_DIMA_A_DI_STR-WHV_EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-WHV_QSSKZ sy-vline
WA_DIMA_A_DI_STR-WHV_QSSEW sy-vline
WA_DIMA_A_DI_STR-LOCK_PARTNER sy-vline
WA_DIMA_A_DI_STR-LOCK_EXT_PARTNER sy-vline
WA_DIMA_A_DI_STR-LOCK_AKTYP sy-vline
WA_DIMA_A_DI_STR-LOTYP_KEY sy-vline
WA_DIMA_A_DI_STR-PROID_KEY sy-vline
WA_DIMA_A_DI_STR-LOCKR_KEY sy-vline
WA_DIMA_A_DI_STR-FDATE_KEY sy-vline
WA_DIMA_A_DI_STR-TDATE_KEY sy-vline
WA_DIMA_A_DI_STR-LOTYP_DAT sy-vline
WA_DIMA_A_DI_STR-PROID_DAT sy-vline
WA_DIMA_A_DI_STR-LOCKR_DAT sy-vline
WA_DIMA_A_DI_STR-FDATE_DAT sy-vline
WA_DIMA_A_DI_STR-TDATE_DAT sy-vline
WA_DIMA_A_DI_STR-COND_LOOBJ_DAT sy-vline
WA_DIMA_A_DI_STR-ACTIVITY_DAT sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.
