ABAP Select data from SAP table ENT3001 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 ENT3001 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 ENT3001. 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 ENT3001 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_ENT3001 TYPE STANDARD TABLE OF ENT3001,
      WA_ENT3001 TYPE ENT3001,
      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: <ENT3001> TYPE ENT3001.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ENT3001
*  INTO TABLE @DATA(IT_ENT30012).
*--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_ENT3001 INDEX 1 INTO DATA(WA_ENT30012).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ENT3001>-MANDT = 1.
<ENT3001>-BUKRS = 1.
<ENT3001>-ANLN1 = 1.
<ENT3001>-ANLN2 = 1.
<ENT3001>-ANLKL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ENT3001-GEGST, sy-vline,
  WA_ENT3001-ANLAR, sy-vline,
  WA_ENT3001-ERNAM, sy-vline,
  WA_ENT3001-ERDAT, sy-vline,
  WA_ENT3001-AENAM, sy-vline,
  WA_ENT3001-AEDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ENT3001 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_ENT3001 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_ENT3001 INTO WA_ENT3001.


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

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

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

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

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

*Conversion exit GJAHR, internal->external for field ZUJHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_ENT3001-ZUJHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ENT3001-ZUJHR.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit GJAHR, internal->external for field URJHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_ENT3001-URJHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ENT3001-URJHR.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC132, internal->external for field URWRT
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_ENT3001-URWRT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ENT3001-URWRT.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit AC132, internal->external for field WRTMA
CALL FUNCTION 'CONVERSION_EXIT_AC132_OUTPUT'
  EXPORTING
    input =                      WA_ENT3001-WRTMA
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ENT3001-WRTMA.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field SPRAS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_ENT3001-SPRAS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ENT3001-SPRAS.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ABPSP, internal->external for field POSNR
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
  EXPORTING
    input =                      WA_ENT3001-POSNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ENT3001-POSNR.
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_ENT3001_STR, 
MANDT TYPE STRING,
BUKRS TYPE STRING,
ANLN1 TYPE STRING,
ANLN2 TYPE STRING,
ANLKL TYPE STRING,
GEGST TYPE STRING,
ANLAR TYPE STRING,
ERNAM TYPE STRING,
ERDAT TYPE STRING,
AENAM TYPE STRING,
AEDAT TYPE STRING,
XLOEV TYPE STRING,
XSPEB TYPE STRING,
FELEI TYPE STRING,
KTOGR TYPE STRING,
XOPVW TYPE STRING,
ANLTP TYPE STRING,
ZUJHR TYPE STRING,
ZUPER TYPE STRING,
ZUGDT TYPE STRING,
AKTIV TYPE STRING,
ABGDT TYPE STRING,
DEAKT TYPE STRING,
GPLAB TYPE STRING,
BSTDT TYPE STRING,
ORD41 TYPE STRING,
ORD42 TYPE STRING,
ORD43 TYPE STRING,
ORD44 TYPE STRING,
ZUAWA TYPE STRING,
ANEQK TYPE STRING,
ANEQS TYPE STRING,
LIFNR TYPE STRING,
LAND1 TYPE STRING,
LIEFE TYPE STRING,
HERST TYPE STRING,
EIGKZ TYPE STRING,
AIBN1 TYPE STRING,
AIBN2 TYPE STRING,
AIBDT TYPE STRING,
URJHR TYPE STRING,
URWRT TYPE STRING,
ANTEI TYPE STRING,
EAUFN TYPE STRING,
MEINS TYPE STRING,
MENGE TYPE STRING,
TYPBZ TYPE STRING,
IZWEK TYPE STRING,
INKEN TYPE STRING,
IVDAT TYPE STRING,
INVZU TYPE STRING,
VMGLI TYPE STRING,
XVRMW TYPE STRING,
WRTMA TYPE STRING,
GRUND TYPE STRING,
INVNR TYPE STRING,
VBUND TYPE STRING,
SPRAS TYPE STRING,
TXT50 TYPE STRING,
TXA50 TYPE STRING,
XLTXID TYPE STRING,
XVERID TYPE STRING,
XTCHID TYPE STRING,
XKALID TYPE STRING,
XHERID TYPE STRING,
XLEAID TYPE STRING,
XAKTIV TYPE STRING,
ANUPD TYPE STRING,
LBLNR TYPE STRING,
XV0DT TYPE STRING,
XV0NM TYPE STRING,
XV1DT TYPE STRING,
XV1NM TYPE STRING,
XV2DT TYPE STRING,
XV2NM TYPE STRING,
XV3DT TYPE STRING,
XV3NM TYPE STRING,
XV4DT TYPE STRING,
XV4NM TYPE STRING,
XV5DT TYPE STRING,
XV5NM TYPE STRING,
XV6DT TYPE STRING,
XV6NM TYPE STRING,
AIMMO TYPE STRING,
OBJNR TYPE STRING,
GDLGRP TYPE STRING,
POSNR TYPE STRING,
XERWRT TYPE STRING,
XAFABCH TYPE STRING,
XINVM TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ENT3001_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_ENT3001_STR-MANDT sy-vline 
WA_ENT3001_STR-BUKRS sy-vline 
WA_ENT3001_STR-ANLN1 sy-vline 
WA_ENT3001_STR-ANLN2 sy-vline 
WA_ENT3001_STR-ANLKL sy-vline 
WA_ENT3001_STR-GEGST sy-vline 
WA_ENT3001_STR-ANLAR sy-vline 
WA_ENT3001_STR-ERNAM sy-vline 
WA_ENT3001_STR-ERDAT sy-vline 
WA_ENT3001_STR-AENAM sy-vline 
WA_ENT3001_STR-AEDAT sy-vline 
WA_ENT3001_STR-XLOEV sy-vline 
WA_ENT3001_STR-XSPEB sy-vline 
WA_ENT3001_STR-FELEI sy-vline 
WA_ENT3001_STR-KTOGR sy-vline 
WA_ENT3001_STR-XOPVW sy-vline 
WA_ENT3001_STR-ANLTP sy-vline 
WA_ENT3001_STR-ZUJHR sy-vline 
WA_ENT3001_STR-ZUPER sy-vline 
WA_ENT3001_STR-ZUGDT sy-vline 
WA_ENT3001_STR-AKTIV sy-vline 
WA_ENT3001_STR-ABGDT sy-vline 
WA_ENT3001_STR-DEAKT sy-vline 
WA_ENT3001_STR-GPLAB sy-vline 
WA_ENT3001_STR-BSTDT sy-vline 
WA_ENT3001_STR-ORD41 sy-vline 
WA_ENT3001_STR-ORD42 sy-vline 
WA_ENT3001_STR-ORD43 sy-vline 
WA_ENT3001_STR-ORD44 sy-vline 
WA_ENT3001_STR-ZUAWA sy-vline 
WA_ENT3001_STR-ANEQK sy-vline 
WA_ENT3001_STR-ANEQS sy-vline 
WA_ENT3001_STR-LIFNR sy-vline 
WA_ENT3001_STR-LAND1 sy-vline 
WA_ENT3001_STR-LIEFE sy-vline 
WA_ENT3001_STR-HERST sy-vline 
WA_ENT3001_STR-EIGKZ sy-vline 
WA_ENT3001_STR-AIBN1 sy-vline 
WA_ENT3001_STR-AIBN2 sy-vline 
WA_ENT3001_STR-AIBDT sy-vline 
WA_ENT3001_STR-URJHR sy-vline 
WA_ENT3001_STR-URWRT sy-vline 
WA_ENT3001_STR-ANTEI sy-vline 
WA_ENT3001_STR-EAUFN sy-vline 
WA_ENT3001_STR-MEINS sy-vline 
WA_ENT3001_STR-MENGE sy-vline 
WA_ENT3001_STR-TYPBZ sy-vline 
WA_ENT3001_STR-IZWEK sy-vline 
WA_ENT3001_STR-INKEN sy-vline 
WA_ENT3001_STR-IVDAT sy-vline 
WA_ENT3001_STR-INVZU sy-vline 
WA_ENT3001_STR-VMGLI sy-vline 
WA_ENT3001_STR-XVRMW sy-vline 
WA_ENT3001_STR-WRTMA sy-vline 
WA_ENT3001_STR-GRUND sy-vline 
WA_ENT3001_STR-INVNR sy-vline 
WA_ENT3001_STR-VBUND sy-vline 
WA_ENT3001_STR-SPRAS sy-vline 
WA_ENT3001_STR-TXT50 sy-vline 
WA_ENT3001_STR-TXA50 sy-vline 
WA_ENT3001_STR-XLTXID sy-vline 
WA_ENT3001_STR-XVERID sy-vline 
WA_ENT3001_STR-XTCHID sy-vline 
WA_ENT3001_STR-XKALID sy-vline 
WA_ENT3001_STR-XHERID sy-vline 
WA_ENT3001_STR-XLEAID sy-vline 
WA_ENT3001_STR-XAKTIV sy-vline 
WA_ENT3001_STR-ANUPD sy-vline 
WA_ENT3001_STR-LBLNR sy-vline 
WA_ENT3001_STR-XV0DT sy-vline 
WA_ENT3001_STR-XV0NM sy-vline 
WA_ENT3001_STR-XV1DT sy-vline 
WA_ENT3001_STR-XV1NM sy-vline 
WA_ENT3001_STR-XV2DT sy-vline 
WA_ENT3001_STR-XV2NM sy-vline 
WA_ENT3001_STR-XV3DT sy-vline 
WA_ENT3001_STR-XV3NM sy-vline 
WA_ENT3001_STR-XV4DT sy-vline 
WA_ENT3001_STR-XV4NM sy-vline 
WA_ENT3001_STR-XV5DT sy-vline 
WA_ENT3001_STR-XV5NM sy-vline 
WA_ENT3001_STR-XV6DT sy-vline 
WA_ENT3001_STR-XV6NM sy-vline 
WA_ENT3001_STR-AIMMO sy-vline 
WA_ENT3001_STR-OBJNR sy-vline 
WA_ENT3001_STR-GDLGRP sy-vline 
WA_ENT3001_STR-POSNR sy-vline 
WA_ENT3001_STR-XERWRT sy-vline 
WA_ENT3001_STR-XAFABCH sy-vline 
WA_ENT3001_STR-XINVM sy-vline      INTO ld_text SEPARATED BY SPACE.

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