ABAP Select data from SAP table DVER 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 DVER 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 DVER. 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 DVER 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_DVER TYPE STANDARD TABLE OF DVER,
      WA_DVER TYPE DVER,
      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: <DVER> TYPE DVER.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM DVER
*  INTO TABLE @DATA(IT_DVER2).
*--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_DVER INDEX 1 INTO DATA(WA_DVER2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<DVER>-MANDT = 1.
<DVER>-MATNR = 1.
<DVER>-BERID = 1.
<DVER>-GJAHR = 1.
<DVER>-PERKZ = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_DVER-ZAHLR, sy-vline,
  WA_DVER-GSV01, sy-vline,
  WA_DVER-GSV02, sy-vline,
  WA_DVER-GSV03, sy-vline,
  WA_DVER-GSV04, sy-vline,
  WA_DVER-GSV05, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_DVER 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_DVER 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_DVER INTO WA_DVER.


*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_DVER-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DVER-MATNR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit GJAHR, internal->external for field GJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_DVER-GJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_DVER-GJAHR.
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_DVER_STR, 
MANDT TYPE STRING,
MATNR TYPE STRING,
BERID TYPE STRING,
GJAHR TYPE STRING,
PERKZ TYPE STRING,
ZAHLR TYPE STRING,
GSV01 TYPE STRING,
GSV02 TYPE STRING,
GSV03 TYPE STRING,
GSV04 TYPE STRING,
GSV05 TYPE STRING,
GSV06 TYPE STRING,
GSV07 TYPE STRING,
GSV08 TYPE STRING,
GSV09 TYPE STRING,
GSV10 TYPE STRING,
GSV11 TYPE STRING,
GSV12 TYPE STRING,
GSV13 TYPE STRING,
UNV01 TYPE STRING,
UNV02 TYPE STRING,
UNV03 TYPE STRING,
UNV04 TYPE STRING,
UNV05 TYPE STRING,
UNV06 TYPE STRING,
UNV07 TYPE STRING,
UNV08 TYPE STRING,
UNV09 TYPE STRING,
UNV10 TYPE STRING,
UNV11 TYPE STRING,
UNV12 TYPE STRING,
UNV13 TYPE STRING,
MGV01 TYPE STRING,
MGV02 TYPE STRING,
MGV03 TYPE STRING,
MGV04 TYPE STRING,
MGV05 TYPE STRING,
MGV06 TYPE STRING,
MGV07 TYPE STRING,
MGV08 TYPE STRING,
MGV09 TYPE STRING,
MGV10 TYPE STRING,
MGV11 TYPE STRING,
MGV12 TYPE STRING,
MGV13 TYPE STRING,
MUV01 TYPE STRING,
MUV02 TYPE STRING,
MUV03 TYPE STRING,
MUV04 TYPE STRING,
MUV05 TYPE STRING,
MUV06 TYPE STRING,
MUV07 TYPE STRING,
MUV08 TYPE STRING,
MUV09 TYPE STRING,
MUV10 TYPE STRING,
MUV11 TYPE STRING,
MUV12 TYPE STRING,
MUV13 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_DVER_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_DVER_STR-MANDT sy-vline 
WA_DVER_STR-MATNR sy-vline 
WA_DVER_STR-BERID sy-vline 
WA_DVER_STR-GJAHR sy-vline 
WA_DVER_STR-PERKZ sy-vline 
WA_DVER_STR-ZAHLR sy-vline 
WA_DVER_STR-GSV01 sy-vline 
WA_DVER_STR-GSV02 sy-vline 
WA_DVER_STR-GSV03 sy-vline 
WA_DVER_STR-GSV04 sy-vline 
WA_DVER_STR-GSV05 sy-vline 
WA_DVER_STR-GSV06 sy-vline 
WA_DVER_STR-GSV07 sy-vline 
WA_DVER_STR-GSV08 sy-vline 
WA_DVER_STR-GSV09 sy-vline 
WA_DVER_STR-GSV10 sy-vline 
WA_DVER_STR-GSV11 sy-vline 
WA_DVER_STR-GSV12 sy-vline 
WA_DVER_STR-GSV13 sy-vline 
WA_DVER_STR-UNV01 sy-vline 
WA_DVER_STR-UNV02 sy-vline 
WA_DVER_STR-UNV03 sy-vline 
WA_DVER_STR-UNV04 sy-vline 
WA_DVER_STR-UNV05 sy-vline 
WA_DVER_STR-UNV06 sy-vline 
WA_DVER_STR-UNV07 sy-vline 
WA_DVER_STR-UNV08 sy-vline 
WA_DVER_STR-UNV09 sy-vline 
WA_DVER_STR-UNV10 sy-vline 
WA_DVER_STR-UNV11 sy-vline 
WA_DVER_STR-UNV12 sy-vline 
WA_DVER_STR-UNV13 sy-vline 
WA_DVER_STR-MGV01 sy-vline 
WA_DVER_STR-MGV02 sy-vline 
WA_DVER_STR-MGV03 sy-vline 
WA_DVER_STR-MGV04 sy-vline 
WA_DVER_STR-MGV05 sy-vline 
WA_DVER_STR-MGV06 sy-vline 
WA_DVER_STR-MGV07 sy-vline 
WA_DVER_STR-MGV08 sy-vline 
WA_DVER_STR-MGV09 sy-vline 
WA_DVER_STR-MGV10 sy-vline 
WA_DVER_STR-MGV11 sy-vline 
WA_DVER_STR-MGV12 sy-vline 
WA_DVER_STR-MGV13 sy-vline 
WA_DVER_STR-MUV01 sy-vline 
WA_DVER_STR-MUV02 sy-vline 
WA_DVER_STR-MUV03 sy-vline 
WA_DVER_STR-MUV04 sy-vline 
WA_DVER_STR-MUV05 sy-vline 
WA_DVER_STR-MUV06 sy-vline 
WA_DVER_STR-MUV07 sy-vline 
WA_DVER_STR-MUV08 sy-vline 
WA_DVER_STR-MUV09 sy-vline 
WA_DVER_STR-MUV10 sy-vline 
WA_DVER_STR-MUV11 sy-vline 
WA_DVER_STR-MUV12 sy-vline 
WA_DVER_STR-MUV13 sy-vline      INTO ld_text SEPARATED BY SPACE.

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