ABAP Select data from SAP table RPBNN 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 RPBNN 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 RPBNN. 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 RPBNN 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_RPBNN TYPE STANDARD TABLE OF RPBNN,
      WA_RPBNN TYPE RPBNN,
      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: <RPBNN> TYPE RPBNN.

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RPBNN>-TIJDV = 1.
<RPBNN>-DATUM = 1.
<RPBNN>-GRBRU = 1.
<RPBNN>-GRABP = 1.
<RPBNN>-GRSV1 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RPBNN-GROVH, sy-vline,
  WA_RPBNN-GRLHF, sy-vline,
  WA_RPBNN-GRINH, sy-vline,
  WA_RPBNN-GBBRU, sy-vline,
  WA_RPBNN-GBABP, sy-vline,
  WA_RPBNN-GBSV1, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RPBNN 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_RPBNN 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_RPBNN INTO WA_RPBNN.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_RPBNN_STR, 
TIJDV TYPE STRING,
DATUM TYPE STRING,
GRBRU TYPE STRING,
GRABP TYPE STRING,
GRSV1 TYPE STRING,
GROVH TYPE STRING,
GRLHF TYPE STRING,
GRINH TYPE STRING,
GBBRU TYPE STRING,
GBABP TYPE STRING,
GBSV1 TYPE STRING,
GBOVH TYPE STRING,
GBLHF TYPE STRING,
GBINH TYPE STRING,
AFRSG TYPE STRING,
LEEFT TYPE STRING,
BVNUM TYPE STRING,
CMBRU TYPE STRING,
CMABP TYPE STRING,
CMSV1 TYPE STRING,
CMOVH TYPE STRING,
CMLHF TYPE STRING,
CMINH TYPE STRING,
ABPPR TYPE STRING,
BPFPR TYPE STRING,
VUTPR TYPE STRING,
TABEL TYPE STRING,
TARGR TYPE STRING,
KDLHF TYPE STRING,
KDZW1 TYPE STRING,
KDWW1 TYPE STRING,
KDWAO TYPE STRING,
KDZKS TYPE STRING,
BDRPR TYPE STRING,
BDRWG TYPE STRING,
INHPR TYPE STRING,
INHBS TYPE STRING,
BAFTB TYPE STRING,
GEMBZ TYPE STRING,
JAARL TYPE STRING,
JRLOT TYPE STRING,
NETTO TYPE STRING,
INDNS TYPE STRING,
UITDN TYPE STRING,
ASOLL TYPE STRING,
TEST1 TYPE STRING,
BIJZB TYPE STRING,
PROTK TYPE STRING,
AUSNA TYPE STRING,
VRDBB TYPE STRING,
NBBEL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RPBNN_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_RPBNN_STR-TIJDV sy-vline 
WA_RPBNN_STR-DATUM sy-vline 
WA_RPBNN_STR-GRBRU sy-vline 
WA_RPBNN_STR-GRABP sy-vline 
WA_RPBNN_STR-GRSV1 sy-vline 
WA_RPBNN_STR-GROVH sy-vline 
WA_RPBNN_STR-GRLHF sy-vline 
WA_RPBNN_STR-GRINH sy-vline 
WA_RPBNN_STR-GBBRU sy-vline 
WA_RPBNN_STR-GBABP sy-vline 
WA_RPBNN_STR-GBSV1 sy-vline 
WA_RPBNN_STR-GBOVH sy-vline 
WA_RPBNN_STR-GBLHF sy-vline 
WA_RPBNN_STR-GBINH sy-vline 
WA_RPBNN_STR-AFRSG sy-vline 
WA_RPBNN_STR-LEEFT sy-vline 
WA_RPBNN_STR-BVNUM sy-vline 
WA_RPBNN_STR-CMBRU sy-vline 
WA_RPBNN_STR-CMABP sy-vline 
WA_RPBNN_STR-CMSV1 sy-vline 
WA_RPBNN_STR-CMOVH sy-vline 
WA_RPBNN_STR-CMLHF sy-vline 
WA_RPBNN_STR-CMINH sy-vline 
WA_RPBNN_STR-ABPPR sy-vline 
WA_RPBNN_STR-BPFPR sy-vline 
WA_RPBNN_STR-VUTPR sy-vline 
WA_RPBNN_STR-TABEL sy-vline 
WA_RPBNN_STR-TARGR sy-vline 
WA_RPBNN_STR-KDLHF sy-vline 
WA_RPBNN_STR-KDZW1 sy-vline 
WA_RPBNN_STR-KDWW1 sy-vline 
WA_RPBNN_STR-KDWAO sy-vline 
WA_RPBNN_STR-KDZKS sy-vline 
WA_RPBNN_STR-BDRPR sy-vline 
WA_RPBNN_STR-BDRWG sy-vline 
WA_RPBNN_STR-INHPR sy-vline 
WA_RPBNN_STR-INHBS sy-vline 
WA_RPBNN_STR-BAFTB sy-vline 
WA_RPBNN_STR-GEMBZ sy-vline 
WA_RPBNN_STR-JAARL sy-vline 
WA_RPBNN_STR-JRLOT sy-vline 
WA_RPBNN_STR-NETTO sy-vline 
WA_RPBNN_STR-INDNS sy-vline 
WA_RPBNN_STR-UITDN sy-vline 
WA_RPBNN_STR-ASOLL sy-vline 
WA_RPBNN_STR-TEST1 sy-vline 
WA_RPBNN_STR-BIJZB sy-vline 
WA_RPBNN_STR-PROTK sy-vline 
WA_RPBNN_STR-AUSNA sy-vline 
WA_RPBNN_STR-VRDBB sy-vline 
WA_RPBNN_STR-NBBEL sy-vline      INTO ld_text SEPARATED BY SPACE.

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