ABAP Select data from SAP table EACTSTAT 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 EACTSTAT 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 EACTSTAT. 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 EACTSTAT 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_EACTSTAT TYPE STANDARD TABLE OF EACTSTAT,
      WA_EACTSTAT TYPE EACTSTAT,
      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: <EACTSTAT> TYPE EACTSTAT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM EACTSTAT
*  INTO TABLE @DATA(IT_EACTSTAT2).
*--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_EACTSTAT INDEX 1 INTO DATA(WA_EACTSTAT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<EACTSTAT>-RLTYP = 1.
<EACTSTAT>-TYPE = 1.
<EACTSTAT>-BUKRS = 1.
<EACTSTAT>-SPARTE = 1.
<EACTSTAT>-VKTYP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_EACTSTAT-KTOKL, sy-vline,
  WA_EACTSTAT-ERGRD, sy-vline,
  WA_EACTSTAT-EIGENVERBR, sy-vline,
  WA_EACTSTAT-KOFIZ, sy-vline,
  WA_EACTSTAT-PRCTR, sy-vline,
  WA_EACTSTAT-AKLASSE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_EACTSTAT 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_EACTSTAT 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_EACTSTAT INTO WA_EACTSTAT.


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

*Conversion exit MATN1, internal->external for field GERTYP
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_EACTSTAT-GERTYP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EACTSTAT-GERTYP.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit MATN1, internal->external for field GERTYP_A
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_EACTSTAT-GERTYP_A
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EACTSTAT-GERTYP_A.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

*Conversion exit TPLNR, internal->external for field DEVLOC
CALL FUNCTION 'CONVERSION_EXIT_TPLNR_OUTPUT'
  EXPORTING
    input =                      WA_EACTSTAT-DEVLOC
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EACTSTAT-DEVLOC.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field PARTNER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_EACTSTAT-PARTNER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_EACTSTAT-PARTNER.
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_EACTSTAT_STR, 
RLTYP TYPE STRING,
TYPE TYPE STRING,
BUKRS TYPE STRING,
SPARTE TYPE STRING,
VKTYP TYPE STRING,
KTOKL TYPE STRING,
ERGRD TYPE STRING,
EIGENVERBR TYPE STRING,
KOFIZ TYPE STRING,
PRCTR TYPE STRING,
AKLASSE TYPE STRING,
PAUSCHAL TYPE STRING,
VBSART TYPE STRING,
TARIFTYP TYPE STRING,
OPERAND TYPE STRING,
SPGRUND TYPE STRING,
GERWECHS TYPE STRING,
GERTYP TYPE STRING,
FUNKLAS TYPE STRING,
BAUKLAS TYPE STRING,
ZWGRUPPE TYPE STRING,
EAGRUPPE TYPE STRING,
UMBAUGR TYPE STRING,
CANCEL_TYPE TYPE STRING,
GERTYP_A TYPE STRING,
ZWGRUPPE_A TYPE STRING,
EAGRUPPE_A TYPE STRING,
FUNKLAS_A TYPE STRING,
BAUKLAS_A TYPE STRING,
WERK TYPE STRING,
LAGER TYPE STRING,
MANOUTSORT TYPE STRING,
AUSGRUP TYPE STRING,
ABRVORG TYPE STRING,
LOSAMT TYPE STRING,
LOSANZG TYPE STRING,
LOSFAELL TYPE STRING,
VERFAHREN TYPE STRING,
EMESSWERK TYPE STRING,
REGPOLIT TYPE STRING,
OTYPE TYPE STRING,
ACTORID TYPE STRING,
EQUNR TYPE STRING,
BGLJAHR TYPE STRING,
BAUJJ TYPE STRING,
VALIDATION TYPE STRING,
VERTYP TYPE STRING,
VERART TYPE STRING,
PORTION TYPE STRING,
AB TYPE STRING,
DEVLOC TYPE STRING,
ANLAGE TYPE STRING,
ANLART TYPE STRING,
PARTNER TYPE STRING,END OF T_EKKO_STR.
DATA: WA_EACTSTAT_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_EACTSTAT_STR-RLTYP sy-vline 
WA_EACTSTAT_STR-TYPE sy-vline 
WA_EACTSTAT_STR-BUKRS sy-vline 
WA_EACTSTAT_STR-SPARTE sy-vline 
WA_EACTSTAT_STR-VKTYP sy-vline 
WA_EACTSTAT_STR-KTOKL sy-vline 
WA_EACTSTAT_STR-ERGRD sy-vline 
WA_EACTSTAT_STR-EIGENVERBR sy-vline 
WA_EACTSTAT_STR-KOFIZ sy-vline 
WA_EACTSTAT_STR-PRCTR sy-vline 
WA_EACTSTAT_STR-AKLASSE sy-vline 
WA_EACTSTAT_STR-PAUSCHAL sy-vline 
WA_EACTSTAT_STR-VBSART sy-vline 
WA_EACTSTAT_STR-TARIFTYP sy-vline 
WA_EACTSTAT_STR-OPERAND sy-vline 
WA_EACTSTAT_STR-SPGRUND sy-vline 
WA_EACTSTAT_STR-GERWECHS sy-vline 
WA_EACTSTAT_STR-GERTYP sy-vline 
WA_EACTSTAT_STR-FUNKLAS sy-vline 
WA_EACTSTAT_STR-BAUKLAS sy-vline 
WA_EACTSTAT_STR-ZWGRUPPE sy-vline 
WA_EACTSTAT_STR-EAGRUPPE sy-vline 
WA_EACTSTAT_STR-UMBAUGR sy-vline 
WA_EACTSTAT_STR-CANCEL_TYPE sy-vline 
WA_EACTSTAT_STR-GERTYP_A sy-vline 
WA_EACTSTAT_STR-ZWGRUPPE_A sy-vline 
WA_EACTSTAT_STR-EAGRUPPE_A sy-vline 
WA_EACTSTAT_STR-FUNKLAS_A sy-vline 
WA_EACTSTAT_STR-BAUKLAS_A sy-vline 
WA_EACTSTAT_STR-WERK sy-vline 
WA_EACTSTAT_STR-LAGER sy-vline 
WA_EACTSTAT_STR-MANOUTSORT sy-vline 
WA_EACTSTAT_STR-AUSGRUP sy-vline 
WA_EACTSTAT_STR-ABRVORG sy-vline 
WA_EACTSTAT_STR-LOSAMT sy-vline 
WA_EACTSTAT_STR-LOSANZG sy-vline 
WA_EACTSTAT_STR-LOSFAELL sy-vline 
WA_EACTSTAT_STR-VERFAHREN sy-vline 
WA_EACTSTAT_STR-EMESSWERK sy-vline 
WA_EACTSTAT_STR-REGPOLIT sy-vline 
WA_EACTSTAT_STR-OTYPE sy-vline 
WA_EACTSTAT_STR-ACTORID sy-vline 
WA_EACTSTAT_STR-EQUNR sy-vline 
WA_EACTSTAT_STR-BGLJAHR sy-vline 
WA_EACTSTAT_STR-BAUJJ sy-vline 
WA_EACTSTAT_STR-VALIDATION sy-vline 
WA_EACTSTAT_STR-VERTYP sy-vline 
WA_EACTSTAT_STR-VERART sy-vline 
WA_EACTSTAT_STR-PORTION sy-vline 
WA_EACTSTAT_STR-AB sy-vline 
WA_EACTSTAT_STR-DEVLOC sy-vline 
WA_EACTSTAT_STR-ANLAGE sy-vline 
WA_EACTSTAT_STR-ANLART sy-vline 
WA_EACTSTAT_STR-PARTNER sy-vline      INTO ld_text SEPARATED BY SPACE.

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