ABAP Select data from SAP table COCOMPRC_CURR 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 COCOMPRC_CURR 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 COCOMPRC_CURR. 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 COCOMPRC_CURR 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_COCOMPRC_CURR TYPE STANDARD TABLE OF COCOMPRC_CURR,
      WA_COCOMPRC_CURR TYPE COCOMPRC_CURR,
      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: <COCOMPRC_CURR> TYPE COCOMPRC_CURR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM COCOMPRC_CURR
*  INTO TABLE @DATA(IT_COCOMPRC_CURR2).
*--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_COCOMPRC_CURR INDEX 1 INTO DATA(WA_COCOMPRC_CURR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<COCOMPRC_CURR>-RLDNR = 1.
<COCOMPRC_CURR>-OBJNR = 1.
<COCOMPRC_CURR>-GJAHR = 1.
<COCOMPRC_CURR>-WRTTP = 1.
<COCOMPRC_CURR>-VERSN = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_COCOMPRC_CURR-PERIO, sy-vline,
  WA_COCOMPRC_CURR-ELEMT, sy-vline,
  WA_COCOMPRC_CURR-KCURTP, sy-vline,
  WA_COCOMPRC_CURR-KWAER, sy-vline,
  WA_COCOMPRC_CURR-SPRCG_K, sy-vline,
  WA_COCOMPRC_CURR-SPRCF_K, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_COCOMPRC_CURR 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_COCOMPRC_CURR 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_COCOMPRC_CURR INTO WA_COCOMPRC_CURR.


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

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

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

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

*Conversion exit AC112, internal->external for field SPRCG_K
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_K
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_K.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_K
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_K
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_K.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_K
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_K
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_K.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_O
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_O
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_O.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_O
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_O
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_O.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_O
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_O
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_O.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_A
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_A
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_A.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_A
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_A
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_A.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_A
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_A
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_A.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_V
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_V
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_V
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_V
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_V.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_B
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_B
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_B.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_B
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_B
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_B.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_B
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_B
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_B.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_C
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_C
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_C.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_C
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_C
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_C.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_C
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_C
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_C.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_D
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_D
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_D
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_E
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_E
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_E.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_E
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_E
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_E.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_E
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_E
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_E.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_F
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_F
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_F.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_F
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_F
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_F.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_F
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_F
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_F.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_G
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_G
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_G.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_G
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_G
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_G.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_G
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_G
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_G.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCG_H
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCG_H
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCG_H.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCF_H
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCF_H
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCF_H.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC112, internal->external for field SPRCV_H
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COCOMPRC_CURR-SPRCV_H
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCOMPRC_CURR-SPRCV_H.
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_COCOMPRC_CURR_STR, 
RLDNR TYPE STRING,
OBJNR TYPE STRING,
GJAHR TYPE STRING,
WRTTP TYPE STRING,
VERSN TYPE STRING,
PERIO TYPE STRING,
ELEMT TYPE STRING,
KCURTP TYPE STRING,
KWAER TYPE STRING,
SPRCG_K TYPE STRING,
SPRCF_K TYPE STRING,
SPRCV_K TYPE STRING,
SPRCE_K TYPE STRING,
OCURTP TYPE STRING,
OWAER TYPE STRING,
SPRCG_O TYPE STRING,
SPRCF_O TYPE STRING,
SPRCV_O TYPE STRING,
SPRCE_O TYPE STRING,
ACURTP TYPE STRING,
AWAER TYPE STRING,
SPRCG_A TYPE STRING,
SPRCF_A TYPE STRING,
SPRCV_A TYPE STRING,
SPRCE_A TYPE STRING,
VCURTP TYPE STRING,
VWAER TYPE STRING,
SPRCG_V TYPE STRING,
SPRCF_V TYPE STRING,
SPRCV_V TYPE STRING,
SPRCE_V TYPE STRING,
BCURTP TYPE STRING,
BWAER TYPE STRING,
SPRCG_B TYPE STRING,
SPRCF_B TYPE STRING,
SPRCV_B TYPE STRING,
SPRCE_B TYPE STRING,
CCURTP TYPE STRING,
CWAER TYPE STRING,
SPRCG_C TYPE STRING,
SPRCF_C TYPE STRING,
SPRCV_C TYPE STRING,
SPRCE_C TYPE STRING,
DCURTP TYPE STRING,
DWAER TYPE STRING,
SPRCG_D TYPE STRING,
SPRCF_D TYPE STRING,
SPRCV_D TYPE STRING,
SPRCE_D TYPE STRING,
ECURTP TYPE STRING,
EWAER TYPE STRING,
SPRCG_E TYPE STRING,
SPRCF_E TYPE STRING,
SPRCV_E TYPE STRING,
SPRCE_E TYPE STRING,
FCURTP TYPE STRING,
FWAER TYPE STRING,
SPRCG_F TYPE STRING,
SPRCF_F TYPE STRING,
SPRCV_F TYPE STRING,
SPRCE_F TYPE STRING,
GCURTP TYPE STRING,
GWAER TYPE STRING,
SPRCG_G TYPE STRING,
SPRCF_G TYPE STRING,
SPRCV_G TYPE STRING,
SPRCE_G TYPE STRING,
HCURTP TYPE STRING,
HWAER TYPE STRING,
SPRCG_H TYPE STRING,
SPRCF_H TYPE STRING,
SPRCV_H TYPE STRING,
SPRCE_H TYPE STRING,END OF T_EKKO_STR.
DATA: WA_COCOMPRC_CURR_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_COCOMPRC_CURR_STR-RLDNR sy-vline 
WA_COCOMPRC_CURR_STR-OBJNR sy-vline 
WA_COCOMPRC_CURR_STR-GJAHR sy-vline 
WA_COCOMPRC_CURR_STR-WRTTP sy-vline 
WA_COCOMPRC_CURR_STR-VERSN sy-vline 
WA_COCOMPRC_CURR_STR-PERIO sy-vline 
WA_COCOMPRC_CURR_STR-ELEMT sy-vline 
WA_COCOMPRC_CURR_STR-KCURTP sy-vline 
WA_COCOMPRC_CURR_STR-KWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_K sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_K sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_K sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_K sy-vline 
WA_COCOMPRC_CURR_STR-OCURTP sy-vline 
WA_COCOMPRC_CURR_STR-OWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_O sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_O sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_O sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_O sy-vline 
WA_COCOMPRC_CURR_STR-ACURTP sy-vline 
WA_COCOMPRC_CURR_STR-AWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_A sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_A sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_A sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_A sy-vline 
WA_COCOMPRC_CURR_STR-VCURTP sy-vline 
WA_COCOMPRC_CURR_STR-VWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_V sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_V sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_V sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_V sy-vline 
WA_COCOMPRC_CURR_STR-BCURTP sy-vline 
WA_COCOMPRC_CURR_STR-BWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_B sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_B sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_B sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_B sy-vline 
WA_COCOMPRC_CURR_STR-CCURTP sy-vline 
WA_COCOMPRC_CURR_STR-CWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_C sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_C sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_C sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_C sy-vline 
WA_COCOMPRC_CURR_STR-DCURTP sy-vline 
WA_COCOMPRC_CURR_STR-DWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_D sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_D sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_D sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_D sy-vline 
WA_COCOMPRC_CURR_STR-ECURTP sy-vline 
WA_COCOMPRC_CURR_STR-EWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_E sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_E sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_E sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_E sy-vline 
WA_COCOMPRC_CURR_STR-FCURTP sy-vline 
WA_COCOMPRC_CURR_STR-FWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_F sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_F sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_F sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_F sy-vline 
WA_COCOMPRC_CURR_STR-GCURTP sy-vline 
WA_COCOMPRC_CURR_STR-GWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_G sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_G sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_G sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_G sy-vline 
WA_COCOMPRC_CURR_STR-HCURTP sy-vline 
WA_COCOMPRC_CURR_STR-HWAER sy-vline 
WA_COCOMPRC_CURR_STR-SPRCG_H sy-vline 
WA_COCOMPRC_CURR_STR-SPRCF_H sy-vline 
WA_COCOMPRC_CURR_STR-SPRCV_H sy-vline 
WA_COCOMPRC_CURR_STR-SPRCE_H sy-vline      INTO ld_text SEPARATED BY SPACE.

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