ABAP Select data from SAP table RPRXXXXX 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 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. 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 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 TYPE STANDARD TABLE OF RPRXXXXX,
      WA_RPRXXXXX TYPE RPRXXXXX,
      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> TYPE RPRXXXXX.

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

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

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


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

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

ENDLOOP.

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

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


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

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