ABAP Select data from SAP table RNPAT_FALL_BEW 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 RNPAT_FALL_BEW 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 RNPAT_FALL_BEW. 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 RNPAT_FALL_BEW 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_RNPAT_FALL_BEW TYPE STANDARD TABLE OF RNPAT_FALL_BEW,
      WA_RNPAT_FALL_BEW TYPE RNPAT_FALL_BEW,
      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: <RNPAT_FALL_BEW> TYPE RNPAT_FALL_BEW.

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNPAT_FALL_BEW>-MANDT = 1.
<RNPAT_FALL_BEW>-EINRI = 1.
<RNPAT_FALL_BEW>-FALNR = 1.
<RNPAT_FALL_BEW>-LFDNR = 1.
<RNPAT_FALL_BEW>-BEWTY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNPAT_FALL_BEW-BWART, sy-vline,
  WA_RNPAT_FALL_BEW-BWIDT, sy-vline,
  WA_RNPAT_FALL_BEW-BWIZT, sy-vline,
  WA_RNPAT_FALL_BEW-BEKAT, sy-vline,
  WA_RNPAT_FALL_BEW-PLANB, sy-vline,
  WA_RNPAT_FALL_BEW-BWEDT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNPAT_FALL_BEW 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_RNPAT_FALL_BEW 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_RNPAT_FALL_BEW INTO WA_RNPAT_FALL_BEW.


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field ADRNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNPAT_FALL_BEW-ADRNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNPAT_FALL_BEW-ADRNR.
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_RNPAT_FALL_BEW_STR, 
MANDT TYPE STRING,
EINRI TYPE STRING,
FALNR TYPE STRING,
LFDNR TYPE STRING,
BEWTY TYPE STRING,
BWART TYPE STRING,
BWIDT TYPE STRING,
BWIZT TYPE STRING,
BEKAT TYPE STRING,
PLANB TYPE STRING,
BWEDT TYPE STRING,
BWEZT TYPE STRING,
PLANE TYPE STRING,
LFDREF TYPE STRING,
NOTKZ TYPE STRING,
AUFDS TYPE STRING,
ORGFA TYPE STRING,
ORGPF TYPE STRING,
ZIMMR TYPE STRING,
BETT TYPE STRING,
EXTKH TYPE STRING,
EZUST TYPE STRING,
ABWGN TYPE STRING,
KZTXT TYPE STRING,
LGTXT TYPE STRING,
FALAR TYPE STRING,
PATNR TYPE STRING,
FZIFF TYPE STRING,
ABRKZ TYPE STRING,
PATGEW TYPE STRING,
GWEIN TYPE STRING,
PATGRO TYPE STRING,
GREIN TYPE STRING,
TELNR TYPE STRING,
PLANR TYPE STRING,
BWPZT TYPE STRING,
DGNLF TYPE STRING,
INFKZ TYPE STRING,
ENDDT TYPE STRING,
FATYP TYPE STRING,
DAUER TYPE STRING,
CLASS TYPE STRING,
DSPTY TYPE STRING,
VISTY TYPE STRING,
FACHR5 TYPE STRING,
FACHR7 TYPE STRING,
FACHS TYPE STRING,
BWGR1 TYPE STRING,
BWGR2 TYPE STRING,
VORGR TYPE STRING,
KV_KZ TYPE STRING,
TVKZ TYPE STRING,
WLPRI TYPE STRING,
UNFKZ TYPE STRING,
FSPER TYPE STRING,
OBJNR TYPE STRING,
STASP TYPE STRING,
KVUEB TYPE STRING,
RESID TYPE STRING,
APSTATE TYPE STRING,
BWPDT TYPE STRING,
ORGAU TYPE STRING,
STOID TYPE STRING,
STATU_FAL TYPE STRING,
FOREI TYPE STRING,
FPEDT TYPE STRING,
GSCHL TYPE STRING,
NNAME TYPE STRING,
NNAMS TYPE STRING,
VNAME TYPE STRING,
VNAMS TYPE STRING,
GBDAT TYPE STRING,
GBNAM TYPE STRING,
GBNAS TYPE STRING,
TODKZ TYPE STRING,
TODDT TYPE STRING,
TODZT TYPE STRING,
TODDB TYPE STRING,
TODZB TYPE STRING,
TODUR TYPE STRING,
RFZIF TYPE STRING,
STORN TYPE STRING,
VIPKZ TYPE STRING,
INACT TYPE STRING,
RISKF TYPE STRING,
GEBIE TYPE STRING,
KONFE TYPE STRING,
NATIO TYPE STRING,
PSTLZ TYPE STRING,
ORT TYPE STRING,
STRAS TYPE STRING,
ADRNR TYPE STRING,
ADROB TYPE STRING,
TITEL TYPE STRING,
EXTNR TYPE STRING,
NOTAN TYPE STRING,
KRZAN TYPE STRING,
RVNUM TYPE STRING,
PZIFF TYPE STRING,
STRAS_ADR TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNPAT_FALL_BEW_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_RNPAT_FALL_BEW_STR-MANDT sy-vline 
WA_RNPAT_FALL_BEW_STR-EINRI sy-vline 
WA_RNPAT_FALL_BEW_STR-FALNR sy-vline 
WA_RNPAT_FALL_BEW_STR-LFDNR sy-vline 
WA_RNPAT_FALL_BEW_STR-BEWTY sy-vline 
WA_RNPAT_FALL_BEW_STR-BWART sy-vline 
WA_RNPAT_FALL_BEW_STR-BWIDT sy-vline 
WA_RNPAT_FALL_BEW_STR-BWIZT sy-vline 
WA_RNPAT_FALL_BEW_STR-BEKAT sy-vline 
WA_RNPAT_FALL_BEW_STR-PLANB sy-vline 
WA_RNPAT_FALL_BEW_STR-BWEDT sy-vline 
WA_RNPAT_FALL_BEW_STR-BWEZT sy-vline 
WA_RNPAT_FALL_BEW_STR-PLANE sy-vline 
WA_RNPAT_FALL_BEW_STR-LFDREF sy-vline 
WA_RNPAT_FALL_BEW_STR-NOTKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-AUFDS sy-vline 
WA_RNPAT_FALL_BEW_STR-ORGFA sy-vline 
WA_RNPAT_FALL_BEW_STR-ORGPF sy-vline 
WA_RNPAT_FALL_BEW_STR-ZIMMR sy-vline 
WA_RNPAT_FALL_BEW_STR-BETT sy-vline 
WA_RNPAT_FALL_BEW_STR-EXTKH sy-vline 
WA_RNPAT_FALL_BEW_STR-EZUST sy-vline 
WA_RNPAT_FALL_BEW_STR-ABWGN sy-vline 
WA_RNPAT_FALL_BEW_STR-KZTXT sy-vline 
WA_RNPAT_FALL_BEW_STR-LGTXT sy-vline 
WA_RNPAT_FALL_BEW_STR-FALAR sy-vline 
WA_RNPAT_FALL_BEW_STR-PATNR sy-vline 
WA_RNPAT_FALL_BEW_STR-FZIFF sy-vline 
WA_RNPAT_FALL_BEW_STR-ABRKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-PATGEW sy-vline 
WA_RNPAT_FALL_BEW_STR-GWEIN sy-vline 
WA_RNPAT_FALL_BEW_STR-PATGRO sy-vline 
WA_RNPAT_FALL_BEW_STR-GREIN sy-vline 
WA_RNPAT_FALL_BEW_STR-TELNR sy-vline 
WA_RNPAT_FALL_BEW_STR-PLANR sy-vline 
WA_RNPAT_FALL_BEW_STR-BWPZT sy-vline 
WA_RNPAT_FALL_BEW_STR-DGNLF sy-vline 
WA_RNPAT_FALL_BEW_STR-INFKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-ENDDT sy-vline 
WA_RNPAT_FALL_BEW_STR-FATYP sy-vline 
WA_RNPAT_FALL_BEW_STR-DAUER sy-vline 
WA_RNPAT_FALL_BEW_STR-CLASS sy-vline 
WA_RNPAT_FALL_BEW_STR-DSPTY sy-vline 
WA_RNPAT_FALL_BEW_STR-VISTY sy-vline 
WA_RNPAT_FALL_BEW_STR-FACHR5 sy-vline 
WA_RNPAT_FALL_BEW_STR-FACHR7 sy-vline 
WA_RNPAT_FALL_BEW_STR-FACHS sy-vline 
WA_RNPAT_FALL_BEW_STR-BWGR1 sy-vline 
WA_RNPAT_FALL_BEW_STR-BWGR2 sy-vline 
WA_RNPAT_FALL_BEW_STR-VORGR sy-vline 
WA_RNPAT_FALL_BEW_STR-KV_KZ sy-vline 
WA_RNPAT_FALL_BEW_STR-TVKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-WLPRI sy-vline 
WA_RNPAT_FALL_BEW_STR-UNFKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-FSPER sy-vline 
WA_RNPAT_FALL_BEW_STR-OBJNR sy-vline 
WA_RNPAT_FALL_BEW_STR-STASP sy-vline 
WA_RNPAT_FALL_BEW_STR-KVUEB sy-vline 
WA_RNPAT_FALL_BEW_STR-RESID sy-vline 
WA_RNPAT_FALL_BEW_STR-APSTATE sy-vline 
WA_RNPAT_FALL_BEW_STR-BWPDT sy-vline 
WA_RNPAT_FALL_BEW_STR-ORGAU sy-vline 
WA_RNPAT_FALL_BEW_STR-STOID sy-vline 
WA_RNPAT_FALL_BEW_STR-STATU_FAL sy-vline 
WA_RNPAT_FALL_BEW_STR-FOREI sy-vline 
WA_RNPAT_FALL_BEW_STR-FPEDT sy-vline 
WA_RNPAT_FALL_BEW_STR-GSCHL sy-vline 
WA_RNPAT_FALL_BEW_STR-NNAME sy-vline 
WA_RNPAT_FALL_BEW_STR-NNAMS sy-vline 
WA_RNPAT_FALL_BEW_STR-VNAME sy-vline 
WA_RNPAT_FALL_BEW_STR-VNAMS sy-vline 
WA_RNPAT_FALL_BEW_STR-GBDAT sy-vline 
WA_RNPAT_FALL_BEW_STR-GBNAM sy-vline 
WA_RNPAT_FALL_BEW_STR-GBNAS sy-vline 
WA_RNPAT_FALL_BEW_STR-TODKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-TODDT sy-vline 
WA_RNPAT_FALL_BEW_STR-TODZT sy-vline 
WA_RNPAT_FALL_BEW_STR-TODDB sy-vline 
WA_RNPAT_FALL_BEW_STR-TODZB sy-vline 
WA_RNPAT_FALL_BEW_STR-TODUR sy-vline 
WA_RNPAT_FALL_BEW_STR-RFZIF sy-vline 
WA_RNPAT_FALL_BEW_STR-STORN sy-vline 
WA_RNPAT_FALL_BEW_STR-VIPKZ sy-vline 
WA_RNPAT_FALL_BEW_STR-INACT sy-vline 
WA_RNPAT_FALL_BEW_STR-RISKF sy-vline 
WA_RNPAT_FALL_BEW_STR-GEBIE sy-vline 
WA_RNPAT_FALL_BEW_STR-KONFE sy-vline 
WA_RNPAT_FALL_BEW_STR-NATIO sy-vline 
WA_RNPAT_FALL_BEW_STR-PSTLZ sy-vline 
WA_RNPAT_FALL_BEW_STR-ORT sy-vline 
WA_RNPAT_FALL_BEW_STR-STRAS sy-vline 
WA_RNPAT_FALL_BEW_STR-ADRNR sy-vline 
WA_RNPAT_FALL_BEW_STR-ADROB sy-vline 
WA_RNPAT_FALL_BEW_STR-TITEL sy-vline 
WA_RNPAT_FALL_BEW_STR-EXTNR sy-vline 
WA_RNPAT_FALL_BEW_STR-NOTAN sy-vline 
WA_RNPAT_FALL_BEW_STR-KRZAN sy-vline 
WA_RNPAT_FALL_BEW_STR-RVNUM sy-vline 
WA_RNPAT_FALL_BEW_STR-PZIFF sy-vline 
WA_RNPAT_FALL_BEW_STR-STRAS_ADR sy-vline      INTO ld_text SEPARATED BY SPACE.

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