ABAP Select data from SAP table E1HR_GR 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 E1HR_GR 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 E1HR_GR. 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 E1HR_GR 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_E1HR_GR TYPE STANDARD TABLE OF E1HR_GR,
      WA_E1HR_GR TYPE E1HR_GR,
      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: <E1HR_GR> TYPE E1HR_GR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM E1HR_GR
*  INTO TABLE @DATA(IT_E1HR_GR2).
*--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_E1HR_GR INDEX 1 INTO DATA(WA_E1HR_GR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<E1HR_GR>-BEGDA = 1.
<E1HR_GR>-ENDDA = 1.
<E1HR_GR>-ORDCD = 1.
<E1HR_GR>-GCASE = 1.
<E1HR_GR>-GRNUM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_E1HR_GR-SEQNR, sy-vline,
  WA_E1HR_GR-GPRIO, sy-vline,
  WA_E1HR_GR-LIFNR, sy-vline,
  WA_E1HR_GR-VNAME, sy-vline,
  WA_E1HR_GR-VSTRT, sy-vline,
  WA_E1HR_GR-VCITY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_E1HR_GR 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_E1HR_GR 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_E1HR_GR INTO WA_E1HR_GR.


*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_E1HR_GR_STR, 
BEGDA TYPE STRING,
ENDDA TYPE STRING,
ORDCD TYPE STRING,
GCASE TYPE STRING,
GRNUM TYPE STRING,
SEQNR TYPE STRING,
GPRIO TYPE STRING,
LIFNR TYPE STRING,
VNAME TYPE STRING,
VSTRT TYPE STRING,
VCITY TYPE STRING,
VSTATE TYPE STRING,
VCTY TYPE STRING,
VPSTLZ TYPE STRING,
ORIGN TYPE STRING,
LGART TYPE STRING,
IBALN TYPE STRING,
DEDUC TYPE STRING,
DEDUT TYPE STRING,
NEIN1 TYPE STRING,
NVAL1 TYPE STRING,
NUNI1 TYPE STRING,
NEIN2 TYPE STRING,
NVAL2 TYPE STRING,
NUNI2 TYPE STRING,
ADDIN TYPE STRING,
ADDVL TYPE STRING,
ADDUN TYPE STRING,
FSTAT TYPE STRING,
EXEMP TYPE STRING,
ADATE TYPE STRING,
AREAS TYPE STRING,
ADAMT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_E1HR_GR_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_E1HR_GR_STR-BEGDA sy-vline 
WA_E1HR_GR_STR-ENDDA sy-vline 
WA_E1HR_GR_STR-ORDCD sy-vline 
WA_E1HR_GR_STR-GCASE sy-vline 
WA_E1HR_GR_STR-GRNUM sy-vline 
WA_E1HR_GR_STR-SEQNR sy-vline 
WA_E1HR_GR_STR-GPRIO sy-vline 
WA_E1HR_GR_STR-LIFNR sy-vline 
WA_E1HR_GR_STR-VNAME sy-vline 
WA_E1HR_GR_STR-VSTRT sy-vline 
WA_E1HR_GR_STR-VCITY sy-vline 
WA_E1HR_GR_STR-VSTATE sy-vline 
WA_E1HR_GR_STR-VCTY sy-vline 
WA_E1HR_GR_STR-VPSTLZ sy-vline 
WA_E1HR_GR_STR-ORIGN sy-vline 
WA_E1HR_GR_STR-LGART sy-vline 
WA_E1HR_GR_STR-IBALN sy-vline 
WA_E1HR_GR_STR-DEDUC sy-vline 
WA_E1HR_GR_STR-DEDUT sy-vline 
WA_E1HR_GR_STR-NEIN1 sy-vline 
WA_E1HR_GR_STR-NVAL1 sy-vline 
WA_E1HR_GR_STR-NUNI1 sy-vline 
WA_E1HR_GR_STR-NEIN2 sy-vline 
WA_E1HR_GR_STR-NVAL2 sy-vline 
WA_E1HR_GR_STR-NUNI2 sy-vline 
WA_E1HR_GR_STR-ADDIN sy-vline 
WA_E1HR_GR_STR-ADDVL sy-vline 
WA_E1HR_GR_STR-ADDUN sy-vline 
WA_E1HR_GR_STR-FSTAT sy-vline 
WA_E1HR_GR_STR-EXEMP sy-vline 
WA_E1HR_GR_STR-ADATE sy-vline 
WA_E1HR_GR_STR-AREAS sy-vline 
WA_E1HR_GR_STR-ADAMT sy-vline      INTO ld_text SEPARATED BY SPACE.

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