ABAP Select data from SAP table RNBADI_PAI_INS 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 RNBADI_PAI_INS 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 RNBADI_PAI_INS. 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 RNBADI_PAI_INS 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_RNBADI_PAI_INS TYPE STANDARD TABLE OF RNBADI_PAI_INS,
      WA_RNBADI_PAI_INS TYPE RNBADI_PAI_INS,
      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: <RNBADI_PAI_INS> TYPE RNBADI_PAI_INS.

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNBADI_PAI_INS>-LFDNR = 1.
<RNBADI_PAI_INS>-PATKZ = 1.
<RNBADI_PAI_INS>-KOSTR = 1.
<RNBADI_PAI_INS>-MGART = 1.
<RNBADI_PAI_INS>-UNTGR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNBADI_PAI_INS-VERAB, sy-vline,
  WA_RNBADI_PAI_INS-VERBI, sy-vline,
  WA_RNBADI_PAI_INS-RANGF, sy-vline,
  WA_RNBADI_PAI_INS-VKVST, sy-vline,
  WA_RNBADI_PAI_INS-VKVSE, sy-vline,
  WA_RNBADI_PAI_INS-VKNRA, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNBADI_PAI_INS 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_RNBADI_PAI_INS 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_RNBADI_PAI_INS INTO WA_RNBADI_PAI_INS.


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

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

*Conversion exit RANGF, internal->external for field RANGF
CALL FUNCTION 'CONVERSION_EXIT_RANGF_OUTPUT'
  EXPORTING
    input =                      WA_RNBADI_PAI_INS-RANGF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNBADI_PAI_INS-RANGF.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit SXIDN, internal->external for field EMAILVER
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RNBADI_PAI_INS-EMAILVER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNBADI_PAI_INS-EMAILVER.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit SXIDN, internal->external for field EMAILAG
CALL FUNCTION 'CONVERSION_EXIT_SXIDN_OUTPUT'
  EXPORTING
    input =                      WA_RNBADI_PAI_INS-EMAILAG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNBADI_PAI_INS-EMAILAG.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit ALPHA, internal->external for field PATNR
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNBADI_PAI_INS-PATNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNBADI_PAI_INS-PATNR.
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_RNBADI_PAI_INS_STR, 
LFDNR TYPE STRING,
PATKZ TYPE STRING,
KOSTR TYPE STRING,
MGART TYPE STRING,
UNTGR TYPE STRING,
VERAB TYPE STRING,
VERBI TYPE STRING,
RANGF TYPE STRING,
VKVST TYPE STRING,
VKVSE TYPE STRING,
VKNRA TYPE STRING,
BTRZZ TYPE STRING,
NZZGR TYPE STRING,
VTAGE TYPE STRING,
VTDAT TYPE STRING,
SZDEB TYPE STRING,
TEXT_VVF TYPE STRING,
AKTKZ TYPE STRING,
WAERS TYPE STRING,
EXTTY TYPE STRING,
TWKTR TYPE STRING,
PAYAM TYPE STRING,
KKFAL TYPE STRING,
KUAUS TYPE STRING,
VBGDT TYPE STRING,
PFLZZ TYPE STRING,
TPPROC TYPE STRING,
VERAN TYPE STRING,
VERNN TYPE STRING,
VERTI TYPE STRING,
VERVN TYPE STRING,
VERNZ TYPE STRING,
VERGB TYPE STRING,
VERVW TYPE STRING,
VERNA TYPE STRING,
VERSV TYPE STRING,
VERVV TYPE STRING,
PSTLZVER TYPE STRING,
LANDVER TYPE STRING,
REGIOVER TYPE STRING,
ORTVER TYPE STRING,
ORT2VER TYPE STRING,
STRASVER TYPE STRING,
STRAZVER TYPE STRING,
EINZGVER TYPE STRING,
PSTLPVER TYPE STRING,
PFACHVER TYPE STRING,
LANPFVER TYPE STRING,
ORTPFVER TYPE STRING,
PSTLFVER TYPE STRING,
TELNOVER TYPE STRING,
FAXNRVER TYPE STRING,
FAXXTVER TYPE STRING,
TEXNRVER TYPE STRING,
BUILDVER TYPE STRING,
FLOORVER TYPE STRING,
ROOMVER TYPE STRING,
EMAILVER TYPE STRING,
HSNM1VER TYPE STRING,
AGNUM TYPE STRING,
BERUF TYPE STRING,
AGNAM TYPE STRING,
PSTLZAG TYPE STRING,
LANDAG TYPE STRING,
REGIOAG TYPE STRING,
ORTAG TYPE STRING,
ORT2AG TYPE STRING,
STRASAG TYPE STRING,
STRAZAG TYPE STRING,
EINZGAG TYPE STRING,
PSTLPAG TYPE STRING,
PFACHAG TYPE STRING,
LANPFAG TYPE STRING,
ORTPFAG TYPE STRING,
PSTLFAG TYPE STRING,
TELNOAG TYPE STRING,
FAXNRAG TYPE STRING,
FAXXTAG TYPE STRING,
TEXNRAG TYPE STRING,
BUILDAG TYPE STRING,
FLOORAG TYPE STRING,
ROOMAG TYPE STRING,
EMAILAG TYPE STRING,
HSNM1AG TYPE STRING,
ADRNR TYPE STRING,
CPDKT TYPE STRING,
VERGN TYPE STRING,
VERSN TYPE STRING,
KVDAT TYPE STRING,
VCEND TYPE STRING,
VKNUM TYPE STRING,
VKMAN TYPE STRING,
APSTATE TYPE STRING,
PCARD TYPE STRING,
VERNR TYPE STRING,
VERGE TYPE STRING,
ABREE TYPE STRING,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPUSR TYPE STRING,
STORN TYPE STRING,
STUSR TYPE STRING,
STDAT TYPE STRING,
VTRTY TYPE STRING,
VSCOD TYPE STRING,
REPAP TYPE STRING,
RFLNR TYPE STRING,
PATNR TYPE STRING,
VKTITEL TYPE STRING,
VKVNAM TYPE STRING,
VKNZU TYPE STRING,
VKNNAM TYPE STRING,
VKGBDAT TYPE STRING,
VKSTRAS TYPE STRING,
VKLAND TYPE STRING,
VKPLZ TYPE STRING,
VKORT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNBADI_PAI_INS_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_RNBADI_PAI_INS_STR-LFDNR sy-vline 
WA_RNBADI_PAI_INS_STR-PATKZ sy-vline 
WA_RNBADI_PAI_INS_STR-KOSTR sy-vline 
WA_RNBADI_PAI_INS_STR-MGART sy-vline 
WA_RNBADI_PAI_INS_STR-UNTGR sy-vline 
WA_RNBADI_PAI_INS_STR-VERAB sy-vline 
WA_RNBADI_PAI_INS_STR-VERBI sy-vline 
WA_RNBADI_PAI_INS_STR-RANGF sy-vline 
WA_RNBADI_PAI_INS_STR-VKVST sy-vline 
WA_RNBADI_PAI_INS_STR-VKVSE sy-vline 
WA_RNBADI_PAI_INS_STR-VKNRA sy-vline 
WA_RNBADI_PAI_INS_STR-BTRZZ sy-vline 
WA_RNBADI_PAI_INS_STR-NZZGR sy-vline 
WA_RNBADI_PAI_INS_STR-VTAGE sy-vline 
WA_RNBADI_PAI_INS_STR-VTDAT sy-vline 
WA_RNBADI_PAI_INS_STR-SZDEB sy-vline 
WA_RNBADI_PAI_INS_STR-TEXT_VVF sy-vline 
WA_RNBADI_PAI_INS_STR-AKTKZ sy-vline 
WA_RNBADI_PAI_INS_STR-WAERS sy-vline 
WA_RNBADI_PAI_INS_STR-EXTTY sy-vline 
WA_RNBADI_PAI_INS_STR-TWKTR sy-vline 
WA_RNBADI_PAI_INS_STR-PAYAM sy-vline 
WA_RNBADI_PAI_INS_STR-KKFAL sy-vline 
WA_RNBADI_PAI_INS_STR-KUAUS sy-vline 
WA_RNBADI_PAI_INS_STR-VBGDT sy-vline 
WA_RNBADI_PAI_INS_STR-PFLZZ sy-vline 
WA_RNBADI_PAI_INS_STR-TPPROC sy-vline 
WA_RNBADI_PAI_INS_STR-VERAN sy-vline 
WA_RNBADI_PAI_INS_STR-VERNN sy-vline 
WA_RNBADI_PAI_INS_STR-VERTI sy-vline 
WA_RNBADI_PAI_INS_STR-VERVN sy-vline 
WA_RNBADI_PAI_INS_STR-VERNZ sy-vline 
WA_RNBADI_PAI_INS_STR-VERGB sy-vline 
WA_RNBADI_PAI_INS_STR-VERVW sy-vline 
WA_RNBADI_PAI_INS_STR-VERNA sy-vline 
WA_RNBADI_PAI_INS_STR-VERSV sy-vline 
WA_RNBADI_PAI_INS_STR-VERVV sy-vline 
WA_RNBADI_PAI_INS_STR-PSTLZVER sy-vline 
WA_RNBADI_PAI_INS_STR-LANDVER sy-vline 
WA_RNBADI_PAI_INS_STR-REGIOVER sy-vline 
WA_RNBADI_PAI_INS_STR-ORTVER sy-vline 
WA_RNBADI_PAI_INS_STR-ORT2VER sy-vline 
WA_RNBADI_PAI_INS_STR-STRASVER sy-vline 
WA_RNBADI_PAI_INS_STR-STRAZVER sy-vline 
WA_RNBADI_PAI_INS_STR-EINZGVER sy-vline 
WA_RNBADI_PAI_INS_STR-PSTLPVER sy-vline 
WA_RNBADI_PAI_INS_STR-PFACHVER sy-vline 
WA_RNBADI_PAI_INS_STR-LANPFVER sy-vline 
WA_RNBADI_PAI_INS_STR-ORTPFVER sy-vline 
WA_RNBADI_PAI_INS_STR-PSTLFVER sy-vline 
WA_RNBADI_PAI_INS_STR-TELNOVER sy-vline 
WA_RNBADI_PAI_INS_STR-FAXNRVER sy-vline 
WA_RNBADI_PAI_INS_STR-FAXXTVER sy-vline 
WA_RNBADI_PAI_INS_STR-TEXNRVER sy-vline 
WA_RNBADI_PAI_INS_STR-BUILDVER sy-vline 
WA_RNBADI_PAI_INS_STR-FLOORVER sy-vline 
WA_RNBADI_PAI_INS_STR-ROOMVER sy-vline 
WA_RNBADI_PAI_INS_STR-EMAILVER sy-vline 
WA_RNBADI_PAI_INS_STR-HSNM1VER sy-vline 
WA_RNBADI_PAI_INS_STR-AGNUM sy-vline 
WA_RNBADI_PAI_INS_STR-BERUF sy-vline 
WA_RNBADI_PAI_INS_STR-AGNAM sy-vline 
WA_RNBADI_PAI_INS_STR-PSTLZAG sy-vline 
WA_RNBADI_PAI_INS_STR-LANDAG sy-vline 
WA_RNBADI_PAI_INS_STR-REGIOAG sy-vline 
WA_RNBADI_PAI_INS_STR-ORTAG sy-vline 
WA_RNBADI_PAI_INS_STR-ORT2AG sy-vline 
WA_RNBADI_PAI_INS_STR-STRASAG sy-vline 
WA_RNBADI_PAI_INS_STR-STRAZAG sy-vline 
WA_RNBADI_PAI_INS_STR-EINZGAG sy-vline 
WA_RNBADI_PAI_INS_STR-PSTLPAG sy-vline 
WA_RNBADI_PAI_INS_STR-PFACHAG sy-vline 
WA_RNBADI_PAI_INS_STR-LANPFAG sy-vline 
WA_RNBADI_PAI_INS_STR-ORTPFAG sy-vline 
WA_RNBADI_PAI_INS_STR-PSTLFAG sy-vline 
WA_RNBADI_PAI_INS_STR-TELNOAG sy-vline 
WA_RNBADI_PAI_INS_STR-FAXNRAG sy-vline 
WA_RNBADI_PAI_INS_STR-FAXXTAG sy-vline 
WA_RNBADI_PAI_INS_STR-TEXNRAG sy-vline 
WA_RNBADI_PAI_INS_STR-BUILDAG sy-vline 
WA_RNBADI_PAI_INS_STR-FLOORAG sy-vline 
WA_RNBADI_PAI_INS_STR-ROOMAG sy-vline 
WA_RNBADI_PAI_INS_STR-EMAILAG sy-vline 
WA_RNBADI_PAI_INS_STR-HSNM1AG sy-vline 
WA_RNBADI_PAI_INS_STR-ADRNR sy-vline 
WA_RNBADI_PAI_INS_STR-CPDKT sy-vline 
WA_RNBADI_PAI_INS_STR-VERGN sy-vline 
WA_RNBADI_PAI_INS_STR-VERSN sy-vline 
WA_RNBADI_PAI_INS_STR-KVDAT sy-vline 
WA_RNBADI_PAI_INS_STR-VCEND sy-vline 
WA_RNBADI_PAI_INS_STR-VKNUM sy-vline 
WA_RNBADI_PAI_INS_STR-VKMAN sy-vline 
WA_RNBADI_PAI_INS_STR-APSTATE sy-vline 
WA_RNBADI_PAI_INS_STR-PCARD sy-vline 
WA_RNBADI_PAI_INS_STR-VERNR sy-vline 
WA_RNBADI_PAI_INS_STR-VERGE sy-vline 
WA_RNBADI_PAI_INS_STR-ABREE sy-vline 
WA_RNBADI_PAI_INS_STR-ERDAT sy-vline 
WA_RNBADI_PAI_INS_STR-ERUSR sy-vline 
WA_RNBADI_PAI_INS_STR-UPDAT sy-vline 
WA_RNBADI_PAI_INS_STR-UPUSR sy-vline 
WA_RNBADI_PAI_INS_STR-STORN sy-vline 
WA_RNBADI_PAI_INS_STR-STUSR sy-vline 
WA_RNBADI_PAI_INS_STR-STDAT sy-vline 
WA_RNBADI_PAI_INS_STR-VTRTY sy-vline 
WA_RNBADI_PAI_INS_STR-VSCOD sy-vline 
WA_RNBADI_PAI_INS_STR-REPAP sy-vline 
WA_RNBADI_PAI_INS_STR-RFLNR sy-vline 
WA_RNBADI_PAI_INS_STR-PATNR sy-vline 
WA_RNBADI_PAI_INS_STR-VKTITEL sy-vline 
WA_RNBADI_PAI_INS_STR-VKVNAM sy-vline 
WA_RNBADI_PAI_INS_STR-VKNZU sy-vline 
WA_RNBADI_PAI_INS_STR-VKNNAM sy-vline 
WA_RNBADI_PAI_INS_STR-VKGBDAT sy-vline 
WA_RNBADI_PAI_INS_STR-VKSTRAS sy-vline 
WA_RNBADI_PAI_INS_STR-VKLAND sy-vline 
WA_RNBADI_PAI_INS_STR-VKPLZ sy-vline 
WA_RNBADI_PAI_INS_STR-VKORT sy-vline      INTO ld_text SEPARATED BY SPACE.

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