ABAP Select data from SAP table CFG_VCORU 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 CFG_VCORU 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 CFG_VCORU. 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 CFG_VCORU 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_CFG_VCORU TYPE STANDARD TABLE OF CFG_VCORU,
      WA_CFG_VCORU TYPE CFG_VCORU,
      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: <CFG_VCORU> TYPE CFG_VCORU.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CFG_VCORU
*  INTO TABLE @DATA(IT_CFG_VCORU2).
*--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_CFG_VCORU INDEX 1 INTO DATA(WA_CFG_VCORU2).


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

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

ENDLOOP.

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

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


*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_CFG_VCORU_STR, 
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,
ACOMP 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,
MLTPS TYPE STRING,
PROFILE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CFG_VCORU_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_CFG_VCORU_STR-WERKS sy-vline 
WA_CFG_VCORU_STR-AUART sy-vline 
WA_CFG_VCORU_STR-UNTLI sy-vline 
WA_CFG_VCORU_STR-UEBLI sy-vline 
WA_CFG_VCORU_STR-AUSOR sy-vline 
WA_CFG_VCORU_STR-AUERU sy-vline 
WA_CFG_VCORU_STR-ZEVGZ sy-vline 
WA_CFG_VCORU_STR-ZESTD sy-vline 
WA_CFG_VCORU_STR-ZEMIN sy-vline 
WA_CFG_VCORU_STR-AZSMG sy-vline 
WA_CFG_VCORU_STR-AZSLE sy-vline 
WA_CFG_VCORU_STR-AZSZT sy-vline 
WA_CFG_VCORU_STR-AZSZU sy-vline 
WA_CFG_VCORU_STR-VSSMG sy-vline 
WA_CFG_VCORU_STR-VSSLE sy-vline 
WA_CFG_VCORU_STR-VSSZT sy-vline 
WA_CFG_VCORU_STR-VSSZU sy-vline 
WA_CFG_VCORU_STR-AZIMG sy-vline 
WA_CFG_VCORU_STR-AZILE sy-vline 
WA_CFG_VCORU_STR-AZIZT sy-vline 
WA_CFG_VCORU_STR-ISERF sy-vline 
WA_CFG_VCORU_STR-SCHAE sy-vline 
WA_CFG_VCORU_STR-MRFLG sy-vline 
WA_CFG_VCORU_STR-TRMZK sy-vline 
WA_CFG_VCORU_STR-ABARB sy-vline 
WA_CFG_VCORU_STR-ABDAU sy-vline 
WA_CFG_VCORU_STR-CPROT sy-vline 
WA_CFG_VCORU_STR-GPROT sy-vline 
WA_CFG_VCORU_STR-ACOMP sy-vline 
WA_CFG_VCORU_STR-GMOVJ sy-vline 
WA_CFG_VCORU_STR-PRZST sy-vline 
WA_CFG_VCORU_STR-CAPAJ sy-vline 
WA_CFG_VCORU_STR-COSTJ sy-vline 
WA_CFG_VCORU_STR-ERUVG sy-vline 
WA_CFG_VCORU_STR-RUFHG sy-vline 
WA_CFG_VCORU_STR-QRMDE sy-vline 
WA_CFG_VCORU_STR-MLSLO sy-vline 
WA_CFG_VCORU_STR-MLTPS sy-vline 
WA_CFG_VCORU_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.