ABAP Select data from SAP table V_COCF_TCORU_N 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 V_COCF_TCORU_N 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 V_COCF_TCORU_N. 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 V_COCF_TCORU_N 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_V_COCF_TCORU_N TYPE STANDARD TABLE OF V_COCF_TCORU_N,
      WA_V_COCF_TCORU_N TYPE V_COCF_TCORU_N,
      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: <V_COCF_TCORU_N> TYPE V_COCF_TCORU_N.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM V_COCF_TCORU_N
*  INTO TABLE @DATA(IT_V_COCF_TCORU_N2).
*--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_V_COCF_TCORU_N INDEX 1 INTO DATA(WA_V_COCF_TCORU_N2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<V_COCF_TCORU_N>-MANDT = 1.
<V_COCF_TCORU_N>-WERKS = 1.
<V_COCF_TCORU_N>-AUART = 1.
<V_COCF_TCORU_N>-NAME1 = 1.
<V_COCF_TCORU_N>-TXT = 1.

ENDLOOP.

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

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


*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_V_COCF_TCORU_N_STR, 
MANDT TYPE STRING,
WERKS TYPE STRING,
AUART TYPE STRING,
NAME1 TYPE STRING,
TXT 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,
ACOMP TYPE STRING,
AUTYP TYPE STRING,
GMOVJ TYPE STRING,
PRZST TYPE STRING,
CAPAJ TYPE STRING,
COSTJ TYPE STRING,
ERUVG TYPE STRING,
RUFHG TYPE STRING,
QRMDE TYPE STRING,
MLSLO TYPE STRING,
CCANC TYPE STRING,
GCANC TYPE STRING,
MLTPS TYPE STRING,
QMART TYPE STRING,
QMARTX 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,
PROFILE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_V_COCF_TCORU_N_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_V_COCF_TCORU_N_STR-MANDT sy-vline 
WA_V_COCF_TCORU_N_STR-WERKS sy-vline 
WA_V_COCF_TCORU_N_STR-AUART sy-vline 
WA_V_COCF_TCORU_N_STR-NAME1 sy-vline 
WA_V_COCF_TCORU_N_STR-TXT sy-vline 
WA_V_COCF_TCORU_N_STR-UNTLI sy-vline 
WA_V_COCF_TCORU_N_STR-UEBLI sy-vline 
WA_V_COCF_TCORU_N_STR-AUSOR sy-vline 
WA_V_COCF_TCORU_N_STR-AUERU sy-vline 
WA_V_COCF_TCORU_N_STR-ZEVGZ sy-vline 
WA_V_COCF_TCORU_N_STR-ZESTD sy-vline 
WA_V_COCF_TCORU_N_STR-ZEMIN sy-vline 
WA_V_COCF_TCORU_N_STR-AZSMG sy-vline 
WA_V_COCF_TCORU_N_STR-AZSLE sy-vline 
WA_V_COCF_TCORU_N_STR-AZSZT sy-vline 
WA_V_COCF_TCORU_N_STR-AZSZU sy-vline 
WA_V_COCF_TCORU_N_STR-VSSMG sy-vline 
WA_V_COCF_TCORU_N_STR-VSSLE sy-vline 
WA_V_COCF_TCORU_N_STR-VSSZT sy-vline 
WA_V_COCF_TCORU_N_STR-VSSZU sy-vline 
WA_V_COCF_TCORU_N_STR-AZIMG sy-vline 
WA_V_COCF_TCORU_N_STR-AZILE sy-vline 
WA_V_COCF_TCORU_N_STR-AZIZT sy-vline 
WA_V_COCF_TCORU_N_STR-ISERF sy-vline 
WA_V_COCF_TCORU_N_STR-SCHAE sy-vline 
WA_V_COCF_TCORU_N_STR-MRFLG sy-vline 
WA_V_COCF_TCORU_N_STR-TRMZK sy-vline 
WA_V_COCF_TCORU_N_STR-ABARB sy-vline 
WA_V_COCF_TCORU_N_STR-ABDAU sy-vline 
WA_V_COCF_TCORU_N_STR-CPROT sy-vline 
WA_V_COCF_TCORU_N_STR-GPROT sy-vline 
WA_V_COCF_TCORU_N_STR-ACOMP sy-vline 
WA_V_COCF_TCORU_N_STR-AUTYP sy-vline 
WA_V_COCF_TCORU_N_STR-GMOVJ sy-vline 
WA_V_COCF_TCORU_N_STR-PRZST sy-vline 
WA_V_COCF_TCORU_N_STR-CAPAJ sy-vline 
WA_V_COCF_TCORU_N_STR-COSTJ sy-vline 
WA_V_COCF_TCORU_N_STR-ERUVG sy-vline 
WA_V_COCF_TCORU_N_STR-RUFHG sy-vline 
WA_V_COCF_TCORU_N_STR-QRMDE sy-vline 
WA_V_COCF_TCORU_N_STR-MLSLO sy-vline 
WA_V_COCF_TCORU_N_STR-CCANC sy-vline 
WA_V_COCF_TCORU_N_STR-GCANC sy-vline 
WA_V_COCF_TCORU_N_STR-MLTPS sy-vline 
WA_V_COCF_TCORU_N_STR-QMART sy-vline 
WA_V_COCF_TCORU_N_STR-QMARTX sy-vline 
WA_V_COCF_TCORU_N_STR-SHIFT_PROP sy-vline 
WA_V_COCF_TCORU_N_STR-CUST_OPR_CNF sy-vline 
WA_V_COCF_TCORU_N_STR-CUST_HDR_CNF sy-vline 
WA_V_COCF_TCORU_N_STR-SUBQTY_HDR_CNF sy-vline 
WA_V_COCF_TCORU_N_STR-SHIFT_HDR_CNF sy-vline 
WA_V_COCF_TCORU_N_STR-PROFILE sy-vline      INTO ld_text SEPARATED BY SPACE.

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