ABAP Select data from SAP table KV20A 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 KV20A 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 KV20A. 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 KV20A 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_KV20A TYPE STANDARD TABLE OF KV20A,
      WA_KV20A TYPE KV20A,
      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: <KV20A> TYPE KV20A.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM KV20A
*  INTO TABLE @DATA(IT_KV20A2).
*--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_KV20A INDEX 1 INTO DATA(WA_KV20A2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<KV20A>-AWOBA = 1.
<KV20A>-KOKRS = 1.
<KV20A>-AWVRS = 1.
<KV20A>-AWWTB = 1.
<KV20A>-AWVSB = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_KV20A-AWKBT, sy-vline,
  WA_KV20A-AWKAB, sy-vline,
  WA_KV20A-AWKVB, sy-vline,
  WA_KV20A-AWWTV, sy-vline,
  WA_KV20A-AWVSV, sy-vline,
  WA_KV20A-AWKVT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_KV20A 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_KV20A 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_KV20A INTO WA_KV20A.


*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 ALPHA, internal->external for field AWVRS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_KV20A-AWVRS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KV20A-AWVRS.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit ALPHA, internal->external for field REFVS
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_KV20A-REFVS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_KV20A-REFVS.
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_KV20A_STR, 
AWOBA TYPE STRING,
KOKRS TYPE STRING,
AWVRS TYPE STRING,
AWWTB TYPE STRING,
AWVSB TYPE STRING,
AWKBT TYPE STRING,
AWKAB TYPE STRING,
AWKVB TYPE STRING,
AWWTV TYPE STRING,
AWVSV TYPE STRING,
AWKVT TYPE STRING,
AWKAV TYPE STRING,
AWKVV TYPE STRING,
AWVAR TYPE STRING,
AWVAS TYPE STRING,
AWVAO TYPE STRING,
AWVAT TYPE STRING,
AWRAU TYPE STRING,
AWRRS TYPE STRING,
AWRPR TYPE STRING,
AWRMG TYPE STRING,
AWRST TYPE STRING,
AWRFX TYPE STRING,
AWRLG TYPE STRING,
AWRES TYPE STRING,
AWRMP TYPE STRING,
AWRVP TYPE STRING,
AWRFS TYPE STRING,
AWRWK TYPE STRING,
AWRVM TYPE STRING,
AWATX TYPE STRING,
AWVTX TYPE STRING,
KAGRU TYPE STRING,
AWKDF TYPE STRING,
AWBVA TYPE STRING,
AFWIP TYPE STRING,
AFSCP TYPE STRING,
AFCTL TYPE STRING,
AFOUT TYPE STRING,
AFSTL TYPE STRING,
VALTY TYPE STRING,
REFVS TYPE STRING,
WIPDF TYPE STRING,
ABWDF TYPE STRING,
ACTDF TYPE STRING,
PLNDF TYPE STRING,
DELTA TYPE STRING,END OF T_EKKO_STR.
DATA: WA_KV20A_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_KV20A_STR-AWOBA sy-vline 
WA_KV20A_STR-KOKRS sy-vline 
WA_KV20A_STR-AWVRS sy-vline 
WA_KV20A_STR-AWWTB sy-vline 
WA_KV20A_STR-AWVSB sy-vline 
WA_KV20A_STR-AWKBT sy-vline 
WA_KV20A_STR-AWKAB sy-vline 
WA_KV20A_STR-AWKVB sy-vline 
WA_KV20A_STR-AWWTV sy-vline 
WA_KV20A_STR-AWVSV sy-vline 
WA_KV20A_STR-AWKVT sy-vline 
WA_KV20A_STR-AWKAV sy-vline 
WA_KV20A_STR-AWKVV sy-vline 
WA_KV20A_STR-AWVAR sy-vline 
WA_KV20A_STR-AWVAS sy-vline 
WA_KV20A_STR-AWVAO sy-vline 
WA_KV20A_STR-AWVAT sy-vline 
WA_KV20A_STR-AWRAU sy-vline 
WA_KV20A_STR-AWRRS sy-vline 
WA_KV20A_STR-AWRPR sy-vline 
WA_KV20A_STR-AWRMG sy-vline 
WA_KV20A_STR-AWRST sy-vline 
WA_KV20A_STR-AWRFX sy-vline 
WA_KV20A_STR-AWRLG sy-vline 
WA_KV20A_STR-AWRES sy-vline 
WA_KV20A_STR-AWRMP sy-vline 
WA_KV20A_STR-AWRVP sy-vline 
WA_KV20A_STR-AWRFS sy-vline 
WA_KV20A_STR-AWRWK sy-vline 
WA_KV20A_STR-AWRVM sy-vline 
WA_KV20A_STR-AWATX sy-vline 
WA_KV20A_STR-AWVTX sy-vline 
WA_KV20A_STR-KAGRU sy-vline 
WA_KV20A_STR-AWKDF sy-vline 
WA_KV20A_STR-AWBVA sy-vline 
WA_KV20A_STR-AFWIP sy-vline 
WA_KV20A_STR-AFSCP sy-vline 
WA_KV20A_STR-AFCTL sy-vline 
WA_KV20A_STR-AFOUT sy-vline 
WA_KV20A_STR-AFSTL sy-vline 
WA_KV20A_STR-VALTY sy-vline 
WA_KV20A_STR-REFVS sy-vline 
WA_KV20A_STR-WIPDF sy-vline 
WA_KV20A_STR-ABWDF sy-vline 
WA_KV20A_STR-ACTDF sy-vline 
WA_KV20A_STR-PLNDF sy-vline 
WA_KV20A_STR-DELTA sy-vline      INTO ld_text SEPARATED BY SPACE.

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