ABAP Select data from SAP table VDLV 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 VDLV 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 VDLV. 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 VDLV 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_VDLV TYPE STANDARD TABLE OF VDLV,
      WA_VDLV TYPE VDLV,
      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: <VDLV> TYPE VDLV.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VDLV
*  INTO TABLE @DATA(IT_VDLV2).
*--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_VDLV INDEX 1 INTO DATA(WA_VDLV2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<VDLV>-MANDT = 1.
<VDLV>-RSICHER = 1.
<VDLV>-RERF = 1.
<VDLV>-DERF = 1.
<VDLV>-TERF = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VDLV-REHER, sy-vline,
  WA_VDLV-RBEAR, sy-vline,
  WA_VDLV-DBEAR, sy-vline,
  WA_VDLV-TBEAR, sy-vline,
  WA_VDLV-RBHER, sy-vline,
  WA_VDLV-SSICH, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_VDLV 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_VDLV 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_VDLV INTO WA_VDLV.


*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_VDLV_STR, 
MANDT TYPE STRING,
RSICHER TYPE STRING,
RERF TYPE STRING,
DERF TYPE STRING,
TERF TYPE STRING,
REHER TYPE STRING,
RBEAR TYPE STRING,
DBEAR TYPE STRING,
TBEAR TYPE STRING,
RBHER TYPE STRING,
SSICH TYPE STRING,
SSICHART TYPE STRING,
XLVNR TYPE STRING,
XLVTARIF TYPE STRING,
DBLV TYPE STRING,
DELV TYPE STRING,
DVERTRAG TYPE STRING,
BVERTRAG TYPE STRING,
SVWAERS TYPE STRING,
BLVPR TYPE STRING,
SZAWS TYPE STRING,
AMMRHY TYPE STRING,
DFAELLIG TYPE STRING,
DZAHLUNG TYPE STRING,
PSPZINS TYPE STRING,
PBONUS TYPE STRING,
SPFSTAT TYPE STRING,
JZESSION TYPE STRING,
KOMM1 TYPE STRING,
KOMM2 TYPE STRING,
XKBEZPRT TYPE STRING,
XAKT TYPE STRING,
SLVSON TYPE STRING,
DLVSON TYPE STRING,
DFINAMT TYPE STRING,
SLVGRP1 TYPE STRING,
SLVGRP2 TYPE STRING,
SBUEART1 TYPE STRING,
SBUEART TYPE STRING,
DBUERG TYPE STRING,
XKOKBEZ TYPE STRING,
JDYNSTAT TYPE STRING,
JDYNANN TYPE STRING,
DDYNANN TYPE STRING,
SLVHERK TYPE STRING,
BVORABL TYPE STRING,
LVRECH TYPE STRING,
SLAENDER TYPE STRING,
CLI_COMMENT TYPE STRING,
RECALC_COMMENT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_VDLV_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_VDLV_STR-MANDT sy-vline 
WA_VDLV_STR-RSICHER sy-vline 
WA_VDLV_STR-RERF sy-vline 
WA_VDLV_STR-DERF sy-vline 
WA_VDLV_STR-TERF sy-vline 
WA_VDLV_STR-REHER sy-vline 
WA_VDLV_STR-RBEAR sy-vline 
WA_VDLV_STR-DBEAR sy-vline 
WA_VDLV_STR-TBEAR sy-vline 
WA_VDLV_STR-RBHER sy-vline 
WA_VDLV_STR-SSICH sy-vline 
WA_VDLV_STR-SSICHART sy-vline 
WA_VDLV_STR-XLVNR sy-vline 
WA_VDLV_STR-XLVTARIF sy-vline 
WA_VDLV_STR-DBLV sy-vline 
WA_VDLV_STR-DELV sy-vline 
WA_VDLV_STR-DVERTRAG sy-vline 
WA_VDLV_STR-BVERTRAG sy-vline 
WA_VDLV_STR-SVWAERS sy-vline 
WA_VDLV_STR-BLVPR sy-vline 
WA_VDLV_STR-SZAWS sy-vline 
WA_VDLV_STR-AMMRHY sy-vline 
WA_VDLV_STR-DFAELLIG sy-vline 
WA_VDLV_STR-DZAHLUNG sy-vline 
WA_VDLV_STR-PSPZINS sy-vline 
WA_VDLV_STR-PBONUS sy-vline 
WA_VDLV_STR-SPFSTAT sy-vline 
WA_VDLV_STR-JZESSION sy-vline 
WA_VDLV_STR-KOMM1 sy-vline 
WA_VDLV_STR-KOMM2 sy-vline 
WA_VDLV_STR-XKBEZPRT sy-vline 
WA_VDLV_STR-XAKT sy-vline 
WA_VDLV_STR-SLVSON sy-vline 
WA_VDLV_STR-DLVSON sy-vline 
WA_VDLV_STR-DFINAMT sy-vline 
WA_VDLV_STR-SLVGRP1 sy-vline 
WA_VDLV_STR-SLVGRP2 sy-vline 
WA_VDLV_STR-SBUEART1 sy-vline 
WA_VDLV_STR-SBUEART sy-vline 
WA_VDLV_STR-DBUERG sy-vline 
WA_VDLV_STR-XKOKBEZ sy-vline 
WA_VDLV_STR-JDYNSTAT sy-vline 
WA_VDLV_STR-JDYNANN sy-vline 
WA_VDLV_STR-DDYNANN sy-vline 
WA_VDLV_STR-SLVHERK sy-vline 
WA_VDLV_STR-BVORABL sy-vline 
WA_VDLV_STR-LVRECH sy-vline 
WA_VDLV_STR-SLAENDER sy-vline 
WA_VDLV_STR-CLI_COMMENT sy-vline 
WA_VDLV_STR-RECALC_COMMENT sy-vline      INTO ld_text SEPARATED BY SPACE.

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