ABAP Select data from SAP table PERFDATA 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 PERFDATA 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 PERFDATA. 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 PERFDATA 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_PERFDATA TYPE STANDARD TABLE OF PERFDATA,
      WA_PERFDATA TYPE PERFDATA,
      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: <PERFDATA> TYPE PERFDATA.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PERFDATA
*  INTO TABLE @DATA(IT_PERFDATA2).
*--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_PERFDATA INDEX 1 INTO DATA(WA_PERFDATA2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PERFDATA>-WEBBYTES = 1.
<PERFDATA>-WEBTIME = 1.
<PERFDATA>-WEBIMGTIME = 1.
<PERFDATA>-WEBGUICNT = 1.
<PERFDATA>-WEBGUIOPT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PERFDATA-WEBGUITIME, sy-vline,
  WA_PERFDATA-APPQTIME, sy-vline,
  WA_PERFDATA-APPCPUTIME, sy-vline,
  WA_PERFDATA-APPTIME, sy-vline,
  WA_PERFDATA-APPBYTES, sy-vline,
  WA_PERFDATA-APPGENTIME, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PERFDATA 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_PERFDATA 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_PERFDATA INTO WA_PERFDATA.


*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_PERFDATA_STR, 
WEBBYTES TYPE STRING,
WEBTIME TYPE STRING,
WEBIMGTIME TYPE STRING,
WEBGUICNT TYPE STRING,
WEBGUIOPT TYPE STRING,
WEBGUITIME TYPE STRING,
APPQTIME TYPE STRING,
APPCPUTIME TYPE STRING,
APPTIME TYPE STRING,
APPBYTES TYPE STRING,
APPGENTIME TYPE STRING,
APPRFCTIME TYPE STRING,
APPRFCCNT TYPE STRING,
DBBYTES TYPE STRING,
DBTIME TYPE STRING,
DBCNT TYPE STRING,
DBCNTPHYS TYPE STRING,
DBREC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PERFDATA_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_PERFDATA_STR-WEBBYTES sy-vline 
WA_PERFDATA_STR-WEBTIME sy-vline 
WA_PERFDATA_STR-WEBIMGTIME sy-vline 
WA_PERFDATA_STR-WEBGUICNT sy-vline 
WA_PERFDATA_STR-WEBGUIOPT sy-vline 
WA_PERFDATA_STR-WEBGUITIME sy-vline 
WA_PERFDATA_STR-APPQTIME sy-vline 
WA_PERFDATA_STR-APPCPUTIME sy-vline 
WA_PERFDATA_STR-APPTIME sy-vline 
WA_PERFDATA_STR-APPBYTES sy-vline 
WA_PERFDATA_STR-APPGENTIME sy-vline 
WA_PERFDATA_STR-APPRFCTIME sy-vline 
WA_PERFDATA_STR-APPRFCCNT sy-vline 
WA_PERFDATA_STR-DBBYTES sy-vline 
WA_PERFDATA_STR-DBTIME sy-vline 
WA_PERFDATA_STR-DBCNT sy-vline 
WA_PERFDATA_STR-DBCNTPHYS sy-vline 
WA_PERFDATA_STR-DBREC sy-vline      INTO ld_text SEPARATED BY SPACE.

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