ABAP Select data from SAP table P01W_DBEK 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 P01W_DBEK 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 P01W_DBEK. 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 P01W_DBEK 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_P01W_DBEK TYPE STANDARD TABLE OF P01W_DBEK,
      WA_P01W_DBEK TYPE P01W_DBEK,
      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: <P01W_DBEK> TYPE P01W_DBEK.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM P01W_DBEK
*  INTO TABLE @DATA(IT_P01W_DBEK2).
*--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_P01W_DBEK INDEX 1 INTO DATA(WA_P01W_DBEK2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<P01W_DBEK>-MANDT = 1.
<P01W_DBEK>-PERNR = 1.
<P01W_DBEK>-MSGID = 1.
<P01W_DBEK>-DATUM = 1.
<P01W_DBEK>-MNR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_P01W_DBEK-KENNG, sy-vline,
  WA_P01W_DBEK-KNZST, sy-vline,
  WA_P01W_DBEK-WAERS, sy-vline,
  WA_P01W_DBEK-NAMEK, sy-vline,
  WA_P01W_DBEK-VNAMK, sy-vline,
  WA_P01W_DBEK-GBDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_P01W_DBEK 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_P01W_DBEK 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_P01W_DBEK INTO WA_P01W_DBEK.


*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_P01W_DBEK_STR, 
MANDT TYPE STRING,
PERNR TYPE STRING,
MSGID TYPE STRING,
DATUM TYPE STRING,
MNR TYPE STRING,
KENNG TYPE STRING,
KNZST TYPE STRING,
WAERS TYPE STRING,
NAMEK TYPE STRING,
VNAMK TYPE STRING,
GBDAT TYPE STRING,
FLEDT TYPE STRING,
KISTA TYPE STRING,
STRKL TYPE STRING,
FRB1M TYPE STRING,
FRBDT TYPE STRING,
LADAY TYPE STRING,
FIDAY TYPE STRING,
NET1D TYPE STRING,
KUWAG TYPE STRING,
WVLDT TYPE STRING,
WALAZ TYPE STRING,
STWAG TYPE STRING,
LFZED TYPE STRING,
VWBIS TYPE STRING,
VWBET TYPE STRING,
VWRHT TYPE STRING,
ZSBTG TYPE STRING,
KDGAM TYPE STRING,
KDZUM TYPE STRING,
KDGRD TYPE STRING,
LRBEG TYPE STRING,
LREND TYPE STRING,
LRBRT TYPE STRING,
LRNET TYPE STRING,
ABART TYPE STRING,
VRBRT TYPE STRING,
VRNET TYPE STRING,
UBEG1 TYPE STRING,
UEND1 TYPE STRING,
UBRT1 TYPE STRING,
UNET1 TYPE STRING,
UBEG2 TYPE STRING,
UEND2 TYPE STRING,
UBRT2 TYPE STRING,
UNET2 TYPE STRING,
UBEG3 TYPE STRING,
UEND3 TYPE STRING,
UBRT3 TYPE STRING,
UNET3 TYPE STRING,
XBEG1 TYPE STRING,
XEND1 TYPE STRING,
XBRT1 TYPE STRING,
XNET1 TYPE STRING,
XBEG2 TYPE STRING,
XEND2 TYPE STRING,
XBRT2 TYPE STRING,
XNET2 TYPE STRING,
XBEG3 TYPE STRING,
XEND3 TYPE STRING,
XBRT3 TYPE STRING,
XNET3 TYPE STRING,
EINKV TYPE STRING,
EINRV TYPE STRING,
BRTAE TYPE STRING,
BRTTG TYPE STRING,
YBEG1 TYPE STRING,
YEND1 TYPE STRING,
YTAG1 TYPE STRING,
YBEG2 TYPE STRING,
YEND2 TYPE STRING,
YTAG2 TYPE STRING,
YBEG3 TYPE STRING,
YEND3 TYPE STRING,
YTAG3 TYPE STRING,
KRZAE TYPE STRING,
KRZTG TYPE STRING,
FBEG1 TYPE STRING,
FEND1 TYPE STRING,
FTAG1 TYPE STRING,
FBEG2 TYPE STRING,
FEND2 TYPE STRING,
FTAG2 TYPE STRING,
FBEG3 TYPE STRING,
FEND3 TYPE STRING,
FTAG3 TYPE STRING,
FTG01 TYPE STRING,
FTG02 TYPE STRING,
FTG03 TYPE STRING,
FTG04 TYPE STRING,
FTG05 TYPE STRING,
FTG06 TYPE STRING,
FTG07 TYPE STRING,
FTG08 TYPE STRING,
FTG09 TYPE STRING,
FTG10 TYPE STRING,
FTG11 TYPE STRING,
FTG12 TYPE STRING,
FTG13 TYPE STRING,
FTG14 TYPE STRING,
FTG15 TYPE STRING,
FTG16 TYPE STRING,
FTG17 TYPE STRING,
FTG18 TYPE STRING,
FTG19 TYPE STRING,
FTG20 TYPE STRING,
KBEG1 TYPE STRING,
KEND1 TYPE STRING,
KTAG1 TYPE STRING,
KBEG2 TYPE STRING,
KEND2 TYPE STRING,
KTAG2 TYPE STRING,
ANGRD TYPE STRING,
ANFRT TYPE STRING,
UFTAG TYPE STRING,
LSTFZ TYPE STRING,
LSTB1 TYPE STRING,
LSTE1 TYPE STRING,
LSTZ1 TYPE STRING,
LSTB2 TYPE STRING,
LSTE2 TYPE STRING,
LSTZ2 TYPE STRING,
LSTB3 TYPE STRING,
LSTE3 TYPE STRING,
LSTZ3 TYPE STRING,
SBKNA TYPE STRING,
AVMGG TYPE STRING,END OF T_EKKO_STR.
DATA: WA_P01W_DBEK_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_P01W_DBEK_STR-MANDT sy-vline 
WA_P01W_DBEK_STR-PERNR sy-vline 
WA_P01W_DBEK_STR-MSGID sy-vline 
WA_P01W_DBEK_STR-DATUM sy-vline 
WA_P01W_DBEK_STR-MNR sy-vline 
WA_P01W_DBEK_STR-KENNG sy-vline 
WA_P01W_DBEK_STR-KNZST sy-vline 
WA_P01W_DBEK_STR-WAERS sy-vline 
WA_P01W_DBEK_STR-NAMEK sy-vline 
WA_P01W_DBEK_STR-VNAMK sy-vline 
WA_P01W_DBEK_STR-GBDAT sy-vline 
WA_P01W_DBEK_STR-FLEDT sy-vline 
WA_P01W_DBEK_STR-KISTA sy-vline 
WA_P01W_DBEK_STR-STRKL sy-vline 
WA_P01W_DBEK_STR-FRB1M sy-vline 
WA_P01W_DBEK_STR-FRBDT sy-vline 
WA_P01W_DBEK_STR-LADAY sy-vline 
WA_P01W_DBEK_STR-FIDAY sy-vline 
WA_P01W_DBEK_STR-NET1D sy-vline 
WA_P01W_DBEK_STR-KUWAG sy-vline 
WA_P01W_DBEK_STR-WVLDT sy-vline 
WA_P01W_DBEK_STR-WALAZ sy-vline 
WA_P01W_DBEK_STR-STWAG sy-vline 
WA_P01W_DBEK_STR-LFZED sy-vline 
WA_P01W_DBEK_STR-VWBIS sy-vline 
WA_P01W_DBEK_STR-VWBET sy-vline 
WA_P01W_DBEK_STR-VWRHT sy-vline 
WA_P01W_DBEK_STR-ZSBTG sy-vline 
WA_P01W_DBEK_STR-KDGAM sy-vline 
WA_P01W_DBEK_STR-KDZUM sy-vline 
WA_P01W_DBEK_STR-KDGRD sy-vline 
WA_P01W_DBEK_STR-LRBEG sy-vline 
WA_P01W_DBEK_STR-LREND sy-vline 
WA_P01W_DBEK_STR-LRBRT sy-vline 
WA_P01W_DBEK_STR-LRNET sy-vline 
WA_P01W_DBEK_STR-ABART sy-vline 
WA_P01W_DBEK_STR-VRBRT sy-vline 
WA_P01W_DBEK_STR-VRNET sy-vline 
WA_P01W_DBEK_STR-UBEG1 sy-vline 
WA_P01W_DBEK_STR-UEND1 sy-vline 
WA_P01W_DBEK_STR-UBRT1 sy-vline 
WA_P01W_DBEK_STR-UNET1 sy-vline 
WA_P01W_DBEK_STR-UBEG2 sy-vline 
WA_P01W_DBEK_STR-UEND2 sy-vline 
WA_P01W_DBEK_STR-UBRT2 sy-vline 
WA_P01W_DBEK_STR-UNET2 sy-vline 
WA_P01W_DBEK_STR-UBEG3 sy-vline 
WA_P01W_DBEK_STR-UEND3 sy-vline 
WA_P01W_DBEK_STR-UBRT3 sy-vline 
WA_P01W_DBEK_STR-UNET3 sy-vline 
WA_P01W_DBEK_STR-XBEG1 sy-vline 
WA_P01W_DBEK_STR-XEND1 sy-vline 
WA_P01W_DBEK_STR-XBRT1 sy-vline 
WA_P01W_DBEK_STR-XNET1 sy-vline 
WA_P01W_DBEK_STR-XBEG2 sy-vline 
WA_P01W_DBEK_STR-XEND2 sy-vline 
WA_P01W_DBEK_STR-XBRT2 sy-vline 
WA_P01W_DBEK_STR-XNET2 sy-vline 
WA_P01W_DBEK_STR-XBEG3 sy-vline 
WA_P01W_DBEK_STR-XEND3 sy-vline 
WA_P01W_DBEK_STR-XBRT3 sy-vline 
WA_P01W_DBEK_STR-XNET3 sy-vline 
WA_P01W_DBEK_STR-EINKV sy-vline 
WA_P01W_DBEK_STR-EINRV sy-vline 
WA_P01W_DBEK_STR-BRTAE sy-vline 
WA_P01W_DBEK_STR-BRTTG sy-vline 
WA_P01W_DBEK_STR-YBEG1 sy-vline 
WA_P01W_DBEK_STR-YEND1 sy-vline 
WA_P01W_DBEK_STR-YTAG1 sy-vline 
WA_P01W_DBEK_STR-YBEG2 sy-vline 
WA_P01W_DBEK_STR-YEND2 sy-vline 
WA_P01W_DBEK_STR-YTAG2 sy-vline 
WA_P01W_DBEK_STR-YBEG3 sy-vline 
WA_P01W_DBEK_STR-YEND3 sy-vline 
WA_P01W_DBEK_STR-YTAG3 sy-vline 
WA_P01W_DBEK_STR-KRZAE sy-vline 
WA_P01W_DBEK_STR-KRZTG sy-vline 
WA_P01W_DBEK_STR-FBEG1 sy-vline 
WA_P01W_DBEK_STR-FEND1 sy-vline 
WA_P01W_DBEK_STR-FTAG1 sy-vline 
WA_P01W_DBEK_STR-FBEG2 sy-vline 
WA_P01W_DBEK_STR-FEND2 sy-vline 
WA_P01W_DBEK_STR-FTAG2 sy-vline 
WA_P01W_DBEK_STR-FBEG3 sy-vline 
WA_P01W_DBEK_STR-FEND3 sy-vline 
WA_P01W_DBEK_STR-FTAG3 sy-vline 
WA_P01W_DBEK_STR-FTG01 sy-vline 
WA_P01W_DBEK_STR-FTG02 sy-vline 
WA_P01W_DBEK_STR-FTG03 sy-vline 
WA_P01W_DBEK_STR-FTG04 sy-vline 
WA_P01W_DBEK_STR-FTG05 sy-vline 
WA_P01W_DBEK_STR-FTG06 sy-vline 
WA_P01W_DBEK_STR-FTG07 sy-vline 
WA_P01W_DBEK_STR-FTG08 sy-vline 
WA_P01W_DBEK_STR-FTG09 sy-vline 
WA_P01W_DBEK_STR-FTG10 sy-vline 
WA_P01W_DBEK_STR-FTG11 sy-vline 
WA_P01W_DBEK_STR-FTG12 sy-vline 
WA_P01W_DBEK_STR-FTG13 sy-vline 
WA_P01W_DBEK_STR-FTG14 sy-vline 
WA_P01W_DBEK_STR-FTG15 sy-vline 
WA_P01W_DBEK_STR-FTG16 sy-vline 
WA_P01W_DBEK_STR-FTG17 sy-vline 
WA_P01W_DBEK_STR-FTG18 sy-vline 
WA_P01W_DBEK_STR-FTG19 sy-vline 
WA_P01W_DBEK_STR-FTG20 sy-vline 
WA_P01W_DBEK_STR-KBEG1 sy-vline 
WA_P01W_DBEK_STR-KEND1 sy-vline 
WA_P01W_DBEK_STR-KTAG1 sy-vline 
WA_P01W_DBEK_STR-KBEG2 sy-vline 
WA_P01W_DBEK_STR-KEND2 sy-vline 
WA_P01W_DBEK_STR-KTAG2 sy-vline 
WA_P01W_DBEK_STR-ANGRD sy-vline 
WA_P01W_DBEK_STR-ANFRT sy-vline 
WA_P01W_DBEK_STR-UFTAG sy-vline 
WA_P01W_DBEK_STR-LSTFZ sy-vline 
WA_P01W_DBEK_STR-LSTB1 sy-vline 
WA_P01W_DBEK_STR-LSTE1 sy-vline 
WA_P01W_DBEK_STR-LSTZ1 sy-vline 
WA_P01W_DBEK_STR-LSTB2 sy-vline 
WA_P01W_DBEK_STR-LSTE2 sy-vline 
WA_P01W_DBEK_STR-LSTZ2 sy-vline 
WA_P01W_DBEK_STR-LSTB3 sy-vline 
WA_P01W_DBEK_STR-LSTE3 sy-vline 
WA_P01W_DBEK_STR-LSTZ3 sy-vline 
WA_P01W_DBEK_STR-SBKNA sy-vline 
WA_P01W_DBEK_STR-AVMGG sy-vline      INTO ld_text SEPARATED BY SPACE.

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