ABAP Select data from SAP table RPRXXXXX_PRFI 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 RPRXXXXX_PRFI 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 RPRXXXXX_PRFI. 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 RPRXXXXX_PRFI 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_RPRXXXXX_PRFI TYPE STANDARD TABLE OF RPRXXXXX_PRFI,
      WA_RPRXXXXX_PRFI TYPE RPRXXXXX_PRFI,
      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: <RPRXXXXX_PRFI> TYPE RPRXXXXX_PRFI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RPRXXXXX_PRFI
*  INTO TABLE @DATA(IT_RPRXXXXX_PRFI2).
*--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_RPRXXXXX_PRFI INDEX 1 INTO DATA(WA_RPRXXXXX_PRFI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RPRXXXXX_PRFI>-DATUM1 = 1.
<RPRXXXXX_PRFI>-DATUM2 = 1.
<RPRXXXXX_PRFI>-UZ1_FR_V = 1.
<RPRXXXXX_PRFI>-UZ1_FR_B = 1.
<RPRXXXXX_PRFI>-UZ1_MT_V = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RPRXXXXX_PRFI-UZ1_MT_B, sy-vline,
  WA_RPRXXXXX_PRFI-UZ1_AB_V, sy-vline,
  WA_RPRXXXXX_PRFI-UZ1_AB_B, sy-vline,
  WA_RPRXXXXX_PRFI-UZ98FR_V, sy-vline,
  WA_RPRXXXXX_PRFI-UZ98FR_B, sy-vline,
  WA_RPRXXXXX_PRFI-UZ98MT_V, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RPRXXXXX_PRFI 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_RPRXXXXX_PRFI 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_RPRXXXXX_PRFI INTO WA_RPRXXXXX_PRFI.


*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 GJAHR, internal->external for field ABJAHR
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_RPRXXXXX_PRFI-ABJAHR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RPRXXXXX_PRFI-ABJAHR.
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_RPRXXXXX_PRFI_STR, 
DATUM1 TYPE STRING,
DATUM2 TYPE STRING,
UZ1_FR_V TYPE STRING,
UZ1_FR_B TYPE STRING,
UZ1_MT_V TYPE STRING,
UZ1_MT_B TYPE STRING,
UZ1_AB_V TYPE STRING,
UZ1_AB_B TYPE STRING,
UZ98FR_V TYPE STRING,
UZ98FR_B TYPE STRING,
UZ98MT_V TYPE STRING,
UZ98MT_B TYPE STRING,
UZ98AB_V TYPE STRING,
UZ98AB_B TYPE STRING,
ZAE_FR_S TYPE STRING,
ZAE_MT_S TYPE STRING,
ZAE_AB_S TYPE STRING,
ZAE_FR_F TYPE STRING,
ZAE_MT_F TYPE STRING,
ZAE_AB_F TYPE STRING,
NENNER_S TYPE STRING,
KZRUN_ST TYPE STRING,
KZRUN_FA TYPE STRING,
STUNDE_P TYPE STRING,
STUNDE_H TYPE STRING,
DIV_P_ST TYPE STRING,
DIV_H_ST TYPE STRING,
DIV_P_FA TYPE STRING,
DIV_H_FA TYPE STRING,
NENNERPS TYPE STRING,
NENNERHS TYPE STRING,
TEST TYPE STRING,
REINR TYPE STRING,
SORT TYPE STRING,
AUS_TM31 TYPE STRING,
ABP2S TYPE STRING,
ABKRS TYPE STRING,
SEQ_IN TYPE STRING,
BL_SPL TYPE STRING,
G_VERD TYPE STRING,
A_VERD TYPE STRING,
BEL_SIZE TYPE STRING,
BLART TYPE STRING,
UMS TYPE STRING,
KR_FELD1 TYPE STRING,
KR_FELD2 TYPE STRING,
KR_FELD3 TYPE STRING,
KR_FELD4 TYPE STRING,
KR_FELD5 TYPE STRING,
KR_FELD6 TYPE STRING,
KR_FELD7 TYPE STRING,
KR_FELD8 TYPE STRING,
KR_FELD9 TYPE STRING,
KR_FELD10 TYPE STRING,
KR_FELD11 TYPE STRING,
KR_FELD12 TYPE STRING,
KR_FELD13 TYPE STRING,
KR_FELD14 TYPE STRING,
KR_FELD15 TYPE STRING,
KR_FELD16 TYPE STRING,
KR_FELD17 TYPE STRING,
REISEDAT TYPE STRING,
BLDAT TYPE STRING,
BUDAT TYPE STRING,
IN_AUSLD TYPE STRING,
INLAND TYPE STRING,
B_INPUT TYPE STRING,
MAP_NAME TYPE STRING,
KR_SGTXT TYPE STRING,
TEST2 TYPE STRING,
SEQINP TYPE STRING,
SEQOUT TYPE STRING,
ABJAHR TYPE STRING,
SOPER TYPE STRING,
PERIODA TYPE STRING,
PERIODZ TYPE STRING,
LNDGR TYPE STRING,
TR_TYPE TYPE STRING,
PAY_DATE TYPE STRING,
HINZ_DRU TYPE STRING,
HINZ_WEG TYPE STRING,
HINZ_DYN TYPE STRING,
AUSWLGART TYPE STRING,
DRUCKFLAG TYPE STRING,
INT3_1 TYPE STRING,
INT3_2 TYPE STRING,
WR_INCL TYPE STRING,
WR_EXCL TYPE STRING,
WR_ONLY TYPE STRING,
RADIO0 TYPE STRING,
RADIO1 TYPE STRING,
RADIO2 TYPE STRING,
RADIO3 TYPE STRING,
RADIO4 TYPE STRING,
RADIO5 TYPE STRING,
UNAME TYPE STRING,
MANDT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RPRXXXXX_PRFI_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_RPRXXXXX_PRFI_STR-DATUM1 sy-vline 
WA_RPRXXXXX_PRFI_STR-DATUM2 sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ1_FR_V sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ1_FR_B sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ1_MT_V sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ1_MT_B sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ1_AB_V sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ1_AB_B sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ98FR_V sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ98FR_B sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ98MT_V sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ98MT_B sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ98AB_V sy-vline 
WA_RPRXXXXX_PRFI_STR-UZ98AB_B sy-vline 
WA_RPRXXXXX_PRFI_STR-ZAE_FR_S sy-vline 
WA_RPRXXXXX_PRFI_STR-ZAE_MT_S sy-vline 
WA_RPRXXXXX_PRFI_STR-ZAE_AB_S sy-vline 
WA_RPRXXXXX_PRFI_STR-ZAE_FR_F sy-vline 
WA_RPRXXXXX_PRFI_STR-ZAE_MT_F sy-vline 
WA_RPRXXXXX_PRFI_STR-ZAE_AB_F sy-vline 
WA_RPRXXXXX_PRFI_STR-NENNER_S sy-vline 
WA_RPRXXXXX_PRFI_STR-KZRUN_ST sy-vline 
WA_RPRXXXXX_PRFI_STR-KZRUN_FA sy-vline 
WA_RPRXXXXX_PRFI_STR-STUNDE_P sy-vline 
WA_RPRXXXXX_PRFI_STR-STUNDE_H sy-vline 
WA_RPRXXXXX_PRFI_STR-DIV_P_ST sy-vline 
WA_RPRXXXXX_PRFI_STR-DIV_H_ST sy-vline 
WA_RPRXXXXX_PRFI_STR-DIV_P_FA sy-vline 
WA_RPRXXXXX_PRFI_STR-DIV_H_FA sy-vline 
WA_RPRXXXXX_PRFI_STR-NENNERPS sy-vline 
WA_RPRXXXXX_PRFI_STR-NENNERHS sy-vline 
WA_RPRXXXXX_PRFI_STR-TEST sy-vline 
WA_RPRXXXXX_PRFI_STR-REINR sy-vline 
WA_RPRXXXXX_PRFI_STR-SORT sy-vline 
WA_RPRXXXXX_PRFI_STR-AUS_TM31 sy-vline 
WA_RPRXXXXX_PRFI_STR-ABP2S sy-vline 
WA_RPRXXXXX_PRFI_STR-ABKRS sy-vline 
WA_RPRXXXXX_PRFI_STR-SEQ_IN sy-vline 
WA_RPRXXXXX_PRFI_STR-BL_SPL sy-vline 
WA_RPRXXXXX_PRFI_STR-G_VERD sy-vline 
WA_RPRXXXXX_PRFI_STR-A_VERD sy-vline 
WA_RPRXXXXX_PRFI_STR-BEL_SIZE sy-vline 
WA_RPRXXXXX_PRFI_STR-BLART sy-vline 
WA_RPRXXXXX_PRFI_STR-UMS sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD1 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD2 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD3 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD4 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD5 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD6 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD7 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD8 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD9 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD10 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD11 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD12 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD13 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD14 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD15 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD16 sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_FELD17 sy-vline 
WA_RPRXXXXX_PRFI_STR-REISEDAT sy-vline 
WA_RPRXXXXX_PRFI_STR-BLDAT sy-vline 
WA_RPRXXXXX_PRFI_STR-BUDAT sy-vline 
WA_RPRXXXXX_PRFI_STR-IN_AUSLD sy-vline 
WA_RPRXXXXX_PRFI_STR-INLAND sy-vline 
WA_RPRXXXXX_PRFI_STR-B_INPUT sy-vline 
WA_RPRXXXXX_PRFI_STR-MAP_NAME sy-vline 
WA_RPRXXXXX_PRFI_STR-KR_SGTXT sy-vline 
WA_RPRXXXXX_PRFI_STR-TEST2 sy-vline 
WA_RPRXXXXX_PRFI_STR-SEQINP sy-vline 
WA_RPRXXXXX_PRFI_STR-SEQOUT sy-vline 
WA_RPRXXXXX_PRFI_STR-ABJAHR sy-vline 
WA_RPRXXXXX_PRFI_STR-SOPER sy-vline 
WA_RPRXXXXX_PRFI_STR-PERIODA sy-vline 
WA_RPRXXXXX_PRFI_STR-PERIODZ sy-vline 
WA_RPRXXXXX_PRFI_STR-LNDGR sy-vline 
WA_RPRXXXXX_PRFI_STR-TR_TYPE sy-vline 
WA_RPRXXXXX_PRFI_STR-PAY_DATE sy-vline 
WA_RPRXXXXX_PRFI_STR-HINZ_DRU sy-vline 
WA_RPRXXXXX_PRFI_STR-HINZ_WEG sy-vline 
WA_RPRXXXXX_PRFI_STR-HINZ_DYN sy-vline 
WA_RPRXXXXX_PRFI_STR-AUSWLGART sy-vline 
WA_RPRXXXXX_PRFI_STR-DRUCKFLAG sy-vline 
WA_RPRXXXXX_PRFI_STR-INT3_1 sy-vline 
WA_RPRXXXXX_PRFI_STR-INT3_2 sy-vline 
WA_RPRXXXXX_PRFI_STR-WR_INCL sy-vline 
WA_RPRXXXXX_PRFI_STR-WR_EXCL sy-vline 
WA_RPRXXXXX_PRFI_STR-WR_ONLY sy-vline 
WA_RPRXXXXX_PRFI_STR-RADIO0 sy-vline 
WA_RPRXXXXX_PRFI_STR-RADIO1 sy-vline 
WA_RPRXXXXX_PRFI_STR-RADIO2 sy-vline 
WA_RPRXXXXX_PRFI_STR-RADIO3 sy-vline 
WA_RPRXXXXX_PRFI_STR-RADIO4 sy-vline 
WA_RPRXXXXX_PRFI_STR-RADIO5 sy-vline 
WA_RPRXXXXX_PRFI_STR-UNAME sy-vline 
WA_RPRXXXXX_PRFI_STR-MANDT sy-vline      INTO ld_text SEPARATED BY SPACE.

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