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

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
</BEV3/CH041050>-MANDT = 1.
</BEV3/CH041050>-YVOBJNR = 1.
</BEV3/CH041050>-YVOBJBEZ = 1.
</BEV3/CH041050>-YVOBJBZKZ = 1.
</BEV3/CH041050>-ADRNR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/BEV3/CH041050-YVOBJNAM1, sy-vline,
  WA_/BEV3/CH041050-YVOBJORT1, sy-vline,
  WA_/BEV3/CH041050-YVOBJPLZ1, sy-vline,
  WA_/BEV3/CH041050-YVOBJSTR1, sy-vline,
  WA_/BEV3/CH041050-YVORBEZ, sy-vline,
  WA_/BEV3/CH041050-YVORSBEZ, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/BEV3/CH041050 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/CH041050 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/CH041050 INTO WA_/BEV3/CH041050.


*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 ADRNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_/BEV3/CH041050-ADRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/BEV3/CH041050-ADRNR.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit CUNIT, internal->external for field YVGREINH2
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_/BEV3/CH041050-YVGREINH2
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/BEV3/CH041050-YVGREINH2.
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/CH041050_STR, 
MANDT TYPE STRING,
YVOBJNR TYPE STRING,
YVOBJBEZ TYPE STRING,
YVOBJBZKZ TYPE STRING,
ADRNR TYPE STRING,
YVOBJNAM1 TYPE STRING,
YVOBJORT1 TYPE STRING,
YVOBJPLZ1 TYPE STRING,
YVOBJSTR1 TYPE STRING,
YVORBEZ TYPE STRING,
YVORSBEZ TYPE STRING,
YVGRWERT1 TYPE STRING,
YVGREINH1 TYPE STRING,
YVGRART1 TYPE STRING,
YVGRBEZ1 TYPE STRING,
YVORGICON TYPE STRING,
YVEARTNR TYPE STRING,
YVEARTBEZ TYPE STRING,
YVGRSBEZ TYPE STRING,
YVBRSNR TYPE STRING,
YVBRSBEZ TYPE STRING,
YVSPLATZ TYPE STRING,
YVPLTZGES TYPE STRING,
YVTHEKE TYPE STRING,
YVTHPLTZ TYPE STRING,
YVMAXPERS TYPE STRING,
YVMAXPGES TYPE STRING,
YVRFREI TYPE STRING,
YVRFREINH TYPE STRING,
YVBETT TYPE STRING,
YVBETTGES TYPE STRING,
YVWC TYPE STRING,
YVDUBAD TYPE STRING,
YVTOIW TYPE STRING,
YVWABCKW TYPE STRING,
YVURI TYPE STRING,
YVTOIM TYPE STRING,
YVWABCKM TYPE STRING,
YVBEHWC TYPE STRING,
YVWCKL TYPE STRING,
YVDUSCH TYPE STRING,
YVLARTNR TYPE STRING,
YVLARTBEZ TYPE STRING,
YVGAR TYPE STRING,
YVTFGAR TYPE STRING,
YVMDACH TYPE STRING,
YVODACH TYPE STRING,
YVPARKGES TYPE STRING,
YVWRARTNR TYPE STRING,
YVWRABEZ TYPE STRING,
YVETARTNR TYPE STRING,
YVWRETBEZ TYPE STRING,
YVPARK TYPE STRING,
YVZIMGES TYPE STRING,
YVORANR TYPE STRING,
YVORABEZ TYPE STRING,
YVORAICON TYPE STRING,
YVGRWERT2 TYPE STRING,
YVGREINH2 TYPE STRING,
YVGRART2 TYPE STRING,
YVGRBEZ2 TYPE STRING,
YVOAGICON TYPE STRING,
YVLOEVM TYPE STRING,
YVLOEKZ TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/BEV3/CH041050_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/CH041050_STR-MANDT sy-vline 
WA_/BEV3/CH041050_STR-YVOBJNR sy-vline 
WA_/BEV3/CH041050_STR-YVOBJBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVOBJBZKZ sy-vline 
WA_/BEV3/CH041050_STR-ADRNR sy-vline 
WA_/BEV3/CH041050_STR-YVOBJNAM1 sy-vline 
WA_/BEV3/CH041050_STR-YVOBJORT1 sy-vline 
WA_/BEV3/CH041050_STR-YVOBJPLZ1 sy-vline 
WA_/BEV3/CH041050_STR-YVOBJSTR1 sy-vline 
WA_/BEV3/CH041050_STR-YVORBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVORSBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVGRWERT1 sy-vline 
WA_/BEV3/CH041050_STR-YVGREINH1 sy-vline 
WA_/BEV3/CH041050_STR-YVGRART1 sy-vline 
WA_/BEV3/CH041050_STR-YVGRBEZ1 sy-vline 
WA_/BEV3/CH041050_STR-YVORGICON sy-vline 
WA_/BEV3/CH041050_STR-YVEARTNR sy-vline 
WA_/BEV3/CH041050_STR-YVEARTBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVGRSBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVBRSNR sy-vline 
WA_/BEV3/CH041050_STR-YVBRSBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVSPLATZ sy-vline 
WA_/BEV3/CH041050_STR-YVPLTZGES sy-vline 
WA_/BEV3/CH041050_STR-YVTHEKE sy-vline 
WA_/BEV3/CH041050_STR-YVTHPLTZ sy-vline 
WA_/BEV3/CH041050_STR-YVMAXPERS sy-vline 
WA_/BEV3/CH041050_STR-YVMAXPGES sy-vline 
WA_/BEV3/CH041050_STR-YVRFREI sy-vline 
WA_/BEV3/CH041050_STR-YVRFREINH sy-vline 
WA_/BEV3/CH041050_STR-YVBETT sy-vline 
WA_/BEV3/CH041050_STR-YVBETTGES sy-vline 
WA_/BEV3/CH041050_STR-YVWC sy-vline 
WA_/BEV3/CH041050_STR-YVDUBAD sy-vline 
WA_/BEV3/CH041050_STR-YVTOIW sy-vline 
WA_/BEV3/CH041050_STR-YVWABCKW sy-vline 
WA_/BEV3/CH041050_STR-YVURI sy-vline 
WA_/BEV3/CH041050_STR-YVTOIM sy-vline 
WA_/BEV3/CH041050_STR-YVWABCKM sy-vline 
WA_/BEV3/CH041050_STR-YVBEHWC sy-vline 
WA_/BEV3/CH041050_STR-YVWCKL sy-vline 
WA_/BEV3/CH041050_STR-YVDUSCH sy-vline 
WA_/BEV3/CH041050_STR-YVLARTNR sy-vline 
WA_/BEV3/CH041050_STR-YVLARTBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVGAR sy-vline 
WA_/BEV3/CH041050_STR-YVTFGAR sy-vline 
WA_/BEV3/CH041050_STR-YVMDACH sy-vline 
WA_/BEV3/CH041050_STR-YVODACH sy-vline 
WA_/BEV3/CH041050_STR-YVPARKGES sy-vline 
WA_/BEV3/CH041050_STR-YVWRARTNR sy-vline 
WA_/BEV3/CH041050_STR-YVWRABEZ sy-vline 
WA_/BEV3/CH041050_STR-YVETARTNR sy-vline 
WA_/BEV3/CH041050_STR-YVWRETBEZ sy-vline 
WA_/BEV3/CH041050_STR-YVPARK sy-vline 
WA_/BEV3/CH041050_STR-YVZIMGES sy-vline 
WA_/BEV3/CH041050_STR-YVORANR sy-vline 
WA_/BEV3/CH041050_STR-YVORABEZ sy-vline 
WA_/BEV3/CH041050_STR-YVORAICON sy-vline 
WA_/BEV3/CH041050_STR-YVGRWERT2 sy-vline 
WA_/BEV3/CH041050_STR-YVGREINH2 sy-vline 
WA_/BEV3/CH041050_STR-YVGRART2 sy-vline 
WA_/BEV3/CH041050_STR-YVGRBEZ2 sy-vline 
WA_/BEV3/CH041050_STR-YVOAGICON sy-vline 
WA_/BEV3/CH041050_STR-YVLOEVM sy-vline 
WA_/BEV3/CH041050_STR-YVLOEKZ sy-vline      INTO ld_text SEPARATED BY SPACE.

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