ABAP Select data from SAP table PEGP_SI_REPORT_RESULT 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 PEGP_SI_REPORT_RESULT 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 PEGP_SI_REPORT_RESULT. 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 PEGP_SI_REPORT_RESULT 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_PEGP_SI_REPORT_RESULT TYPE STANDARD TABLE OF PEGP_SI_REPORT_RESULT,
      WA_PEGP_SI_REPORT_RESULT TYPE PEGP_SI_REPORT_RESULT,
      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: <PEGP_SI_REPORT_RESULT> TYPE PEGP_SI_REPORT_RESULT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PEGP_SI_REPORT_RESULT
*  INTO TABLE @DATA(IT_PEGP_SI_REPORT_RESULT2).
*--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_PEGP_SI_REPORT_RESULT INDEX 1 INTO DATA(WA_PEGP_SI_REPORT_RESULT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PEGP_SI_REPORT_RESULT>-BUKRS = 1.
<PEGP_SI_REPORT_RESULT>-BUTXT = 1.
<PEGP_SI_REPORT_RESULT>-REGNO = 1.
<PEGP_SI_REPORT_RESULT>-STRAS = 1.
<PEGP_SI_REPORT_RESULT>-HSNMR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PEGP_SI_REPORT_RESULT-STATE, sy-vline,
  WA_PEGP_SI_REPORT_RESULT-ORT01, sy-vline,
  WA_PEGP_SI_REPORT_RESULT-TFSAL, sy-vline,
  WA_PEGP_SI_REPORT_RESULT-TVSAL, sy-vline,
  WA_PEGP_SI_REPORT_RESULT-WAERS, sy-vline,
  WA_PEGP_SI_REPORT_RESULT-SYDAT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PEGP_SI_REPORT_RESULT 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_PEGP_SI_REPORT_RESULT 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_PEGP_SI_REPORT_RESULT INTO WA_PEGP_SI_REPORT_RESULT.


*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_PEGP_SI_REPORT_RESULT_STR, 
BUKRS TYPE STRING,
BUTXT TYPE STRING,
REGNO TYPE STRING,
STRAS TYPE STRING,
HSNMR TYPE STRING,
STATE TYPE STRING,
ORT01 TYPE STRING,
TFSAL TYPE STRING,
TVSAL TYPE STRING,
WAERS TYPE STRING,
SYDAT TYPE STRING,
SYDAT_D TYPE STRING,
SYDAT_M TYPE STRING,
SYDAT_Y TYPE STRING,
EMPSIDET TYPE STRING,
TFSAL_EGP TYPE STRING,
TFSAL_QIRSH TYPE STRING,
TVSAL_EGP TYPE STRING,
TVSAL_QIRSH TYPE STRING,
BUNIT TYPE STRING,
RPDAT TYPE STRING,
RPDAT_D TYPE STRING,
RPDAT_M TYPE STRING,
RPDAT_Y TYPE STRING,
MANGR TYPE STRING,
SRDAT TYPE STRING,
SRDAT_D TYPE STRING,
SRDAT_M TYPE STRING,
SRDAT_Y TYPE STRING,
BEZEI TYPE STRING,
ORT02 TYPE STRING,
NOEMP TYPE STRING,
DESGN TYPE STRING,
VRINT TYPE STRING,
TAXNO TYPE STRING,
CSIOA TYPE STRING,
CSION TYPE STRING,
FORMN TYPE STRING,
CABDE TYPE STRING,
FORMY TYPE STRING,
FALAW TYPE STRING,
ILLIR TYPE STRING,
ILLID TYPE STRING,
ILLID_D TYPE STRING,
ILLID_M TYPE STRING,
ILLID_Y TYPE STRING,
INJIR TYPE STRING,
INJID TYPE STRING,
INJID_D TYPE STRING,
INJID_M TYPE STRING,
INJID_Y TYPE STRING,
DISCD TYPE STRING,
DISCD_D TYPE STRING,
DISCD_M TYPE STRING,
DISCD_Y TYPE STRING,
DISCR TYPE STRING,
ACTIS TYPE STRING,
ACTIS_D TYPE STRING,
ACTIS_M TYPE STRING,
ACTIS_Y TYPE STRING,
FORMR TYPE STRING,
FORMS TYPE STRING,
SUBSP TYPE STRING,
REGAU TYPE STRING,
REVAU TYPE STRING,
NOEMP_TOTAL TYPE STRING,
TVSAL_TOTAL TYPE STRING,
TVSAL_TOTAL_EGP TYPE STRING,
TVSAL_TOTAL_QIRSH TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PEGP_SI_REPORT_RESULT_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_PEGP_SI_REPORT_RESULT_STR-BUKRS sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-BUTXT sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-REGNO sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-STRAS sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-HSNMR sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-STATE sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ORT01 sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TFSAL sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TVSAL sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-WAERS sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SYDAT sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SYDAT_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SYDAT_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SYDAT_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-EMPSIDET sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TFSAL_EGP sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TFSAL_QIRSH sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TVSAL_EGP sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TVSAL_QIRSH sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-BUNIT sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-RPDAT sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-RPDAT_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-RPDAT_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-RPDAT_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-MANGR sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SRDAT sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SRDAT_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SRDAT_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SRDAT_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-BEZEI sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ORT02 sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-NOEMP sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-DESGN sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-VRINT sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TAXNO sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-CSIOA sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-CSION sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-FORMN sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-CABDE sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-FORMY sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-FALAW sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ILLIR sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ILLID sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ILLID_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ILLID_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ILLID_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-INJIR sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-INJID sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-INJID_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-INJID_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-INJID_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-DISCD sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-DISCD_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-DISCD_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-DISCD_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-DISCR sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ACTIS sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ACTIS_D sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ACTIS_M sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-ACTIS_Y sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-FORMR sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-FORMS sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-SUBSP sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-REGAU sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-REVAU sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-NOEMP_TOTAL sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TVSAL_TOTAL sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TVSAL_TOTAL_EGP sy-vline 
WA_PEGP_SI_REPORT_RESULT_STR-TVSAL_TOTAL_QIRSH sy-vline      INTO ld_text SEPARATED BY SPACE.

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