ABAP Select data from SAP table RFFFPDO1 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 RFFFPDO1 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 RFFFPDO1. 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 RFFFPDO1 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_RFFFPDO1 TYPE STANDARD TABLE OF RFFFPDO1,
      WA_RFFFPDO1 TYPE RFFFPDO1,
      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: <RFFFPDO1> TYPE RFFFPDO1.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RFFFPDO1
*  INTO TABLE @DATA(IT_RFFFPDO12).
*--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_RFFFPDO1 INDEX 1 INTO DATA(WA_RFFFPDO12).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RFFFPDO1>-FDBUILDUP = 1.
<RFFFPDO1>-FFDEA00EPA = 1.
<RFFFPDO1>-FFDIS_SEPA = 1.
<RFFFPDO1>-FFDIS_SOR1 = 1.
<RFFFPDO1>-FFDIS_SOR2 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RFFFPDO1-FFDIS_SOR3, sy-vline,
  WA_RFFFPDO1-FFDISDELDT, sy-vline,
  WA_RFFFPDO1-FFDISDEVDT, sy-vline,
  WA_RFFFPDO1-FFDISFILE, sy-vline,
  WA_RFFFPDO1-FFDISISOHW, sy-vline,
  WA_RFFFPDO1-FFDISXVERD, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RFFFPDO1 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_RFFFPDO1 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_RFFFPDO1 INTO WA_RFFFPDO1.


*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 EXCRT, internal->external for field FFDIS_WKURS
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_RFFFPDO1-FFDIS_WKURS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RFFFPDO1-FFDIS_WKURS.
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_RFFFPDO1_STR, 
FDBUILDUP TYPE STRING,
FFDEA00EPA TYPE STRING,
FFDIS_SEPA TYPE STRING,
FFDIS_SOR1 TYPE STRING,
FFDIS_SOR2 TYPE STRING,
FFDIS_SOR3 TYPE STRING,
FFDISDELDT TYPE STRING,
FFDISDEVDT TYPE STRING,
FFDISFILE TYPE STRING,
FFDISISOHW TYPE STRING,
FFDISXVERD TYPE STRING,
FFDISFIL1 TYPE STRING,
FFDIS45ARC TYPE STRING,
FFDIS46ARC TYPE STRING,
FFDIS45AUM TYPE STRING,
FFDIS46AUM TYPE STRING,
FFDIS45MAB TYPE STRING,
FFDIS46MAB TYPE STRING,
FFDIS45MBB TYPE STRING,
FFDIS45MBT TYPE STRING,
FFDIS46MBK TYPE STRING,
FFDIS46MBT TYPE STRING,
FFDIS_PROZ TYPE STRING,
FFDIS_WKURS TYPE STRING,
FFDIS_MANL TYPE STRING,
FFDIS_DISTL TYPE STRING,
FFDIS_ACT TYPE STRING,
FFDIS_SDF TYPE STRING,
FFDIS_MMF TYPE STRING,
FFDIS_UEB TYPE STRING,
FFDIS_PRIO TYPE STRING,
FFDIS_SD10 TYPE STRING,
FFDIS_MM10 TYPE STRING,
FFDIS_LF00 TYPE STRING,
FFDIS_TR00 TYPE STRING,
FFDIS_NA00 TYPE STRING,
FFDIS_IM00 TYPE STRING,
FF70ZTBE TYPE STRING,
FF70ZTER TYPE STRING,
FF70KNTO TYPE STRING,
DELTA_UPD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RFFFPDO1_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_RFFFPDO1_STR-FDBUILDUP sy-vline 
WA_RFFFPDO1_STR-FFDEA00EPA sy-vline 
WA_RFFFPDO1_STR-FFDIS_SEPA sy-vline 
WA_RFFFPDO1_STR-FFDIS_SOR1 sy-vline 
WA_RFFFPDO1_STR-FFDIS_SOR2 sy-vline 
WA_RFFFPDO1_STR-FFDIS_SOR3 sy-vline 
WA_RFFFPDO1_STR-FFDISDELDT sy-vline 
WA_RFFFPDO1_STR-FFDISDEVDT sy-vline 
WA_RFFFPDO1_STR-FFDISFILE sy-vline 
WA_RFFFPDO1_STR-FFDISISOHW sy-vline 
WA_RFFFPDO1_STR-FFDISXVERD sy-vline 
WA_RFFFPDO1_STR-FFDISFIL1 sy-vline 
WA_RFFFPDO1_STR-FFDIS45ARC sy-vline 
WA_RFFFPDO1_STR-FFDIS46ARC sy-vline 
WA_RFFFPDO1_STR-FFDIS45AUM sy-vline 
WA_RFFFPDO1_STR-FFDIS46AUM sy-vline 
WA_RFFFPDO1_STR-FFDIS45MAB sy-vline 
WA_RFFFPDO1_STR-FFDIS46MAB sy-vline 
WA_RFFFPDO1_STR-FFDIS45MBB sy-vline 
WA_RFFFPDO1_STR-FFDIS45MBT sy-vline 
WA_RFFFPDO1_STR-FFDIS46MBK sy-vline 
WA_RFFFPDO1_STR-FFDIS46MBT sy-vline 
WA_RFFFPDO1_STR-FFDIS_PROZ sy-vline 
WA_RFFFPDO1_STR-FFDIS_WKURS sy-vline 
WA_RFFFPDO1_STR-FFDIS_MANL sy-vline 
WA_RFFFPDO1_STR-FFDIS_DISTL sy-vline 
WA_RFFFPDO1_STR-FFDIS_ACT sy-vline 
WA_RFFFPDO1_STR-FFDIS_SDF sy-vline 
WA_RFFFPDO1_STR-FFDIS_MMF sy-vline 
WA_RFFFPDO1_STR-FFDIS_UEB sy-vline 
WA_RFFFPDO1_STR-FFDIS_PRIO sy-vline 
WA_RFFFPDO1_STR-FFDIS_SD10 sy-vline 
WA_RFFFPDO1_STR-FFDIS_MM10 sy-vline 
WA_RFFFPDO1_STR-FFDIS_LF00 sy-vline 
WA_RFFFPDO1_STR-FFDIS_TR00 sy-vline 
WA_RFFFPDO1_STR-FFDIS_NA00 sy-vline 
WA_RFFFPDO1_STR-FFDIS_IM00 sy-vline 
WA_RFFFPDO1_STR-FF70ZTBE sy-vline 
WA_RFFFPDO1_STR-FF70ZTER sy-vline 
WA_RFFFPDO1_STR-FF70KNTO sy-vline 
WA_RFFFPDO1_STR-DELTA_UPD sy-vline      INTO ld_text SEPARATED BY SPACE.

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