ABAP Select data from SAP table VKUMR_ALV into internal table

Get Example source ABAP code based on a different SAP table
  

Below is a number of ABAP code snippets to demonstrate how to select data from SAP VKUMR_ALV 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 VKUMR_ALV. 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 VKUMR_ALV 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_VKUMR_ALV TYPE STANDARD TABLE OF VKUMR_ALV,
      WA_VKUMR_ALV TYPE VKUMR_ALV,
      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: <VKUMR_ALV> TYPE VKUMR_ALV.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VKUMR_ALV
*  INTO TABLE @DATA(IT_VKUMR_ALV2).
*--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_VKUMR_ALV INDEX 1 INTO DATA(WA_VKUMR_ALV2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_VKUMR_ALV ASSIGNING <VKUMR_ALV>.
*To update a field value using a field symbol simply change the value via the field symbol pointer
<VKUMR_ALV>-XCOUNT = 1.
<VKUMR_ALV>-WERKS = 1.
<VKUMR_ALV>-VKUDT = 1.
<VKUMR_ALV>-MATKL = 1.
<VKUMR_ALV>-MATNR = 1.
ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VKUMR_ALV-MATBF, sy-vline,
WA_VKUMR_ALV-PMATA, sy-vline,
WA_VKUMR_ALV-ATTYP, sy-vline,
WA_VKUMR_ALV-WEBEF, sy-vline,
WA_VKUMR_ALV-BWTAR, sy-vline,
WA_VKUMR_ALV-STOCKC, sy-vline.
ENDLOOP. *Add any further fields from structure WA_VKUMR_ALV 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_VKUMR_ALV 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_VKUMR_ALV INTO WA_VKUMR_ALV. *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 MATN1, internal->external for field MATNR CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_VKUMR_ALV-MATNR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VKUMR_ALV-MATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field MATBF CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_VKUMR_ALV-MATBF IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VKUMR_ALV-MATBF.
WRITE:/ 'New Value:', ld_input.

*Conversion exit MATN1, internal->external for field PMATA CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = WA_VKUMR_ALV-PMATA IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VKUMR_ALV-PMATA.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit GJAHR, internal->external for field UBJAHR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_VKUMR_ALV-UBJAHR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VKUMR_ALV-UBJAHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field VRKME_COUNT_LIST CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' EXPORTING input = WA_VKUMR_ALV-VRKME_COUNT_LIST IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_VKUMR_ALV-VRKME_COUNT_LIST.
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_VKUMR_ALV_STR,
XCOUNT TYPE STRING,
WERKS TYPE STRING,
VKUDT TYPE STRING,
MATKL TYPE STRING,
MATNR TYPE STRING,
MATBF TYPE STRING,
PMATA TYPE STRING,
ATTYP TYPE STRING,
WEBEF TYPE STRING,
BWTAR TYPE STRING,
STOCKC TYPE STRING,
SPANN TYPE STRING,
WNAME TYPE STRING,
MAKTX TYPE STRING,
WGBEZ TYPE STRING,
VKOBZ TYPE STRING,
VTWBZ TYPE STRING,
VPALT TYPE STRING,
VPNEU TYPE STRING,
VWAER TYPE STRING,
VRKPE TYPE STRING,
VRKME TYPE STRING,
PV_GRUND TYPE STRING,
BWKEY TYPE STRING,
BEGAK TYPE STRING,
ENDAK TYPE STRING,
LBKUM TYPE STRING,
UBLNR TYPE STRING,
UBJAHR TYPE STRING,
UPSTA TYPE STRING,
VLFKZ TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
COLOUR_ALV TYPE STRING,
LGORT TYPE STRING,
LGOBE TYPE STRING,
MENGE TYPE STRING,
VRKME_COUNT_LIST TYPE STRING,END OF T_EKKO_STR. DATA: WA_VKUMR_ALV_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_VKUMR_ALV_STR-XCOUNT sy-vline
WA_VKUMR_ALV_STR-WERKS sy-vline
WA_VKUMR_ALV_STR-VKUDT sy-vline
WA_VKUMR_ALV_STR-MATKL sy-vline
WA_VKUMR_ALV_STR-MATNR sy-vline
WA_VKUMR_ALV_STR-MATBF sy-vline
WA_VKUMR_ALV_STR-PMATA sy-vline
WA_VKUMR_ALV_STR-ATTYP sy-vline
WA_VKUMR_ALV_STR-WEBEF sy-vline
WA_VKUMR_ALV_STR-BWTAR sy-vline
WA_VKUMR_ALV_STR-STOCKC sy-vline
WA_VKUMR_ALV_STR-SPANN sy-vline
WA_VKUMR_ALV_STR-WNAME sy-vline
WA_VKUMR_ALV_STR-MAKTX sy-vline
WA_VKUMR_ALV_STR-WGBEZ sy-vline
WA_VKUMR_ALV_STR-VKOBZ sy-vline
WA_VKUMR_ALV_STR-VTWBZ sy-vline
WA_VKUMR_ALV_STR-VPALT sy-vline
WA_VKUMR_ALV_STR-VPNEU sy-vline
WA_VKUMR_ALV_STR-VWAER sy-vline
WA_VKUMR_ALV_STR-VRKPE sy-vline
WA_VKUMR_ALV_STR-VRKME sy-vline
WA_VKUMR_ALV_STR-PV_GRUND sy-vline
WA_VKUMR_ALV_STR-BWKEY sy-vline
WA_VKUMR_ALV_STR-BEGAK sy-vline
WA_VKUMR_ALV_STR-ENDAK sy-vline
WA_VKUMR_ALV_STR-LBKUM sy-vline
WA_VKUMR_ALV_STR-UBLNR sy-vline
WA_VKUMR_ALV_STR-UBJAHR sy-vline
WA_VKUMR_ALV_STR-UPSTA sy-vline
WA_VKUMR_ALV_STR-VLFKZ sy-vline
WA_VKUMR_ALV_STR-VKORG sy-vline
WA_VKUMR_ALV_STR-VTWEG sy-vline
WA_VKUMR_ALV_STR-COLOUR_ALV sy-vline
WA_VKUMR_ALV_STR-LGORT sy-vline
WA_VKUMR_ALV_STR-LGOBE sy-vline
WA_VKUMR_ALV_STR-MENGE sy-vline
WA_VKUMR_ALV_STR-VRKME_COUNT_LIST sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.