ABAP Select data from SAP table /BEV3/CHLT0800 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 /BEV3/CHLT0800 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 /BEV3/CHLT0800. 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 /BEV3/CHLT0800 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_/BEV3/CHLT0800 TYPE STANDARD TABLE OF /BEV3/CHLT0800,
      WA_/BEV3/CHLT0800 TYPE /BEV3/CHLT0800,
      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: </BEV3/CHLT0800> TYPE /BEV3/CHLT0800.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /BEV3/CHLT0800
  INTO TABLE IT_/BEV3/CHLT0800.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /BEV3/CHLT0800
*  INTO TABLE @DATA(IT_/BEV3/CHLT08002).
*--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_/BEV3/CHLT0800 INDEX 1 INTO DATA(WA_/BEV3/CHLT08002).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/BEV3/CHLT0800 ASSIGNING </BEV3/CHLT0800>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</BEV3/CHLT0800>-VBKL_SUPER = 1.
</BEV3/CHLT0800>-RI_SUPER = 1.
</BEV3/CHLT0800>-VBIN_SUPER = 1.
</BEV3/CHLT0800>-PART_SUPER = 1.
</BEV3/CHLT0800>-PTIN_SUPER = 1.

ENDLOOP.

LOOP AT IT_/BEV3/CHLT0800 INTO WA_/BEV3/CHLT0800.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/BEV3/CHLT0800-VBKL, sy-vline,
  WA_/BEV3/CHLT0800-RI, sy-vline,
  WA_/BEV3/CHLT0800-VBIN, sy-vline,
  WA_/BEV3/CHLT0800-VBNR, sy-vline,
  WA_/BEV3/CHLT0800-VBDTA, sy-vline,
  WA_/BEV3/CHLT0800-VBDTB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/BEV3/CHLT0800 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_/BEV3/CHLT0800 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_/BEV3/CHLT0800 INTO WA_/BEV3/CHLT0800.


*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_/BEV3/CHLT0800-MATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/BEV3/CHLT0800-MATNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field SORTIMENT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/BEV3/CHLT0800-SORTIMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/BEV3/CHLT0800-SORTIMENT.
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_/BEV3/CHLT0800_STR, 
VBKL_SUPER TYPE STRING,
RI_SUPER TYPE STRING,
VBIN_SUPER TYPE STRING,
PART_SUPER TYPE STRING,
PTIN_SUPER TYPE STRING,
VBKL TYPE STRING,
RI TYPE STRING,
VBIN TYPE STRING,
VBNR TYPE STRING,
VBDTA TYPE STRING,
VBDTB TYPE STRING,
SPTAG TYPE STRING,
VERD_KZ TYPE STRING,
VERDAT_AB TYPE STRING,
VERDAT_BIS TYPE STRING,
VKORG TYPE STRING,
VTWEG TYPE STRING,
SPART TYPE STRING,
WERK TYPE STRING,
MATNR TYPE STRING,
AG_LSTG TYPE STRING,
WE_LSTG TYPE STRING,
RG_LSTG TYPE STRING,
RE_LSTG TYPE STRING,
VL_LSTG TYPE STRING,
UMNG_GSMT TYPE STRING,
MEINU TYPE STRING,
BTRG_LSTG TYPE STRING,
WAERK_LSTG TYPE STRING,
SMNG_GSMT TYPE STRING,
MEINS TYPE STRING,
ANZ_NULL TYPE STRING,
ANZ_AUFT TYPE STRING,
YVTART TYPE STRING,
SORTIMENT TYPE STRING,
STATDAT_AB TYPE STRING,
STATDAT_BIS TYPE STRING,
INDRKT_FLG TYPE STRING,
DRKT_FLG TYPE STRING,
GPROZ TYPE STRING,
RMKONTR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/BEV3/CHLT0800_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_/BEV3/CHLT0800_STR-VBKL_SUPER sy-vline 
WA_/BEV3/CHLT0800_STR-RI_SUPER sy-vline 
WA_/BEV3/CHLT0800_STR-VBIN_SUPER sy-vline 
WA_/BEV3/CHLT0800_STR-PART_SUPER sy-vline 
WA_/BEV3/CHLT0800_STR-PTIN_SUPER sy-vline 
WA_/BEV3/CHLT0800_STR-VBKL sy-vline 
WA_/BEV3/CHLT0800_STR-RI sy-vline 
WA_/BEV3/CHLT0800_STR-VBIN sy-vline 
WA_/BEV3/CHLT0800_STR-VBNR sy-vline 
WA_/BEV3/CHLT0800_STR-VBDTA sy-vline 
WA_/BEV3/CHLT0800_STR-VBDTB sy-vline 
WA_/BEV3/CHLT0800_STR-SPTAG sy-vline 
WA_/BEV3/CHLT0800_STR-VERD_KZ sy-vline 
WA_/BEV3/CHLT0800_STR-VERDAT_AB sy-vline 
WA_/BEV3/CHLT0800_STR-VERDAT_BIS sy-vline 
WA_/BEV3/CHLT0800_STR-VKORG sy-vline 
WA_/BEV3/CHLT0800_STR-VTWEG sy-vline 
WA_/BEV3/CHLT0800_STR-SPART sy-vline 
WA_/BEV3/CHLT0800_STR-WERK sy-vline 
WA_/BEV3/CHLT0800_STR-MATNR sy-vline 
WA_/BEV3/CHLT0800_STR-AG_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-WE_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-RG_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-RE_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-VL_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-UMNG_GSMT sy-vline 
WA_/BEV3/CHLT0800_STR-MEINU sy-vline 
WA_/BEV3/CHLT0800_STR-BTRG_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-WAERK_LSTG sy-vline 
WA_/BEV3/CHLT0800_STR-SMNG_GSMT sy-vline 
WA_/BEV3/CHLT0800_STR-MEINS sy-vline 
WA_/BEV3/CHLT0800_STR-ANZ_NULL sy-vline 
WA_/BEV3/CHLT0800_STR-ANZ_AUFT sy-vline 
WA_/BEV3/CHLT0800_STR-YVTART sy-vline 
WA_/BEV3/CHLT0800_STR-SORTIMENT sy-vline 
WA_/BEV3/CHLT0800_STR-STATDAT_AB sy-vline 
WA_/BEV3/CHLT0800_STR-STATDAT_BIS sy-vline 
WA_/BEV3/CHLT0800_STR-INDRKT_FLG sy-vline 
WA_/BEV3/CHLT0800_STR-DRKT_FLG sy-vline 
WA_/BEV3/CHLT0800_STR-GPROZ sy-vline 
WA_/BEV3/CHLT0800_STR-RMKONTR sy-vline      INTO ld_text SEPARATED BY SPACE.

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