ABAP Select data from SAP table E3WPK02 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 E3WPK02 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 E3WPK02. 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 E3WPK02 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_E3WPK02 TYPE STANDARD TABLE OF E3WPK02,
      WA_E3WPK02 TYPE E3WPK02,
      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: <E3WPK02> TYPE E3WPK02.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM E3WPK02
*  INTO TABLE @DATA(IT_E3WPK022).
*--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_E3WPK02 INDEX 1 INTO DATA(WA_E3WPK022).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<E3WPK02>-POSKREIS = 1.
<E3WPK02>-KASSID = 1.
<E3WPK02>-VORGZEIT = 1.
<E3WPK02>-KASSIERER = 1.
<E3WPK02>-ZAHLART = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_E3WPK02-WAEHRUNG, sy-vline,
  WA_E3WPK02-AZABS, sy-vline,
  WA_E3WPK02-UMABS, sy-vline,
  WA_E3WPK02-KBSOL, sy-vline,
  WA_E3WPK02-KBIST, sy-vline,
  WA_E3WPK02-KDPOS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_E3WPK02 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_E3WPK02 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_E3WPK02 INTO WA_E3WPK02.


*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_E3WPK02_STR, 
POSKREIS TYPE STRING,
KASSID TYPE STRING,
VORGZEIT TYPE STRING,
KASSIERER TYPE STRING,
ZAHLART TYPE STRING,
WAEHRUNG TYPE STRING,
AZABS TYPE STRING,
UMABS TYPE STRING,
KBSOL TYPE STRING,
KBIST TYPE STRING,
KDPOS TYPE STRING,
KDNEG TYPE STRING,
AZSUL TYPE STRING,
WRSUL TYPE STRING,
AZSST TYPE STRING,
WRSST TYPE STRING,
AZZST TYPE STRING,
WRZST TYPE STRING,
AZBST TYPE STRING,
WRBST TYPE STRING,
AZABB TYPE STRING,
WRABB TYPE STRING,
AMDZT TYPE STRING,
REGZT TYPE STRING,
AZBRT TYPE STRING,
WRUMS TYPE STRING,
AZUMS TYPE STRING,
WRSCA TYPE STRING,
AZSCA TYPE STRING,
WRWGV TYPE STRING,
AZKSB TYPE STRING,
AZFAV TYPE STRING,
AZBON TYPE STRING,END OF T_EKKO_STR.
DATA: WA_E3WPK02_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_E3WPK02_STR-POSKREIS sy-vline 
WA_E3WPK02_STR-KASSID sy-vline 
WA_E3WPK02_STR-VORGZEIT sy-vline 
WA_E3WPK02_STR-KASSIERER sy-vline 
WA_E3WPK02_STR-ZAHLART sy-vline 
WA_E3WPK02_STR-WAEHRUNG sy-vline 
WA_E3WPK02_STR-AZABS sy-vline 
WA_E3WPK02_STR-UMABS sy-vline 
WA_E3WPK02_STR-KBSOL sy-vline 
WA_E3WPK02_STR-KBIST sy-vline 
WA_E3WPK02_STR-KDPOS sy-vline 
WA_E3WPK02_STR-KDNEG sy-vline 
WA_E3WPK02_STR-AZSUL sy-vline 
WA_E3WPK02_STR-WRSUL sy-vline 
WA_E3WPK02_STR-AZSST sy-vline 
WA_E3WPK02_STR-WRSST sy-vline 
WA_E3WPK02_STR-AZZST sy-vline 
WA_E3WPK02_STR-WRZST sy-vline 
WA_E3WPK02_STR-AZBST sy-vline 
WA_E3WPK02_STR-WRBST sy-vline 
WA_E3WPK02_STR-AZABB sy-vline 
WA_E3WPK02_STR-WRABB sy-vline 
WA_E3WPK02_STR-AMDZT sy-vline 
WA_E3WPK02_STR-REGZT sy-vline 
WA_E3WPK02_STR-AZBRT sy-vline 
WA_E3WPK02_STR-WRUMS sy-vline 
WA_E3WPK02_STR-AZUMS sy-vline 
WA_E3WPK02_STR-WRSCA sy-vline 
WA_E3WPK02_STR-AZSCA sy-vline 
WA_E3WPK02_STR-WRWGV sy-vline 
WA_E3WPK02_STR-AZKSB sy-vline 
WA_E3WPK02_STR-AZFAV sy-vline 
WA_E3WPK02_STR-AZBON sy-vline      INTO ld_text SEPARATED BY SPACE.

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