ABAP Select data from SAP table TCORU 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 TCORU 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 TCORU. 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 TCORU 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_TCORU TYPE STANDARD TABLE OF TCORU,
      WA_TCORU TYPE TCORU,
      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: <TCORU> TYPE TCORU.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM TCORU
*  INTO TABLE @DATA(IT_TCORU2).
*--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_TCORU INDEX 1 INTO DATA(WA_TCORU2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<TCORU>-MANDT = 1.
<TCORU>-WERKS = 1.
<TCORU>-AUART = 1.
<TCORU>-UNTLI = 1.
<TCORU>-UEBLI = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_TCORU-AUSOR, sy-vline,
  WA_TCORU-AUERU, sy-vline,
  WA_TCORU-ZEVGZ, sy-vline,
  WA_TCORU-ZESTD, sy-vline,
  WA_TCORU-ZEMIN, sy-vline,
  WA_TCORU-AZSMG, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_TCORU 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_TCORU 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_TCORU INTO WA_TCORU.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_TCORU_STR, 
MANDT TYPE STRING,
WERKS TYPE STRING,
AUART TYPE STRING,
UNTLI TYPE STRING,
UEBLI TYPE STRING,
AUSOR TYPE STRING,
AUERU TYPE STRING,
ZEVGZ TYPE STRING,
ZESTD TYPE STRING,
ZEMIN TYPE STRING,
AZSMG TYPE STRING,
AZSLE TYPE STRING,
AZSZT TYPE STRING,
AZSZU TYPE STRING,
VSSMG TYPE STRING,
VSSLE TYPE STRING,
VSSZT TYPE STRING,
VSSZU TYPE STRING,
AZIMG TYPE STRING,
AZILE TYPE STRING,
AZIZT TYPE STRING,
ISERF TYPE STRING,
SCHAE TYPE STRING,
MRFLG TYPE STRING,
TRMZK TYPE STRING,
ABARB TYPE STRING,
ABDAU TYPE STRING,
CPROT TYPE STRING,
GPROT TYPE STRING,
ABARB_AKT TYPE STRING,
ABDAU_AKT TYPE STRING,
ACOMP TYPE STRING,
ABARB_WFL TYPE STRING,
ABDAU_WFL TYPE STRING,
GMOVJ TYPE STRING,
COSTJ TYPE STRING,
CAPAJ TYPE STRING,
PRZST TYPE STRING,
MSDRK TYPE STRING,
ERUVG TYPE STRING,
RUFHG TYPE STRING,
QRMDE TYPE STRING,
CALC_PERF TYPE STRING,
NODAT TYPE STRING,
MLSLO TYPE STRING,
CCANC TYPE STRING,
GCANC TYPE STRING,
CANCL_INDI TYPE STRING,
CANCL_CNT TYPE STRING,
CANCL_FCAS TYPE STRING,
MLST_EXE TYPE STRING,
MLTPS TYPE STRING,
PROFILE TYPE STRING,
QMART TYPE STRING,
SHIFT_PROP TYPE STRING,
CUST_OPR_CNF TYPE STRING,
CUST_HDR_CNF TYPE STRING,
SUBQTY_HDR_CNF TYPE STRING,
SHIFT_HDR_CNF TYPE STRING,END OF T_EKKO_STR.
DATA: WA_TCORU_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_TCORU_STR-MANDT sy-vline 
WA_TCORU_STR-WERKS sy-vline 
WA_TCORU_STR-AUART sy-vline 
WA_TCORU_STR-UNTLI sy-vline 
WA_TCORU_STR-UEBLI sy-vline 
WA_TCORU_STR-AUSOR sy-vline 
WA_TCORU_STR-AUERU sy-vline 
WA_TCORU_STR-ZEVGZ sy-vline 
WA_TCORU_STR-ZESTD sy-vline 
WA_TCORU_STR-ZEMIN sy-vline 
WA_TCORU_STR-AZSMG sy-vline 
WA_TCORU_STR-AZSLE sy-vline 
WA_TCORU_STR-AZSZT sy-vline 
WA_TCORU_STR-AZSZU sy-vline 
WA_TCORU_STR-VSSMG sy-vline 
WA_TCORU_STR-VSSLE sy-vline 
WA_TCORU_STR-VSSZT sy-vline 
WA_TCORU_STR-VSSZU sy-vline 
WA_TCORU_STR-AZIMG sy-vline 
WA_TCORU_STR-AZILE sy-vline 
WA_TCORU_STR-AZIZT sy-vline 
WA_TCORU_STR-ISERF sy-vline 
WA_TCORU_STR-SCHAE sy-vline 
WA_TCORU_STR-MRFLG sy-vline 
WA_TCORU_STR-TRMZK sy-vline 
WA_TCORU_STR-ABARB sy-vline 
WA_TCORU_STR-ABDAU sy-vline 
WA_TCORU_STR-CPROT sy-vline 
WA_TCORU_STR-GPROT sy-vline 
WA_TCORU_STR-ABARB_AKT sy-vline 
WA_TCORU_STR-ABDAU_AKT sy-vline 
WA_TCORU_STR-ACOMP sy-vline 
WA_TCORU_STR-ABARB_WFL sy-vline 
WA_TCORU_STR-ABDAU_WFL sy-vline 
WA_TCORU_STR-GMOVJ sy-vline 
WA_TCORU_STR-COSTJ sy-vline 
WA_TCORU_STR-CAPAJ sy-vline 
WA_TCORU_STR-PRZST sy-vline 
WA_TCORU_STR-MSDRK sy-vline 
WA_TCORU_STR-ERUVG sy-vline 
WA_TCORU_STR-RUFHG sy-vline 
WA_TCORU_STR-QRMDE sy-vline 
WA_TCORU_STR-CALC_PERF sy-vline 
WA_TCORU_STR-NODAT sy-vline 
WA_TCORU_STR-MLSLO sy-vline 
WA_TCORU_STR-CCANC sy-vline 
WA_TCORU_STR-GCANC sy-vline 
WA_TCORU_STR-CANCL_INDI sy-vline 
WA_TCORU_STR-CANCL_CNT sy-vline 
WA_TCORU_STR-CANCL_FCAS sy-vline 
WA_TCORU_STR-MLST_EXE sy-vline 
WA_TCORU_STR-MLTPS sy-vline 
WA_TCORU_STR-PROFILE sy-vline 
WA_TCORU_STR-QMART sy-vline 
WA_TCORU_STR-SHIFT_PROP sy-vline 
WA_TCORU_STR-CUST_OPR_CNF sy-vline 
WA_TCORU_STR-CUST_HDR_CNF sy-vline 
WA_TCORU_STR-SUBQTY_HDR_CNF sy-vline 
WA_TCORU_STR-SHIFT_HDR_CNF sy-vline      INTO ld_text SEPARATED BY SPACE.

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