ABAP Select data from SAP table IFIRTMOPSTKPI 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 IFIRTMOPSTKPI 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 IFIRTMOPSTKPI. 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 IFIRTMOPSTKPI 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_IFIRTMOPSTKPI TYPE STANDARD TABLE OF IFIRTMOPSTKPI,
      WA_IFIRTMOPSTKPI TYPE IFIRTMOPSTKPI,
      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: <IFIRTMOPSTKPI> TYPE IFIRTMOPSTKPI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IFIRTMOPSTKPI
*  INTO TABLE @DATA(IT_IFIRTMOPSTKPI2).
*--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_IFIRTMOPSTKPI INDEX 1 INTO DATA(WA_IFIRTMOPSTKPI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IFIRTMOPSTKPI>-MANDT = 1.
<IFIRTMOPSTKPI>-ORDERID = 1.
<IFIRTMOPSTKPI>-LEDGER = 1.
<IFIRTMOPSTKPI>-LEDGERNAME = 1.
<IFIRTMOPSTKPI>-ORDERDESCRIPTION = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IFIRTMOPSTKPI-CONTROLLINGOBJECT, sy-vline,
  WA_IFIRTMOPSTKPI-CONTROLLINGAREA, sy-vline,
  WA_IFIRTMOPSTKPI-COMPANYCODE, sy-vline,
  WA_IFIRTMOPSTKPI-ORDERTYPE, sy-vline,
  WA_IFIRTMOPSTKPI-MATERIAL, sy-vline,
  WA_IFIRTMOPSTKPI-PLANT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IFIRTMOPSTKPI 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_IFIRTMOPSTKPI 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_IFIRTMOPSTKPI INTO WA_IFIRTMOPSTKPI.


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

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

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

*Conversion exit ALPHA, internal->external for field PROFITCENTER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_IFIRTMOPSTKPI-PROFITCENTER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IFIRTMOPSTKPI-PROFITCENTER.
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_IFIRTMOPSTKPI_STR, 
MANDT TYPE STRING,
ORDERID TYPE STRING,
LEDGER TYPE STRING,
LEDGERNAME TYPE STRING,
ORDERDESCRIPTION TYPE STRING,
CONTROLLINGOBJECT TYPE STRING,
CONTROLLINGAREA TYPE STRING,
COMPANYCODE TYPE STRING,
ORDERTYPE TYPE STRING,
MATERIAL TYPE STRING,
PLANT TYPE STRING,
ORDERCATEGORY TYPE STRING,
PROFITCENTER TYPE STRING,
STATUSCODE TYPE STRING,
POSTINGDATE TYPE STRING,
WIPCUMLTVAMTINCOCODECURRENCY TYPE STRING,
WIPCUMLTVAMTINGLOBALCURRENCY TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY1 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY2 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY3 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY4 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY5 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY6 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY7 TYPE STRING,
WIPCUMLTVAMTINFREEDFNDCRCY8 TYPE STRING,
RSRVCUMLTVAMTINCOCODECURRENCY TYPE STRING,
RSRVCUMLTVAMTINGLOBALCURRENCY TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY1 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY2 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY3 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY4 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY5 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY6 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY7 TYPE STRING,
RSRVCUMLTVAMTINFREEDFNDCRCY8 TYPE STRING,
VARCCUMLTVAMTINCOCODECURRENCY TYPE STRING,
VARCCUMLTVAMTINGLOBALCURRENCY TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY1 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY2 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY3 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY4 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY5 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY6 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY7 TYPE STRING,
VARCCUMLTVAMTINFREEDFNDCRCY8 TYPE STRING,
WIPPERDAMTINCOCODECURRENCY TYPE STRING,
WIPPERDAMTINGLOBALCURRENCY TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY1 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY2 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY3 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY4 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY5 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY6 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY7 TYPE STRING,
WIPPERDAMTINFREEDEFINEDCRCY8 TYPE STRING,
RSRVPERDAMTINCOCODECURRENCY TYPE STRING,
RSRVPERDAMTINGLOBALCURRENCY TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY1 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY2 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY3 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY4 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY5 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY6 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY7 TYPE STRING,
RSRVPERDAMTINFREEDEFINEDCRCY8 TYPE STRING,
VARCPERDAMTINCOCODECURRENCY TYPE STRING,
VARCPERDAMTINGLOBALCURRENCY TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY1 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY2 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY3 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY4 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY5 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY6 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY7 TYPE STRING,
VARCPERDAMTINFREEDEFINEDCRCY8 TYPE STRING,
COMPANYCODECURRENCY TYPE STRING,
GLOBALCURRENCY TYPE STRING,
FREEDEFINEDCURRENCY1 TYPE STRING,
FREEDEFINEDCURRENCY2 TYPE STRING,
FREEDEFINEDCURRENCY3 TYPE STRING,
FREEDEFINEDCURRENCY4 TYPE STRING,
FREEDEFINEDCURRENCY5 TYPE STRING,
FREEDEFINEDCURRENCY6 TYPE STRING,
FREEDEFINEDCURRENCY7 TYPE STRING,
FREEDEFINEDCURRENCY8 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IFIRTMOPSTKPI_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_IFIRTMOPSTKPI_STR-MANDT sy-vline 
WA_IFIRTMOPSTKPI_STR-ORDERID sy-vline 
WA_IFIRTMOPSTKPI_STR-LEDGER sy-vline 
WA_IFIRTMOPSTKPI_STR-LEDGERNAME sy-vline 
WA_IFIRTMOPSTKPI_STR-ORDERDESCRIPTION sy-vline 
WA_IFIRTMOPSTKPI_STR-CONTROLLINGOBJECT sy-vline 
WA_IFIRTMOPSTKPI_STR-CONTROLLINGAREA sy-vline 
WA_IFIRTMOPSTKPI_STR-COMPANYCODE sy-vline 
WA_IFIRTMOPSTKPI_STR-ORDERTYPE sy-vline 
WA_IFIRTMOPSTKPI_STR-MATERIAL sy-vline 
WA_IFIRTMOPSTKPI_STR-PLANT sy-vline 
WA_IFIRTMOPSTKPI_STR-ORDERCATEGORY sy-vline 
WA_IFIRTMOPSTKPI_STR-PROFITCENTER sy-vline 
WA_IFIRTMOPSTKPI_STR-STATUSCODE sy-vline 
WA_IFIRTMOPSTKPI_STR-POSTINGDATE sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINCOCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINGLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPCUMLTVAMTINFREEDFNDCRCY8 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINCOCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINGLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVCUMLTVAMTINFREEDFNDCRCY8 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINCOCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINGLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCCUMLTVAMTINFREEDFNDCRCY8 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINCOCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINGLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-WIPPERDAMTINFREEDEFINEDCRCY8 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINCOCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINGLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-RSRVPERDAMTINFREEDEFINEDCRCY8 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINCOCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINGLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-VARCPERDAMTINFREEDEFINEDCRCY8 sy-vline 
WA_IFIRTMOPSTKPI_STR-COMPANYCODECURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-GLOBALCURRENCY sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY1 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY2 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY3 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY4 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY5 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY6 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY7 sy-vline 
WA_IFIRTMOPSTKPI_STR-FREEDEFINEDCURRENCY8 sy-vline      INTO ld_text SEPARATED BY SPACE.

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