ABAP Select data from SAP table RNFPCT 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 RNFPCT 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 RNFPCT. 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 RNFPCT 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_RNFPCT TYPE STANDARD TABLE OF RNFPCT,
      WA_RNFPCT TYPE RNFPCT,
      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: <RNFPCT> TYPE RNFPCT.

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNFPCT>-GRTAR = 1.
<RNFPCT>-GRLST = 1.
<RNFPCT>-ABTAR = 1.
<RNFPCT>-ABLST = 1.
<RNFPCT>-LNRLS = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNFPCT-CLASS, sy-vline,
  WA_RNFPCT-LTXT, sy-vline,
  WA_RNFPCT-KTXT3, sy-vline,
  WA_RNFPCT-KTXT2, sy-vline,
  WA_RNFPCT-KTXT1, sy-vline,
  WA_RNFPCT-BEGTX, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNFPCT 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_RNFPCT 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_RNFPCT INTO WA_RNFPCT.


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

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

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

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

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

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

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

*Conversion exit CUNIT, internal->external for field MEINH
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_RNFPCT-MEINH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNFPCT-MEINH.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field EINRI
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNFPCT-EINRI
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNFPCT-EINRI.
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_RNFPCT_STR, 
GRTAR TYPE STRING,
GRLST TYPE STRING,
ABTAR TYPE STRING,
ABLST TYPE STRING,
LNRLS TYPE STRING,
CLASS TYPE STRING,
LTXT TYPE STRING,
KTXT3 TYPE STRING,
KTXT2 TYPE STRING,
KTXT1 TYPE STRING,
BEGTX TYPE STRING,
VBELN TYPE STRING,
POSNR TYPE STRING,
MENGE TYPE STRING,
MEINH TYPE STRING,
ERDAT TYPE STRING,
BEGDT TYPE STRING,
ENDDT TYPE STRING,
BEGZT TYPE STRING,
ENDZT TYPE STRING,
ZEITR TYPE STRING,
TGRKZ TYPE STRING,
BRUWR TYPE STRING,
NETWR TYPE STRING,
GPRS TYPE STRING,
TGPRS TYPE STRING,
MWSBP TYPE STRING,
WAERS TYPE STRING,
WAERKZ TYPE STRING,
FBRUWR TYPE STRING,
FNETWR TYPE STRING,
FMWSBP TYPE STRING,
FWAERS TYPE STRING,
EXCAT TYPE STRING,
TARAS TYPE STRING,
STALS TYPE STRING,
ABROE TYPE STRING,
ANFOE TYPE STRING,
ANPOE TYPE STRING,
ERBOE TYPE STRING,
ORGKB TYPE STRING,
ORGNA TYPE STRING,
ORGKBANF TYPE STRING,
ICPMK TYPE STRING,
ICPML TYPE STRING,
ICPHC TYPE STRING,
TAKAT TYPE STRING,
RANK TYPE STRING,
KTEXT TYPE STRING,
LTEXT TYPE STRING,
USER0 TYPE STRING,
USER1 TYPE STRING,
USRAMT1 TYPE STRING,
USRAMT2 TYPE STRING,
FUSRAMT1 TYPE STRING,
FUSRAMT2 TYPE STRING,
USRTXT1 TYPE STRING,
USRTXT2 TYPE STRING,
ABTYP TYPE STRING,
PWERT TYPE STRING,
PZAHL TYPE STRING,
PREIS TYPE STRING,
REFLNR TYPE STRING,
TARTYP TYPE STRING,
EINRI TYPE STRING,
KTXTCONC TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNFPCT_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_RNFPCT_STR-GRTAR sy-vline 
WA_RNFPCT_STR-GRLST sy-vline 
WA_RNFPCT_STR-ABTAR sy-vline 
WA_RNFPCT_STR-ABLST sy-vline 
WA_RNFPCT_STR-LNRLS sy-vline 
WA_RNFPCT_STR-CLASS sy-vline 
WA_RNFPCT_STR-LTXT sy-vline 
WA_RNFPCT_STR-KTXT3 sy-vline 
WA_RNFPCT_STR-KTXT2 sy-vline 
WA_RNFPCT_STR-KTXT1 sy-vline 
WA_RNFPCT_STR-BEGTX sy-vline 
WA_RNFPCT_STR-VBELN sy-vline 
WA_RNFPCT_STR-POSNR sy-vline 
WA_RNFPCT_STR-MENGE sy-vline 
WA_RNFPCT_STR-MEINH sy-vline 
WA_RNFPCT_STR-ERDAT sy-vline 
WA_RNFPCT_STR-BEGDT sy-vline 
WA_RNFPCT_STR-ENDDT sy-vline 
WA_RNFPCT_STR-BEGZT sy-vline 
WA_RNFPCT_STR-ENDZT sy-vline 
WA_RNFPCT_STR-ZEITR sy-vline 
WA_RNFPCT_STR-TGRKZ sy-vline 
WA_RNFPCT_STR-BRUWR sy-vline 
WA_RNFPCT_STR-NETWR sy-vline 
WA_RNFPCT_STR-GPRS sy-vline 
WA_RNFPCT_STR-TGPRS sy-vline 
WA_RNFPCT_STR-MWSBP sy-vline 
WA_RNFPCT_STR-WAERS sy-vline 
WA_RNFPCT_STR-WAERKZ sy-vline 
WA_RNFPCT_STR-FBRUWR sy-vline 
WA_RNFPCT_STR-FNETWR sy-vline 
WA_RNFPCT_STR-FMWSBP sy-vline 
WA_RNFPCT_STR-FWAERS sy-vline 
WA_RNFPCT_STR-EXCAT sy-vline 
WA_RNFPCT_STR-TARAS sy-vline 
WA_RNFPCT_STR-STALS sy-vline 
WA_RNFPCT_STR-ABROE sy-vline 
WA_RNFPCT_STR-ANFOE sy-vline 
WA_RNFPCT_STR-ANPOE sy-vline 
WA_RNFPCT_STR-ERBOE sy-vline 
WA_RNFPCT_STR-ORGKB sy-vline 
WA_RNFPCT_STR-ORGNA sy-vline 
WA_RNFPCT_STR-ORGKBANF sy-vline 
WA_RNFPCT_STR-ICPMK sy-vline 
WA_RNFPCT_STR-ICPML sy-vline 
WA_RNFPCT_STR-ICPHC sy-vline 
WA_RNFPCT_STR-TAKAT sy-vline 
WA_RNFPCT_STR-RANK sy-vline 
WA_RNFPCT_STR-KTEXT sy-vline 
WA_RNFPCT_STR-LTEXT sy-vline 
WA_RNFPCT_STR-USER0 sy-vline 
WA_RNFPCT_STR-USER1 sy-vline 
WA_RNFPCT_STR-USRAMT1 sy-vline 
WA_RNFPCT_STR-USRAMT2 sy-vline 
WA_RNFPCT_STR-FUSRAMT1 sy-vline 
WA_RNFPCT_STR-FUSRAMT2 sy-vline 
WA_RNFPCT_STR-USRTXT1 sy-vline 
WA_RNFPCT_STR-USRTXT2 sy-vline 
WA_RNFPCT_STR-ABTYP sy-vline 
WA_RNFPCT_STR-PWERT sy-vline 
WA_RNFPCT_STR-PZAHL sy-vline 
WA_RNFPCT_STR-PREIS sy-vline 
WA_RNFPCT_STR-REFLNR sy-vline 
WA_RNFPCT_STR-TARTYP sy-vline 
WA_RNFPCT_STR-EINRI sy-vline 
WA_RNFPCT_STR-KTXTCONC sy-vline      INTO ld_text SEPARATED BY SPACE.

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