ABAP Select data from SAP table COTAR_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 COTAR_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 COTAR_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 COTAR_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_COTAR_CURR TYPE STANDARD TABLE OF COTAR_CURR,
      WA_COTAR_CURR TYPE COTAR_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: <COTAR_CURR> TYPE COTAR_CURR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM COTAR_CURR
*  INTO TABLE @DATA(IT_COTAR_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_COTAR_CURR INDEX 1 INTO DATA(WA_COTAR_CURR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<COTAR_CURR>-RLDNR = 1.
<COTAR_CURR>-VERSN = 1.
<COTAR_CURR>-CATEGORY = 1.
<COTAR_CURR>-WRTTP = 1.
<COTAR_CURR>-LEDGER_OF_RATE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_COTAR_CURR-TWAER, sy-vline,
  WA_COTAR_CURR-TTG, sy-vline,
  WA_COTAR_CURR-TTF, sy-vline,
  WA_COTAR_CURR-TTE, sy-vline,
  WA_COTAR_CURR-TTE_UOM, sy-vline,
  WA_COTAR_CURR-KCURTP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_COTAR_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_COTAR_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_COTAR_CURR INTO WA_COTAR_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_COTAR_CURR-RLDNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COTAR_CURR-RLDNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit AC112, internal->external for field THF
CALL FUNCTION 'CONVERSION_EXIT_AC112_OUTPUT'
  EXPORTING
    input =                      WA_COTAR_CURR-THF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_COTAR_CURR-THF.
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_COTAR_CURR_STR, 
RLDNR TYPE STRING,
VERSN TYPE STRING,
CATEGORY TYPE STRING,
WRTTP TYPE STRING,
LEDGER_OF_RATE TYPE STRING,
TWAER TYPE STRING,
TTG TYPE STRING,
TTF TYPE STRING,
TTE TYPE STRING,
TTE_UOM TYPE STRING,
KCURTP TYPE STRING,
KWAER TYPE STRING,
TKG TYPE STRING,
TKF TYPE STRING,
TKE TYPE STRING,
OCURTP TYPE STRING,
OWAER TYPE STRING,
TOG TYPE STRING,
TOF TYPE STRING,
TOE TYPE STRING,
ACURTP TYPE STRING,
AWAER TYPE STRING,
TAG TYPE STRING,
TAF TYPE STRING,
TAE TYPE STRING,
VCURTP TYPE STRING,
VWAER TYPE STRING,
TVG TYPE STRING,
TVF TYPE STRING,
TVE TYPE STRING,
BCURTP TYPE STRING,
BWAER TYPE STRING,
TBG TYPE STRING,
TBF TYPE STRING,
TBE TYPE STRING,
CCURTP TYPE STRING,
CWAER TYPE STRING,
TCG TYPE STRING,
TCF TYPE STRING,
TCE TYPE STRING,
DCURTP TYPE STRING,
DWAER TYPE STRING,
TDG TYPE STRING,
TDF TYPE STRING,
TDE TYPE STRING,
ECURTP TYPE STRING,
EWAER TYPE STRING,
TEG TYPE STRING,
TEF TYPE STRING,
TEE TYPE STRING,
FCURTP TYPE STRING,
FWAER TYPE STRING,
TFG TYPE STRING,
TFF TYPE STRING,
TFE TYPE STRING,
GCURTP TYPE STRING,
GWAER TYPE STRING,
TGG TYPE STRING,
TGF TYPE STRING,
TGE TYPE STRING,
HCURTP TYPE STRING,
HWAER TYPE STRING,
THG TYPE STRING,
THF TYPE STRING,
THE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_COTAR_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_COTAR_CURR_STR-RLDNR sy-vline 
WA_COTAR_CURR_STR-VERSN sy-vline 
WA_COTAR_CURR_STR-CATEGORY sy-vline 
WA_COTAR_CURR_STR-WRTTP sy-vline 
WA_COTAR_CURR_STR-LEDGER_OF_RATE sy-vline 
WA_COTAR_CURR_STR-TWAER sy-vline 
WA_COTAR_CURR_STR-TTG sy-vline 
WA_COTAR_CURR_STR-TTF sy-vline 
WA_COTAR_CURR_STR-TTE sy-vline 
WA_COTAR_CURR_STR-TTE_UOM sy-vline 
WA_COTAR_CURR_STR-KCURTP sy-vline 
WA_COTAR_CURR_STR-KWAER sy-vline 
WA_COTAR_CURR_STR-TKG sy-vline 
WA_COTAR_CURR_STR-TKF sy-vline 
WA_COTAR_CURR_STR-TKE sy-vline 
WA_COTAR_CURR_STR-OCURTP sy-vline 
WA_COTAR_CURR_STR-OWAER sy-vline 
WA_COTAR_CURR_STR-TOG sy-vline 
WA_COTAR_CURR_STR-TOF sy-vline 
WA_COTAR_CURR_STR-TOE sy-vline 
WA_COTAR_CURR_STR-ACURTP sy-vline 
WA_COTAR_CURR_STR-AWAER sy-vline 
WA_COTAR_CURR_STR-TAG sy-vline 
WA_COTAR_CURR_STR-TAF sy-vline 
WA_COTAR_CURR_STR-TAE sy-vline 
WA_COTAR_CURR_STR-VCURTP sy-vline 
WA_COTAR_CURR_STR-VWAER sy-vline 
WA_COTAR_CURR_STR-TVG sy-vline 
WA_COTAR_CURR_STR-TVF sy-vline 
WA_COTAR_CURR_STR-TVE sy-vline 
WA_COTAR_CURR_STR-BCURTP sy-vline 
WA_COTAR_CURR_STR-BWAER sy-vline 
WA_COTAR_CURR_STR-TBG sy-vline 
WA_COTAR_CURR_STR-TBF sy-vline 
WA_COTAR_CURR_STR-TBE sy-vline 
WA_COTAR_CURR_STR-CCURTP sy-vline 
WA_COTAR_CURR_STR-CWAER sy-vline 
WA_COTAR_CURR_STR-TCG sy-vline 
WA_COTAR_CURR_STR-TCF sy-vline 
WA_COTAR_CURR_STR-TCE sy-vline 
WA_COTAR_CURR_STR-DCURTP sy-vline 
WA_COTAR_CURR_STR-DWAER sy-vline 
WA_COTAR_CURR_STR-TDG sy-vline 
WA_COTAR_CURR_STR-TDF sy-vline 
WA_COTAR_CURR_STR-TDE sy-vline 
WA_COTAR_CURR_STR-ECURTP sy-vline 
WA_COTAR_CURR_STR-EWAER sy-vline 
WA_COTAR_CURR_STR-TEG sy-vline 
WA_COTAR_CURR_STR-TEF sy-vline 
WA_COTAR_CURR_STR-TEE sy-vline 
WA_COTAR_CURR_STR-FCURTP sy-vline 
WA_COTAR_CURR_STR-FWAER sy-vline 
WA_COTAR_CURR_STR-TFG sy-vline 
WA_COTAR_CURR_STR-TFF sy-vline 
WA_COTAR_CURR_STR-TFE sy-vline 
WA_COTAR_CURR_STR-GCURTP sy-vline 
WA_COTAR_CURR_STR-GWAER sy-vline 
WA_COTAR_CURR_STR-TGG sy-vline 
WA_COTAR_CURR_STR-TGF sy-vline 
WA_COTAR_CURR_STR-TGE sy-vline 
WA_COTAR_CURR_STR-HCURTP sy-vline 
WA_COTAR_CURR_STR-HWAER sy-vline 
WA_COTAR_CURR_STR-THG sy-vline 
WA_COTAR_CURR_STR-THF sy-vline 
WA_COTAR_CURR_STR-THE sy-vline      INTO ld_text SEPARATED BY SPACE.

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