ABAP Select data from SAP table IMSEG_CORU 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 IMSEG_CORU 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 IMSEG_CORU. 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 IMSEG_CORU 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_IMSEG_CORU TYPE STANDARD TABLE OF IMSEG_CORU,
      WA_IMSEG_CORU TYPE IMSEG_CORU,
      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: <IMSEG_CORU> TYPE IMSEG_CORU.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IMSEG_CORU
*  INTO TABLE @DATA(IT_IMSEG_CORU2).
*--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_IMSEG_CORU INDEX 1 INTO DATA(WA_IMSEG_CORU2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IMSEG_CORU>-LINE_ID = 1.
<IMSEG_CORU>-PARENT_ID = 1.
<IMSEG_CORU>-LINE_DEPTH = 1.
<IMSEG_CORU>-MAA_URZEI = 1.
<IMSEG_CORU>-CALLED_BY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IMSEG_CORU-BEAKZ, sy-vline,
  WA_IMSEG_CORU-XNIBU, sy-vline,
  WA_IMSEG_CORU-BWART, sy-vline,
  WA_IMSEG_CORU-RECVSYSTEM, sy-vline,
  WA_IMSEG_CORU-XRERE, sy-vline,
  WA_IMSEG_CORU-XMEVO, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IMSEG_CORU 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_IMSEG_CORU 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_IMSEG_CORU INTO WA_IMSEG_CORU.


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

*Conversion exit MATN1, internal->external for field MATNR
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-MATNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field ERFME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-ERFME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-ERFME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field MEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-MEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-MEINS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field BPRME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-BPRME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-BPRME.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATN1, internal->external for field UMMAT
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-UMMAT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-UMMAT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field LFBJA
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-LFBJA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-LFBJA.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field GEBEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-GEBEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-GEBEH.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSP, internal->external for field MAT_PSPNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-MAT_PSPNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-MAT_PSPNR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit CUNIT, internal->external for field LSMEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-LSMEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-LSMEH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit NUMCV, internal->external for field REVLV
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-REVLV
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-REVLV.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field EMATN
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-EMATN
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-EMATN.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit ABPSP, internal->external for field PS_PSP_PNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-PS_PSP_PNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-PS_PSP_PNR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit NUMCV, internal->external for field VORNR
CALL FUNCTION 'CONVERSION_EXIT_NUMCV_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-VORNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-VORNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit FMCIS, internal->external for field FIPOS
CALL FUNCTION 'CONVERSION_EXIT_FMCIS_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-FIPOS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-FIPOS.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit IMKEY, internal->external for field IMKEY
CALL FUNCTION 'CONVERSION_EXIT_IMKEY_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-IMKEY
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-IMKEY.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

*Conversion exit EAN11, internal->external for field EAN11_BME
CALL FUNCTION 'CONVERSION_EXIT_EAN11_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-EAN11_BME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-EAN11_BME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EAN11, internal->external for field EAN11_KON
CALL FUNCTION 'CONVERSION_EXIT_EAN11_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-EAN11_KON
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-EAN11_KON.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field EANME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-EANME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-EANME.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field R_MJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-R_MJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-R_MJAHR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field /CWM/MEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-/CWM/MEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-/CWM/MEINS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field /CWM/ERFME
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-/CWM/ERFME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-/CWM/ERFME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ABPSP, internal->external for field ASS_PSPNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-ASS_PSPNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-ASS_PSPNR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field SJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-SJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-SJAHR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit GJAHR, internal->external for field TBBJR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-TBBJR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-TBBJR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit CUNIT, internal->external for field VOLEH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-VOLEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-VOLEH.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field MJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-MJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-MJAHR.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit CUNIT, internal->external for field GEWEI
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-GEWEI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-GEWEI.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field LFBJA_INTERNAL
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-LFBJA_INTERNAL
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-LFBJA_INTERNAL.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field AUFNR_T
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_IMSEG_CORU-AUFNR_T
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IMSEG_CORU-AUFNR_T.
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_IMSEG_CORU_STR, 
LINE_ID TYPE STRING,
PARENT_ID TYPE STRING,
LINE_DEPTH TYPE STRING,
MAA_URZEI TYPE STRING,
CALLED_BY TYPE STRING,
BEAKZ TYPE STRING,
XNIBU TYPE STRING,
BWART TYPE STRING,
RECVSYSTEM TYPE STRING,
XRERE TYPE STRING,
XMEVO TYPE STRING,
XWAIT TYPE STRING,
XNOEQ TYPE STRING,
XDELIV TYPE STRING,
XNOCON TYPE STRING,
XMENGE TYPE STRING,
XSTOB TYPE STRING,
XSTOR TYPE STRING,
XAUTO TYPE STRING,
XWOFF TYPE STRING,
XLBTYPE TYPE STRING,
XZEROQUANTITY TYPE STRING,
MATNR TYPE STRING,
WERKS TYPE STRING,
LGORT TYPE STRING,
CHARG TYPE STRING,
INSMK TYPE STRING,
SOBKZ TYPE STRING,
KZBEW TYPE STRING,
KUNNR TYPE STRING,
BWTAR TYPE STRING,
ERFMG TYPE STRING,
ERFME TYPE STRING,
MENGE TYPE STRING,
MEINS TYPE STRING,
BPMNG TYPE STRING,
BPRME TYPE STRING,
EBELN TYPE STRING,
EBELP TYPE STRING,
ELIKZ TYPE STRING,
MIGO_ELIKZ TYPE STRING,
SGTXT TYPE STRING,
WEMPF TYPE STRING,
ABLAD TYPE STRING,
RSNUM TYPE STRING,
RSPOS TYPE STRING,
RSART TYPE STRING,
KZEAR TYPE STRING,
UMMAT TYPE STRING,
UMWRK TYPE STRING,
UMLGO TYPE STRING,
UMCHA TYPE STRING,
ZEKKN TYPE STRING,
ERFMG_ABD TYPE STRING,
BPMNG_ABD TYPE STRING,
BSTMG_ABD TYPE STRING,
XHISTMA TYPE STRING,
MULKO TYPE STRING,
SGT_SCAT TYPE STRING,
SGT_UMSCAT TYPE STRING,
SGT_UMSSREL TYPE STRING,
SGT_SSREL TYPE STRING,
SGT_RCAT TYPE STRING,
LGNUM TYPE STRING,
LGTYP TYPE STRING,
LGPLA TYPE STRING,
GRUND TYPE STRING,
EVERS TYPE STRING,
EVERE TYPE STRING,
KONTO TYPE STRING,
UMZST TYPE STRING,
UMZUS TYPE STRING,
UMBAR TYPE STRING,
LFBJA TYPE STRING,
LFBNR TYPE STRING,
LFPOS TYPE STRING,
VFDAT TYPE STRING,
CLASS TYPE STRING,
UMCLA TYPE STRING,
XCLAS TYPE STRING,
UMXCL TYPE STRING,
OBJNR TYPE STRING,
BSTMG TYPE STRING,
BSSKZ TYPE STRING,
GEBEH TYPE STRING,
ANZGEB TYPE STRING,
MAT_KDAUF TYPE STRING,
MAT_KDPOS TYPE STRING,
MAT_PSPNR TYPE STRING,
HSDAT TYPE STRING,
LICHA TYPE STRING,
MWSKZ TYPE STRING,
TXJCD TYPE STRING,
VLIEF_AVIS TYPE STRING,
VBELP_AVIS TYPE STRING,
VBELN TYPE STRING,
POSNR TYPE STRING,
ETENS TYPE STRING,
KALSM TYPE STRING,
GLOBAL_COUNTER TYPE STRING,
LSMNG TYPE STRING,
LSMEH TYPE STRING,
UPTYP TYPE STRING,
ANZSN TYPE STRING,
XSAUT TYPE STRING,
REVLV TYPE STRING,
EMATN TYPE STRING,
CUOBJ_CH TYPE STRING,
UMCUOBJ_CH TYPE STRING,
KOSTL TYPE STRING,
AUFNR TYPE STRING,
PS_PSP_PNR TYPE STRING,
KDAUF TYPE STRING,
KDPOS TYPE STRING,
KDEIN TYPE STRING,
NPLNR TYPE STRING,
VORNR TYPE STRING,
FIPOS TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
PAOBJNR TYPE STRING,
IMKEY TYPE STRING,
GEBER TYPE STRING,
FISTL TYPE STRING,
FKBER TYPE STRING,
LSTAR TYPE STRING,
PRZNR TYPE STRING,
KSTRG TYPE STRING,
GSBER TYPE STRING,
PRCTR TYPE STRING,
BUKRS TYPE STRING,
GRANT_NBR TYPE STRING,
MEASURE TYPE STRING,
BUDGET_PD TYPE STRING,
DUMMY_INCL_EEW_COBL TYPE STRING,
KBLNR TYPE STRING,
KBLPOS TYPE STRING,
FMFGUS_KEY TYPE STRING,
VPTNR TYPE STRING,
CONDI TYPE STRING,
CRPCAL TYPE STRING,
RECID TYPE STRING,
BEMOT TYPE STRING,
SERVICE_DOC_TYPE TYPE STRING,
SERVICE_DOC_ID TYPE STRING,
SERVICE_DOC_ITEM_ID TYPE STRING,
AUFPS TYPE STRING,
AUFPL TYPE STRING,
APLZL TYPE STRING,
DABRZ TYPE STRING,
EAN11_BME TYPE STRING,
EAN11_KON TYPE STRING,
EANME TYPE STRING,
WEANZ TYPE STRING,
WEANZX TYPE STRING,
R_MBLNR TYPE STRING,
R_MJAHR TYPE STRING,
DUMMY3 TYPE STRING,
BATCH_TYPE TYPE STRING,
SERVICEPERFORMER TYPE STRING,
PERNR TYPE STRING,
KNTTP_GR TYPE STRING,
WORK_ITEM_ID TYPE STRING,
FBUDA TYPE STRING,
EWM_LGNUM TYPE STRING,
EWM_LGPLA TYPE STRING,
EWM_DIFF_ANA TYPE STRING,
EWM_INSPUUID TYPE STRING,
RESOURCENAME_SID TYPE STRING,
RESOURCENAME_CID TYPE STRING,
DUMMY_MATDOC_INCL_EEW_PS TYPE STRING,
/CWM/MENGE TYPE STRING,
/CWM/MEINS TYPE STRING,
/CWM/ERFMG TYPE STRING,
/CWM/ERFME TYPE STRING,
/CWM/TY2TQ TYPE STRING,
/CWM/UMTY2TQ TYPE STRING,
XPCBT TYPE STRING,
UMXPC TYPE STRING,
FSH_SEASON_YEAR TYPE STRING,
FSH_SEASON TYPE STRING,
FSH_COLLECTION TYPE STRING,
FSH_THEME TYPE STRING,
FSH_SEALV TYPE STRING,
FSH_UMSEA_YR TYPE STRING,
FSH_UMSEA TYPE STRING,
FSH_UMCOLL TYPE STRING,
FSH_UMTHEME TYPE STRING,
FSH_DEALLOC_QTY TYPE STRING,
FSH_SEAIM TYPE STRING,
ASS_PSPNR TYPE STRING,
WRF_CHARSTC1 TYPE STRING,
WRF_CHARSTC2 TYPE STRING,
WRF_CHARSTC3 TYPE STRING,
WTY_IND TYPE STRING,
KZVBR TYPE STRING,
WEUNB TYPE STRING,
SHKZG TYPE STRING,
WAERS TYPE STRING,
DMBTR TYPE STRING,
RSHKZ TYPE STRING,
BDMNG TYPE STRING,
ENMNG TYPE STRING,
QPLOS TYPE STRING,
SJAHR TYPE STRING,
SMBLN TYPE STRING,
SMBLP TYPE STRING,
QM_ZUSTD TYPE STRING,
QM_UMZST TYPE STRING,
BWLVS TYPE STRING,
UMREZ TYPE STRING,
UMREN TYPE STRING,
BDTER TYPE STRING,
TBBEL TYPE STRING,
TBBPO TYPE STRING,
TBBJR TYPE STRING,
AUTYP TYPE STRING,
QPLOA TYPE STRING,
TBPKZ TYPE STRING,
TAFKZ TYPE STRING,
KZEAR_OLD TYPE STRING,
UMLGT TYPE STRING,
UMLGP TYPE STRING,
MHDAT TYPE STRING,
EXIDV TYPE STRING,
BERKZ TYPE STRING,
PRVBE TYPE STRING,
KZECH TYPE STRING,
REFIX TYPE STRING,
ILINR TYPE STRING,
VOLUM TYPE STRING,
VOLEH TYPE STRING,
ANZL1 TYPE STRING,
ANZL2 TYPE STRING,
LMEN1 TYPE STRING,
LMEN2 TYPE STRING,
LETY1 TYPE STRING,
LETY2 TYPE STRING,
KZKUB TYPE STRING,
UBTYP TYPE STRING,
UBLGP TYPE STRING,
MBLNR TYPE STRING,
MBLPO TYPE STRING,
MJAHR TYPE STRING,
URZEI TYPE STRING,
KZBWS TYPE STRING,
KDAUF_SD TYPE STRING,
KDPOS_SD TYPE STRING,
BRGEW TYPE STRING,
GEWEI TYPE STRING,
WM_KZBEW TYPE STRING,
WENUM TYPE STRING,
KANBA TYPE STRING,
LFBJA_INTERNAL TYPE STRING,
LFBNR_INTERNAL TYPE STRING,
LFPOS_INTERNAL TYPE STRING,
UPVOR TYPE STRING,
PABNUM TYPE STRING,
PABPOS TYPE STRING,
PKKEY TYPE STRING,
PARBU TYPE STRING,
PARGB TYPE STRING,
PPRCTR TYPE STRING,
LIFNR TYPE STRING,
EXBWR TYPE STRING,
EXVKW TYPE STRING,
LLIEF TYPE STRING,
J_1BEXBASE TYPE STRING,
WEMPFX TYPE STRING,
ABLADX TYPE STRING,
OBJTYPE TYPE STRING,
SPE_GTS_STOCK_TY TYPE STRING,
SPE_UM_GTS_ST_TY TYPE STRING,
KUNNR_CC TYPE STRING,
VBUND_CC TYPE STRING,
/CWM/NOTOLCHECK TYPE STRING,
/CWM/BDMNG TYPE STRING,
/CWM/ENMNG TYPE STRING,
DISUB_OWNER TYPE STRING,
LFDAT TYPE STRING,
SPDNR TYPE STRING,
COMPL_MARK TYPE STRING,
FZGLS_MARK TYPE STRING,
ETANP_MARK TYPE STRING,
RUECK TYPE STRING,
RMZHL TYPE STRING,
AUFNR_T TYPE STRING,
BUDAT TYPE STRING,
BLDAT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IMSEG_CORU_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_IMSEG_CORU_STR-LINE_ID sy-vline 
WA_IMSEG_CORU_STR-PARENT_ID sy-vline 
WA_IMSEG_CORU_STR-LINE_DEPTH sy-vline 
WA_IMSEG_CORU_STR-MAA_URZEI sy-vline 
WA_IMSEG_CORU_STR-CALLED_BY sy-vline 
WA_IMSEG_CORU_STR-BEAKZ sy-vline 
WA_IMSEG_CORU_STR-XNIBU sy-vline 
WA_IMSEG_CORU_STR-BWART sy-vline 
WA_IMSEG_CORU_STR-RECVSYSTEM sy-vline 
WA_IMSEG_CORU_STR-XRERE sy-vline 
WA_IMSEG_CORU_STR-XMEVO sy-vline 
WA_IMSEG_CORU_STR-XWAIT sy-vline 
WA_IMSEG_CORU_STR-XNOEQ sy-vline 
WA_IMSEG_CORU_STR-XDELIV sy-vline 
WA_IMSEG_CORU_STR-XNOCON sy-vline 
WA_IMSEG_CORU_STR-XMENGE sy-vline 
WA_IMSEG_CORU_STR-XSTOB sy-vline 
WA_IMSEG_CORU_STR-XSTOR sy-vline 
WA_IMSEG_CORU_STR-XAUTO sy-vline 
WA_IMSEG_CORU_STR-XWOFF sy-vline 
WA_IMSEG_CORU_STR-XLBTYPE sy-vline 
WA_IMSEG_CORU_STR-XZEROQUANTITY sy-vline 
WA_IMSEG_CORU_STR-MATNR sy-vline 
WA_IMSEG_CORU_STR-WERKS sy-vline 
WA_IMSEG_CORU_STR-LGORT sy-vline 
WA_IMSEG_CORU_STR-CHARG sy-vline 
WA_IMSEG_CORU_STR-INSMK sy-vline 
WA_IMSEG_CORU_STR-SOBKZ sy-vline 
WA_IMSEG_CORU_STR-KZBEW sy-vline 
WA_IMSEG_CORU_STR-KUNNR sy-vline 
WA_IMSEG_CORU_STR-BWTAR sy-vline 
WA_IMSEG_CORU_STR-ERFMG sy-vline 
WA_IMSEG_CORU_STR-ERFME sy-vline 
WA_IMSEG_CORU_STR-MENGE sy-vline 
WA_IMSEG_CORU_STR-MEINS sy-vline 
WA_IMSEG_CORU_STR-BPMNG sy-vline 
WA_IMSEG_CORU_STR-BPRME sy-vline 
WA_IMSEG_CORU_STR-EBELN sy-vline 
WA_IMSEG_CORU_STR-EBELP sy-vline 
WA_IMSEG_CORU_STR-ELIKZ sy-vline 
WA_IMSEG_CORU_STR-MIGO_ELIKZ sy-vline 
WA_IMSEG_CORU_STR-SGTXT sy-vline 
WA_IMSEG_CORU_STR-WEMPF sy-vline 
WA_IMSEG_CORU_STR-ABLAD sy-vline 
WA_IMSEG_CORU_STR-RSNUM sy-vline 
WA_IMSEG_CORU_STR-RSPOS sy-vline 
WA_IMSEG_CORU_STR-RSART sy-vline 
WA_IMSEG_CORU_STR-KZEAR sy-vline 
WA_IMSEG_CORU_STR-UMMAT sy-vline 
WA_IMSEG_CORU_STR-UMWRK sy-vline 
WA_IMSEG_CORU_STR-UMLGO sy-vline 
WA_IMSEG_CORU_STR-UMCHA sy-vline 
WA_IMSEG_CORU_STR-ZEKKN sy-vline 
WA_IMSEG_CORU_STR-ERFMG_ABD sy-vline 
WA_IMSEG_CORU_STR-BPMNG_ABD sy-vline 
WA_IMSEG_CORU_STR-BSTMG_ABD sy-vline 
WA_IMSEG_CORU_STR-XHISTMA sy-vline 
WA_IMSEG_CORU_STR-MULKO sy-vline 
WA_IMSEG_CORU_STR-SGT_SCAT sy-vline 
WA_IMSEG_CORU_STR-SGT_UMSCAT sy-vline 
WA_IMSEG_CORU_STR-SGT_UMSSREL sy-vline 
WA_IMSEG_CORU_STR-SGT_SSREL sy-vline 
WA_IMSEG_CORU_STR-SGT_RCAT sy-vline 
WA_IMSEG_CORU_STR-LGNUM sy-vline 
WA_IMSEG_CORU_STR-LGTYP sy-vline 
WA_IMSEG_CORU_STR-LGPLA sy-vline 
WA_IMSEG_CORU_STR-GRUND sy-vline 
WA_IMSEG_CORU_STR-EVERS sy-vline 
WA_IMSEG_CORU_STR-EVERE sy-vline 
WA_IMSEG_CORU_STR-KONTO sy-vline 
WA_IMSEG_CORU_STR-UMZST sy-vline 
WA_IMSEG_CORU_STR-UMZUS sy-vline 
WA_IMSEG_CORU_STR-UMBAR sy-vline 
WA_IMSEG_CORU_STR-LFBJA sy-vline 
WA_IMSEG_CORU_STR-LFBNR sy-vline 
WA_IMSEG_CORU_STR-LFPOS sy-vline 
WA_IMSEG_CORU_STR-VFDAT sy-vline 
WA_IMSEG_CORU_STR-CLASS sy-vline 
WA_IMSEG_CORU_STR-UMCLA sy-vline 
WA_IMSEG_CORU_STR-XCLAS sy-vline 
WA_IMSEG_CORU_STR-UMXCL sy-vline 
WA_IMSEG_CORU_STR-OBJNR sy-vline 
WA_IMSEG_CORU_STR-BSTMG sy-vline 
WA_IMSEG_CORU_STR-BSSKZ sy-vline 
WA_IMSEG_CORU_STR-GEBEH sy-vline 
WA_IMSEG_CORU_STR-ANZGEB sy-vline 
WA_IMSEG_CORU_STR-MAT_KDAUF sy-vline 
WA_IMSEG_CORU_STR-MAT_KDPOS sy-vline 
WA_IMSEG_CORU_STR-MAT_PSPNR sy-vline 
WA_IMSEG_CORU_STR-HSDAT sy-vline 
WA_IMSEG_CORU_STR-LICHA sy-vline 
WA_IMSEG_CORU_STR-MWSKZ sy-vline 
WA_IMSEG_CORU_STR-TXJCD sy-vline 
WA_IMSEG_CORU_STR-VLIEF_AVIS sy-vline 
WA_IMSEG_CORU_STR-VBELP_AVIS sy-vline 
WA_IMSEG_CORU_STR-VBELN sy-vline 
WA_IMSEG_CORU_STR-POSNR sy-vline 
WA_IMSEG_CORU_STR-ETENS sy-vline 
WA_IMSEG_CORU_STR-KALSM sy-vline 
WA_IMSEG_CORU_STR-GLOBAL_COUNTER sy-vline 
WA_IMSEG_CORU_STR-LSMNG sy-vline 
WA_IMSEG_CORU_STR-LSMEH sy-vline 
WA_IMSEG_CORU_STR-UPTYP sy-vline 
WA_IMSEG_CORU_STR-ANZSN sy-vline 
WA_IMSEG_CORU_STR-XSAUT sy-vline 
WA_IMSEG_CORU_STR-REVLV sy-vline 
WA_IMSEG_CORU_STR-EMATN sy-vline 
WA_IMSEG_CORU_STR-CUOBJ_CH sy-vline 
WA_IMSEG_CORU_STR-UMCUOBJ_CH sy-vline 
WA_IMSEG_CORU_STR-KOSTL sy-vline 
WA_IMSEG_CORU_STR-AUFNR sy-vline 
WA_IMSEG_CORU_STR-PS_PSP_PNR sy-vline 
WA_IMSEG_CORU_STR-KDAUF sy-vline 
WA_IMSEG_CORU_STR-KDPOS sy-vline 
WA_IMSEG_CORU_STR-KDEIN sy-vline 
WA_IMSEG_CORU_STR-NPLNR sy-vline 
WA_IMSEG_CORU_STR-VORNR sy-vline 
WA_IMSEG_CORU_STR-FIPOS sy-vline 
WA_IMSEG_CORU_STR-ANLN1 sy-vline 
WA_IMSEG_CORU_STR-ANLN2 sy-vline 
WA_IMSEG_CORU_STR-PAOBJNR sy-vline 
WA_IMSEG_CORU_STR-IMKEY sy-vline 
WA_IMSEG_CORU_STR-GEBER sy-vline 
WA_IMSEG_CORU_STR-FISTL sy-vline 
WA_IMSEG_CORU_STR-FKBER sy-vline 
WA_IMSEG_CORU_STR-LSTAR sy-vline 
WA_IMSEG_CORU_STR-PRZNR sy-vline 
WA_IMSEG_CORU_STR-KSTRG sy-vline 
WA_IMSEG_CORU_STR-GSBER sy-vline 
WA_IMSEG_CORU_STR-PRCTR sy-vline 
WA_IMSEG_CORU_STR-BUKRS sy-vline 
WA_IMSEG_CORU_STR-GRANT_NBR sy-vline 
WA_IMSEG_CORU_STR-MEASURE sy-vline 
WA_IMSEG_CORU_STR-BUDGET_PD sy-vline 
WA_IMSEG_CORU_STR-DUMMY_INCL_EEW_COBL sy-vline 
WA_IMSEG_CORU_STR-KBLNR sy-vline 
WA_IMSEG_CORU_STR-KBLPOS sy-vline 
WA_IMSEG_CORU_STR-FMFGUS_KEY sy-vline 
WA_IMSEG_CORU_STR-VPTNR sy-vline 
WA_IMSEG_CORU_STR-CONDI sy-vline 
WA_IMSEG_CORU_STR-CRPCAL sy-vline 
WA_IMSEG_CORU_STR-RECID sy-vline 
WA_IMSEG_CORU_STR-BEMOT sy-vline 
WA_IMSEG_CORU_STR-SERVICE_DOC_TYPE sy-vline 
WA_IMSEG_CORU_STR-SERVICE_DOC_ID sy-vline 
WA_IMSEG_CORU_STR-SERVICE_DOC_ITEM_ID sy-vline 
WA_IMSEG_CORU_STR-AUFPS sy-vline 
WA_IMSEG_CORU_STR-AUFPL sy-vline 
WA_IMSEG_CORU_STR-APLZL sy-vline 
WA_IMSEG_CORU_STR-DABRZ sy-vline 
WA_IMSEG_CORU_STR-EAN11_BME sy-vline 
WA_IMSEG_CORU_STR-EAN11_KON sy-vline 
WA_IMSEG_CORU_STR-EANME sy-vline 
WA_IMSEG_CORU_STR-WEANZ sy-vline 
WA_IMSEG_CORU_STR-WEANZX sy-vline 
WA_IMSEG_CORU_STR-R_MBLNR sy-vline 
WA_IMSEG_CORU_STR-R_MJAHR sy-vline 
WA_IMSEG_CORU_STR-DUMMY3 sy-vline 
WA_IMSEG_CORU_STR-BATCH_TYPE sy-vline 
WA_IMSEG_CORU_STR-SERVICEPERFORMER sy-vline 
WA_IMSEG_CORU_STR-PERNR sy-vline 
WA_IMSEG_CORU_STR-KNTTP_GR sy-vline 
WA_IMSEG_CORU_STR-WORK_ITEM_ID sy-vline 
WA_IMSEG_CORU_STR-FBUDA sy-vline 
WA_IMSEG_CORU_STR-EWM_LGNUM sy-vline 
WA_IMSEG_CORU_STR-EWM_LGPLA sy-vline 
WA_IMSEG_CORU_STR-EWM_DIFF_ANA sy-vline 
WA_IMSEG_CORU_STR-EWM_INSPUUID sy-vline 
WA_IMSEG_CORU_STR-RESOURCENAME_SID sy-vline 
WA_IMSEG_CORU_STR-RESOURCENAME_CID sy-vline 
WA_IMSEG_CORU_STR-DUMMY_MATDOC_INCL_EEW_PS sy-vline 
WA_IMSEG_CORU_STR-/CWM/MENGE sy-vline 
WA_IMSEG_CORU_STR-/CWM/MEINS sy-vline 
WA_IMSEG_CORU_STR-/CWM/ERFMG sy-vline 
WA_IMSEG_CORU_STR-/CWM/ERFME sy-vline 
WA_IMSEG_CORU_STR-/CWM/TY2TQ sy-vline 
WA_IMSEG_CORU_STR-/CWM/UMTY2TQ sy-vline 
WA_IMSEG_CORU_STR-XPCBT sy-vline 
WA_IMSEG_CORU_STR-UMXPC sy-vline 
WA_IMSEG_CORU_STR-FSH_SEASON_YEAR sy-vline 
WA_IMSEG_CORU_STR-FSH_SEASON sy-vline 
WA_IMSEG_CORU_STR-FSH_COLLECTION sy-vline 
WA_IMSEG_CORU_STR-FSH_THEME sy-vline 
WA_IMSEG_CORU_STR-FSH_SEALV sy-vline 
WA_IMSEG_CORU_STR-FSH_UMSEA_YR sy-vline 
WA_IMSEG_CORU_STR-FSH_UMSEA sy-vline 
WA_IMSEG_CORU_STR-FSH_UMCOLL sy-vline 
WA_IMSEG_CORU_STR-FSH_UMTHEME sy-vline 
WA_IMSEG_CORU_STR-FSH_DEALLOC_QTY sy-vline 
WA_IMSEG_CORU_STR-FSH_SEAIM sy-vline 
WA_IMSEG_CORU_STR-ASS_PSPNR sy-vline 
WA_IMSEG_CORU_STR-WRF_CHARSTC1 sy-vline 
WA_IMSEG_CORU_STR-WRF_CHARSTC2 sy-vline 
WA_IMSEG_CORU_STR-WRF_CHARSTC3 sy-vline 
WA_IMSEG_CORU_STR-WTY_IND sy-vline 
WA_IMSEG_CORU_STR-KZVBR sy-vline 
WA_IMSEG_CORU_STR-WEUNB sy-vline 
WA_IMSEG_CORU_STR-SHKZG sy-vline 
WA_IMSEG_CORU_STR-WAERS sy-vline 
WA_IMSEG_CORU_STR-DMBTR sy-vline 
WA_IMSEG_CORU_STR-RSHKZ sy-vline 
WA_IMSEG_CORU_STR-BDMNG sy-vline 
WA_IMSEG_CORU_STR-ENMNG sy-vline 
WA_IMSEG_CORU_STR-QPLOS sy-vline 
WA_IMSEG_CORU_STR-SJAHR sy-vline 
WA_IMSEG_CORU_STR-SMBLN sy-vline 
WA_IMSEG_CORU_STR-SMBLP sy-vline 
WA_IMSEG_CORU_STR-QM_ZUSTD sy-vline 
WA_IMSEG_CORU_STR-QM_UMZST sy-vline 
WA_IMSEG_CORU_STR-BWLVS sy-vline 
WA_IMSEG_CORU_STR-UMREZ sy-vline 
WA_IMSEG_CORU_STR-UMREN sy-vline 
WA_IMSEG_CORU_STR-BDTER sy-vline 
WA_IMSEG_CORU_STR-TBBEL sy-vline 
WA_IMSEG_CORU_STR-TBBPO sy-vline 
WA_IMSEG_CORU_STR-TBBJR sy-vline 
WA_IMSEG_CORU_STR-AUTYP sy-vline 
WA_IMSEG_CORU_STR-QPLOA sy-vline 
WA_IMSEG_CORU_STR-TBPKZ sy-vline 
WA_IMSEG_CORU_STR-TAFKZ sy-vline 
WA_IMSEG_CORU_STR-KZEAR_OLD sy-vline 
WA_IMSEG_CORU_STR-UMLGT sy-vline 
WA_IMSEG_CORU_STR-UMLGP sy-vline 
WA_IMSEG_CORU_STR-MHDAT sy-vline 
WA_IMSEG_CORU_STR-EXIDV sy-vline 
WA_IMSEG_CORU_STR-BERKZ sy-vline 
WA_IMSEG_CORU_STR-PRVBE sy-vline 
WA_IMSEG_CORU_STR-KZECH sy-vline 
WA_IMSEG_CORU_STR-REFIX sy-vline 
WA_IMSEG_CORU_STR-ILINR sy-vline 
WA_IMSEG_CORU_STR-VOLUM sy-vline 
WA_IMSEG_CORU_STR-VOLEH sy-vline 
WA_IMSEG_CORU_STR-ANZL1 sy-vline 
WA_IMSEG_CORU_STR-ANZL2 sy-vline 
WA_IMSEG_CORU_STR-LMEN1 sy-vline 
WA_IMSEG_CORU_STR-LMEN2 sy-vline 
WA_IMSEG_CORU_STR-LETY1 sy-vline 
WA_IMSEG_CORU_STR-LETY2 sy-vline 
WA_IMSEG_CORU_STR-KZKUB sy-vline 
WA_IMSEG_CORU_STR-UBTYP sy-vline 
WA_IMSEG_CORU_STR-UBLGP sy-vline 
WA_IMSEG_CORU_STR-MBLNR sy-vline 
WA_IMSEG_CORU_STR-MBLPO sy-vline 
WA_IMSEG_CORU_STR-MJAHR sy-vline 
WA_IMSEG_CORU_STR-URZEI sy-vline 
WA_IMSEG_CORU_STR-KZBWS sy-vline 
WA_IMSEG_CORU_STR-KDAUF_SD sy-vline 
WA_IMSEG_CORU_STR-KDPOS_SD sy-vline 
WA_IMSEG_CORU_STR-BRGEW sy-vline 
WA_IMSEG_CORU_STR-GEWEI sy-vline 
WA_IMSEG_CORU_STR-WM_KZBEW sy-vline 
WA_IMSEG_CORU_STR-WENUM sy-vline 
WA_IMSEG_CORU_STR-KANBA sy-vline 
WA_IMSEG_CORU_STR-LFBJA_INTERNAL sy-vline 
WA_IMSEG_CORU_STR-LFBNR_INTERNAL sy-vline 
WA_IMSEG_CORU_STR-LFPOS_INTERNAL sy-vline 
WA_IMSEG_CORU_STR-UPVOR sy-vline 
WA_IMSEG_CORU_STR-PABNUM sy-vline 
WA_IMSEG_CORU_STR-PABPOS sy-vline 
WA_IMSEG_CORU_STR-PKKEY sy-vline 
WA_IMSEG_CORU_STR-PARBU sy-vline 
WA_IMSEG_CORU_STR-PARGB sy-vline 
WA_IMSEG_CORU_STR-PPRCTR sy-vline 
WA_IMSEG_CORU_STR-LIFNR sy-vline 
WA_IMSEG_CORU_STR-EXBWR sy-vline 
WA_IMSEG_CORU_STR-EXVKW sy-vline 
WA_IMSEG_CORU_STR-LLIEF sy-vline 
WA_IMSEG_CORU_STR-J_1BEXBASE sy-vline 
WA_IMSEG_CORU_STR-WEMPFX sy-vline 
WA_IMSEG_CORU_STR-ABLADX sy-vline 
WA_IMSEG_CORU_STR-OBJTYPE sy-vline 
WA_IMSEG_CORU_STR-SPE_GTS_STOCK_TY sy-vline 
WA_IMSEG_CORU_STR-SPE_UM_GTS_ST_TY sy-vline 
WA_IMSEG_CORU_STR-KUNNR_CC sy-vline 
WA_IMSEG_CORU_STR-VBUND_CC sy-vline 
WA_IMSEG_CORU_STR-/CWM/NOTOLCHECK sy-vline 
WA_IMSEG_CORU_STR-/CWM/BDMNG sy-vline 
WA_IMSEG_CORU_STR-/CWM/ENMNG sy-vline 
WA_IMSEG_CORU_STR-DISUB_OWNER sy-vline 
WA_IMSEG_CORU_STR-LFDAT sy-vline 
WA_IMSEG_CORU_STR-SPDNR sy-vline 
WA_IMSEG_CORU_STR-COMPL_MARK sy-vline 
WA_IMSEG_CORU_STR-FZGLS_MARK sy-vline 
WA_IMSEG_CORU_STR-ETANP_MARK sy-vline 
WA_IMSEG_CORU_STR-RUECK sy-vline 
WA_IMSEG_CORU_STR-RMZHL sy-vline 
WA_IMSEG_CORU_STR-AUFNR_T sy-vline 
WA_IMSEG_CORU_STR-BUDAT sy-vline 
WA_IMSEG_CORU_STR-BLDAT sy-vline      INTO ld_text SEPARATED BY SPACE.

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