ABAP Select data from SAP table RNV2000_APPOINTMENT 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 RNV2000_APPOINTMENT 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 RNV2000_APPOINTMENT. 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 RNV2000_APPOINTMENT 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_RNV2000_APPOINTMENT TYPE STANDARD TABLE OF RNV2000_APPOINTMENT,
      WA_RNV2000_APPOINTMENT TYPE RNV2000_APPOINTMENT,
      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: <RNV2000_APPOINTMENT> TYPE RNV2000_APPOINTMENT.

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RNV2000_APPOINTMENT>-TMNID = 1.
<RNV2000_APPOINTMENT>-POBNR = 1.
<RNV2000_APPOINTMENT>-TMNDP = 1.
<RNV2000_APPOINTMENT>-TMNOE = 1.
<RNV2000_APPOINTMENT>-TMNDT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RNV2000_APPOINTMENT-TMNZT, sy-vline,
  WA_RNV2000_APPOINTMENT-TMNPE, sy-vline,
  WA_RNV2000_APPOINTMENT-TMNRO, sy-vline,
  WA_RNV2000_APPOINTMENT-TMNDR, sy-vline,
  WA_RNV2000_APPOINTMENT-PTINP, sy-vline,
  WA_RNV2000_APPOINTMENT-SOURC, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RNV2000_APPOINTMENT 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_RNV2000_APPOINTMENT 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_RNV2000_APPOINTMENT INTO WA_RNV2000_APPOINTMENT.


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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field EINBZIM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RNV2000_APPOINTMENT-EINBZIM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RNV2000_APPOINTMENT-EINBZIM.
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_RNV2000_APPOINTMENT_STR, 
TMNID TYPE STRING,
POBNR TYPE STRING,
TMNDP TYPE STRING,
TMNOE TYPE STRING,
TMNDT TYPE STRING,
TMNZT TYPE STRING,
TMNPE TYPE STRING,
TMNRO TYPE STRING,
TMNDR TYPE STRING,
PTINP TYPE STRING,
SOURC TYPE STRING,
TMTAG TYPE STRING,
REFID TYPE STRING,
TPART TYPE STRING,
BWPRIO TYPE STRING,
TEXT_APP TYPE STRING,
TEXT_MED TYPE STRING,
TMSTG TYPE STRING,
VBUND TYPE STRING,
TMPDT TYPE STRING,
TMPZT TYPE STRING,
GPLVN TYPE STRING,
GPLTY TYPE STRING,
CHAINID TYPE STRING,
UNITID TYPE STRING,
DISTMIN TYPE STRING,
DISTMAX TYPE STRING,
DISTUNIT TYPE STRING,
CYCLE TYPE STRING,
CYCLEUNIT TYPE STRING,
APCNID TYPE STRING,
PELOC TYPE STRING,
BNKZ TYPE STRING,
BNDT TYPE STRING,
BNART TYPE STRING,
EINBDT TYPE STRING,
EINBZT TYPE STRING,
EINBOE TYPE STRING,
EINBPER TYPE STRING,
EINBZIM TYPE STRING,
TMNID_X TYPE STRING,
POBNR_X TYPE STRING,
TMNDP_X TYPE STRING,
TMNOE_X TYPE STRING,
TMNDT_X TYPE STRING,
TMNZT_X TYPE STRING,
TMNPE_X TYPE STRING,
TMNRO_X TYPE STRING,
TMNDR_X TYPE STRING,
PTINP_X TYPE STRING,
SOURC_X TYPE STRING,
TMTAG_X TYPE STRING,
REFID_X TYPE STRING,
TPART_X TYPE STRING,
BWPRIO_X TYPE STRING,
TEXT_APP_X TYPE STRING,
TEXT_MED_X TYPE STRING,
TMSTG_X TYPE STRING,
VBUND_X TYPE STRING,
TMPDT_X TYPE STRING,
TMPZT_X TYPE STRING,
GPLVN_X TYPE STRING,
GPLTY_X TYPE STRING,
CHAINID_X TYPE STRING,
UNITID_X TYPE STRING,
DISTMIN_X TYPE STRING,
DISTMAX_X TYPE STRING,
DISTUNIT_X TYPE STRING,
CYCLE_X TYPE STRING,
CYCLEUNIT_X TYPE STRING,
APCNID_X TYPE STRING,
PELOC_X TYPE STRING,
BNKZ_X TYPE STRING,
BNDT_X TYPE STRING,
BNART_X TYPE STRING,
EINBDT_X TYPE STRING,
EINBZT_X TYPE STRING,
EINBOE_X TYPE STRING,
EINBPER_X TYPE STRING,
EINBZIM_X TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RNV2000_APPOINTMENT_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_RNV2000_APPOINTMENT_STR-TMNID sy-vline 
WA_RNV2000_APPOINTMENT_STR-POBNR sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNDP sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNOE sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNDT sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNZT sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNPE sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNRO sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNDR sy-vline 
WA_RNV2000_APPOINTMENT_STR-PTINP sy-vline 
WA_RNV2000_APPOINTMENT_STR-SOURC sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMTAG sy-vline 
WA_RNV2000_APPOINTMENT_STR-REFID sy-vline 
WA_RNV2000_APPOINTMENT_STR-TPART sy-vline 
WA_RNV2000_APPOINTMENT_STR-BWPRIO sy-vline 
WA_RNV2000_APPOINTMENT_STR-TEXT_APP sy-vline 
WA_RNV2000_APPOINTMENT_STR-TEXT_MED sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMSTG sy-vline 
WA_RNV2000_APPOINTMENT_STR-VBUND sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMPDT sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMPZT sy-vline 
WA_RNV2000_APPOINTMENT_STR-GPLVN sy-vline 
WA_RNV2000_APPOINTMENT_STR-GPLTY sy-vline 
WA_RNV2000_APPOINTMENT_STR-CHAINID sy-vline 
WA_RNV2000_APPOINTMENT_STR-UNITID sy-vline 
WA_RNV2000_APPOINTMENT_STR-DISTMIN sy-vline 
WA_RNV2000_APPOINTMENT_STR-DISTMAX sy-vline 
WA_RNV2000_APPOINTMENT_STR-DISTUNIT sy-vline 
WA_RNV2000_APPOINTMENT_STR-CYCLE sy-vline 
WA_RNV2000_APPOINTMENT_STR-CYCLEUNIT sy-vline 
WA_RNV2000_APPOINTMENT_STR-APCNID sy-vline 
WA_RNV2000_APPOINTMENT_STR-PELOC sy-vline 
WA_RNV2000_APPOINTMENT_STR-BNKZ sy-vline 
WA_RNV2000_APPOINTMENT_STR-BNDT sy-vline 
WA_RNV2000_APPOINTMENT_STR-BNART sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBDT sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBZT sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBOE sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBPER sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBZIM sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNID_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-POBNR_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNDP_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNOE_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNDT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNZT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNPE_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNRO_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMNDR_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-PTINP_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-SOURC_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMTAG_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-REFID_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TPART_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-BWPRIO_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TEXT_APP_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TEXT_MED_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMSTG_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-VBUND_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMPDT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-TMPZT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-GPLVN_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-GPLTY_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-CHAINID_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-UNITID_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-DISTMIN_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-DISTMAX_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-DISTUNIT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-CYCLE_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-CYCLEUNIT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-APCNID_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-PELOC_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-BNKZ_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-BNDT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-BNART_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBDT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBZT_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBOE_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBPER_X sy-vline 
WA_RNV2000_APPOINTMENT_STR-EINBZIM_X sy-vline      INTO ld_text SEPARATED BY SPACE.

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