ABAP Select data from SAP table RN1PLANNING_HISTORY 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 RN1PLANNING_HISTORY 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 RN1PLANNING_HISTORY. 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 RN1PLANNING_HISTORY 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_RN1PLANNING_HISTORY TYPE STANDARD TABLE OF RN1PLANNING_HISTORY,
      WA_RN1PLANNING_HISTORY TYPE RN1PLANNING_HISTORY,
      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: <RN1PLANNING_HISTORY> TYPE RN1PLANNING_HISTORY.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM RN1PLANNING_HISTORY
*  INTO TABLE @DATA(IT_RN1PLANNING_HISTORY2).
*--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_RN1PLANNING_HISTORY INDEX 1 INTO DATA(WA_RN1PLANNING_HISTORY2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<RN1PLANNING_HISTORY>-APP_OBJ = 1.
<RN1PLANNING_HISTORY>-ATTRID = 1.
<RN1PLANNING_HISTORY>-NUMBER = 1.
<RN1PLANNING_HISTORY>-APP_HEAD = 1.
<RN1PLANNING_HISTORY>-MANDT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_RN1PLANNING_HISTORY-TMNID, sy-vline,
  WA_RN1PLANNING_HISTORY-EINRI, sy-vline,
  WA_RN1PLANNING_HISTORY-PATNR, sy-vline,
  WA_RN1PLANNING_HISTORY-PZIFF, sy-vline,
  WA_RN1PLANNING_HISTORY-EXTNR, sy-vline,
  WA_RN1PLANNING_HISTORY-FALNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_RN1PLANNING_HISTORY 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_RN1PLANNING_HISTORY 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_RN1PLANNING_HISTORY INTO WA_RN1PLANNING_HISTORY.


*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_RN1PLANNING_HISTORY-TMNID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_HISTORY-TMNID.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field PAPID
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_RN1PLANNING_HISTORY-PAPID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_RN1PLANNING_HISTORY-PAPID.
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_RN1PLANNING_HISTORY_STR, 
APP_OBJ TYPE STRING,
ATTRID TYPE STRING,
NUMBER TYPE STRING,
APP_HEAD TYPE STRING,
MANDT TYPE STRING,
TMNID TYPE STRING,
EINRI TYPE STRING,
PATNR TYPE STRING,
PZIFF TYPE STRING,
EXTNR TYPE STRING,
FALNR TYPE STRING,
FZIFF TYPE STRING,
FALAR TYPE STRING,
TMNLB TYPE STRING,
TMNOE TYPE STRING,
TMNDT TYPE STRING,
TMNZT TYPE STRING,
TMNDR TYPE STRING,
NNAME TYPE STRING,
VNAME TYPE STRING,
NNAMS TYPE STRING,
VNAMS TYPE STRING,
TITEL TYPE STRING,
NAMZU TYPE STRING,
VORSW TYPE STRING,
GBNAM TYPE STRING,
GBNAS TYPE STRING,
GBDAT TYPE STRING,
GSCHL TYPE STRING,
TELF1 TYPE STRING,
TODKZ TYPE STRING,
SOURC TYPE STRING,
TMTAG TYPE STRING,
REFID TYPE STRING,
NOTAN TYPE STRING,
KRZAN TYPE STRING,
BEKAT TYPE STRING,
RISKF TYPE STRING,
CLASS 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,
ERDAT TYPE STRING,
ERUSR TYPE STRING,
UPDAT TYPE STRING,
UPUSR TYPE STRING,
FATYP TYPE STRING,
BWART TYPE STRING,
TPART TYPE STRING,
BWPRIO TYPE STRING,
MEDTX TYPE STRING,
TMSTG TYPE STRING,
STORN TYPE STRING,
STUSR TYPE STRING,
STDAT TYPE STRING,
VBUND TYPE STRING,
BWGR1 TYPE STRING,
BWGR2 TYPE STRING,
UARNR TYPE STRING,
TMPDT TYPE STRING,
TMPZT TYPE STRING,
GPLVN TYPE STRING,
GPLTY TYPE STRING,
EMAIL TYPE STRING,
BEWTY TYPE STRING,
CHAINID TYPE STRING,
UNITID TYPE STRING,
DISTMIN TYPE STRING,
DISTMAX TYPE STRING,
DISTUNIT TYPE STRING,
CYCLE TYPE STRING,
CYCLEUNIT TYPE STRING,
VKGID TYPE STRING,
PAPID TYPE STRING,
APCNID TYPE STRING,
ENDPL TYPE STRING,
TIMESTAMP TYPE STRING,
CAUSECHNG TYPE STRING,
CSECHGID TYPE STRING,
APP_RES TYPE STRING,
APP_OBJ_OLD TYPE STRING,END OF T_EKKO_STR.
DATA: WA_RN1PLANNING_HISTORY_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_RN1PLANNING_HISTORY_STR-APP_OBJ sy-vline 
WA_RN1PLANNING_HISTORY_STR-ATTRID sy-vline 
WA_RN1PLANNING_HISTORY_STR-NUMBER sy-vline 
WA_RN1PLANNING_HISTORY_STR-APP_HEAD sy-vline 
WA_RN1PLANNING_HISTORY_STR-MANDT sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMNID sy-vline 
WA_RN1PLANNING_HISTORY_STR-EINRI sy-vline 
WA_RN1PLANNING_HISTORY_STR-PATNR sy-vline 
WA_RN1PLANNING_HISTORY_STR-PZIFF sy-vline 
WA_RN1PLANNING_HISTORY_STR-EXTNR sy-vline 
WA_RN1PLANNING_HISTORY_STR-FALNR sy-vline 
WA_RN1PLANNING_HISTORY_STR-FZIFF sy-vline 
WA_RN1PLANNING_HISTORY_STR-FALAR sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMNLB sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMNOE sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMNDT sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMNZT sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMNDR sy-vline 
WA_RN1PLANNING_HISTORY_STR-NNAME sy-vline 
WA_RN1PLANNING_HISTORY_STR-VNAME sy-vline 
WA_RN1PLANNING_HISTORY_STR-NNAMS sy-vline 
WA_RN1PLANNING_HISTORY_STR-VNAMS sy-vline 
WA_RN1PLANNING_HISTORY_STR-TITEL sy-vline 
WA_RN1PLANNING_HISTORY_STR-NAMZU sy-vline 
WA_RN1PLANNING_HISTORY_STR-VORSW sy-vline 
WA_RN1PLANNING_HISTORY_STR-GBNAM sy-vline 
WA_RN1PLANNING_HISTORY_STR-GBNAS sy-vline 
WA_RN1PLANNING_HISTORY_STR-GBDAT sy-vline 
WA_RN1PLANNING_HISTORY_STR-GSCHL sy-vline 
WA_RN1PLANNING_HISTORY_STR-TELF1 sy-vline 
WA_RN1PLANNING_HISTORY_STR-TODKZ sy-vline 
WA_RN1PLANNING_HISTORY_STR-SOURC sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMTAG sy-vline 
WA_RN1PLANNING_HISTORY_STR-REFID sy-vline 
WA_RN1PLANNING_HISTORY_STR-NOTAN sy-vline 
WA_RN1PLANNING_HISTORY_STR-KRZAN sy-vline 
WA_RN1PLANNING_HISTORY_STR-BEKAT sy-vline 
WA_RN1PLANNING_HISTORY_STR-RISKF sy-vline 
WA_RN1PLANNING_HISTORY_STR-CLASS sy-vline 
WA_RN1PLANNING_HISTORY_STR-BNKZ sy-vline 
WA_RN1PLANNING_HISTORY_STR-BNDT sy-vline 
WA_RN1PLANNING_HISTORY_STR-BNART sy-vline 
WA_RN1PLANNING_HISTORY_STR-EINBDT sy-vline 
WA_RN1PLANNING_HISTORY_STR-EINBZT sy-vline 
WA_RN1PLANNING_HISTORY_STR-EINBOE sy-vline 
WA_RN1PLANNING_HISTORY_STR-EINBPER sy-vline 
WA_RN1PLANNING_HISTORY_STR-EINBZIM sy-vline 
WA_RN1PLANNING_HISTORY_STR-ERDAT sy-vline 
WA_RN1PLANNING_HISTORY_STR-ERUSR sy-vline 
WA_RN1PLANNING_HISTORY_STR-UPDAT sy-vline 
WA_RN1PLANNING_HISTORY_STR-UPUSR sy-vline 
WA_RN1PLANNING_HISTORY_STR-FATYP sy-vline 
WA_RN1PLANNING_HISTORY_STR-BWART sy-vline 
WA_RN1PLANNING_HISTORY_STR-TPART sy-vline 
WA_RN1PLANNING_HISTORY_STR-BWPRIO sy-vline 
WA_RN1PLANNING_HISTORY_STR-MEDTX sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMSTG sy-vline 
WA_RN1PLANNING_HISTORY_STR-STORN sy-vline 
WA_RN1PLANNING_HISTORY_STR-STUSR sy-vline 
WA_RN1PLANNING_HISTORY_STR-STDAT sy-vline 
WA_RN1PLANNING_HISTORY_STR-VBUND sy-vline 
WA_RN1PLANNING_HISTORY_STR-BWGR1 sy-vline 
WA_RN1PLANNING_HISTORY_STR-BWGR2 sy-vline 
WA_RN1PLANNING_HISTORY_STR-UARNR sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMPDT sy-vline 
WA_RN1PLANNING_HISTORY_STR-TMPZT sy-vline 
WA_RN1PLANNING_HISTORY_STR-GPLVN sy-vline 
WA_RN1PLANNING_HISTORY_STR-GPLTY sy-vline 
WA_RN1PLANNING_HISTORY_STR-EMAIL sy-vline 
WA_RN1PLANNING_HISTORY_STR-BEWTY sy-vline 
WA_RN1PLANNING_HISTORY_STR-CHAINID sy-vline 
WA_RN1PLANNING_HISTORY_STR-UNITID sy-vline 
WA_RN1PLANNING_HISTORY_STR-DISTMIN sy-vline 
WA_RN1PLANNING_HISTORY_STR-DISTMAX sy-vline 
WA_RN1PLANNING_HISTORY_STR-DISTUNIT sy-vline 
WA_RN1PLANNING_HISTORY_STR-CYCLE sy-vline 
WA_RN1PLANNING_HISTORY_STR-CYCLEUNIT sy-vline 
WA_RN1PLANNING_HISTORY_STR-VKGID sy-vline 
WA_RN1PLANNING_HISTORY_STR-PAPID sy-vline 
WA_RN1PLANNING_HISTORY_STR-APCNID sy-vline 
WA_RN1PLANNING_HISTORY_STR-ENDPL sy-vline 
WA_RN1PLANNING_HISTORY_STR-TIMESTAMP sy-vline 
WA_RN1PLANNING_HISTORY_STR-CAUSECHNG sy-vline 
WA_RN1PLANNING_HISTORY_STR-CSECHGID sy-vline 
WA_RN1PLANNING_HISTORY_STR-APP_RES sy-vline 
WA_RN1PLANNING_HISTORY_STR-APP_OBJ_OLD sy-vline      INTO ld_text SEPARATED BY SPACE.

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