ABAP Select data from SAP table COCURR5_VAL 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 COCURR5_VAL 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 COCURR5_VAL. 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 COCURR5_VAL 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_COCURR5_VAL TYPE STANDARD TABLE OF COCURR5_VAL,
      WA_COCURR5_VAL TYPE COCURR5_VAL,
      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: <COCURR5_VAL> TYPE COCURR5_VAL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM COCURR5_VAL
*  INTO TABLE @DATA(IT_COCURR5_VAL2).
*--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_COCURR5_VAL INDEX 1 INTO DATA(WA_COCURR5_VAL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<COCURR5_VAL>-DWAER = 1.
<COCURR5_VAL>-WDG001 = 1.
<COCURR5_VAL>-WDG002 = 1.
<COCURR5_VAL>-WDG003 = 1.
<COCURR5_VAL>-WDG004 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_COCURR5_VAL-WDG005, sy-vline,
  WA_COCURR5_VAL-WDG006, sy-vline,
  WA_COCURR5_VAL-WDG007, sy-vline,
  WA_COCURR5_VAL-WDG008, sy-vline,
  WA_COCURR5_VAL-WDG009, sy-vline,
  WA_COCURR5_VAL-WDG010, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_COCURR5_VAL 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_COCURR5_VAL 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_COCURR5_VAL INTO WA_COCURR5_VAL.


*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 AC152, internal->external for field WDG001
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG001
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG001.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG002
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG002
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG002.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG003
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG003
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG003.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG004
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG004
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG004.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG005
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG005
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG005.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG006
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG006
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG006.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG007
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG007
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG007.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG008
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG008
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG008.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG009
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG009
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG009.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG010
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG010
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG010.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG011
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG011
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG011.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG012
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG012
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG012.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG013
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG013
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG013.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG014
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG014
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG014.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG015
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG015
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG015.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field WDG016
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_COCURR5_VAL-WDG016
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COCURR5_VAL-WDG016.
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_COCURR5_VAL_STR, 
DWAER TYPE STRING,
WDG001 TYPE STRING,
WDG002 TYPE STRING,
WDG003 TYPE STRING,
WDG004 TYPE STRING,
WDG005 TYPE STRING,
WDG006 TYPE STRING,
WDG007 TYPE STRING,
WDG008 TYPE STRING,
WDG009 TYPE STRING,
WDG010 TYPE STRING,
WDG011 TYPE STRING,
WDG012 TYPE STRING,
WDG013 TYPE STRING,
WDG014 TYPE STRING,
WDG015 TYPE STRING,
WDG016 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_COCURR5_VAL_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_COCURR5_VAL_STR-DWAER sy-vline 
WA_COCURR5_VAL_STR-WDG001 sy-vline 
WA_COCURR5_VAL_STR-WDG002 sy-vline 
WA_COCURR5_VAL_STR-WDG003 sy-vline 
WA_COCURR5_VAL_STR-WDG004 sy-vline 
WA_COCURR5_VAL_STR-WDG005 sy-vline 
WA_COCURR5_VAL_STR-WDG006 sy-vline 
WA_COCURR5_VAL_STR-WDG007 sy-vline 
WA_COCURR5_VAL_STR-WDG008 sy-vline 
WA_COCURR5_VAL_STR-WDG009 sy-vline 
WA_COCURR5_VAL_STR-WDG010 sy-vline 
WA_COCURR5_VAL_STR-WDG011 sy-vline 
WA_COCURR5_VAL_STR-WDG012 sy-vline 
WA_COCURR5_VAL_STR-WDG013 sy-vline 
WA_COCURR5_VAL_STR-WDG014 sy-vline 
WA_COCURR5_VAL_STR-WDG015 sy-vline 
WA_COCURR5_VAL_STR-WDG016 sy-vline      INTO ld_text SEPARATED BY SPACE.

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