ABAP Select data from SAP table FOTRFDITM_S 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 FOTRFDITM_S 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 FOTRFDITM_S. 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 FOTRFDITM_S 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_FOTRFDITM_S TYPE STANDARD TABLE OF FOTRFDITM_S,
      WA_FOTRFDITM_S TYPE FOTRFDITM_S,
      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: <FOTRFDITM_S> TYPE FOTRFDITM_S.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM FOTRFDITM_S
*  INTO TABLE @DATA(IT_FOTRFDITM_S2).
*--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_FOTRFDITM_S INDEX 1 INTO DATA(WA_FOTRFDITM_S2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<FOTRFDITM_S>-MANDT = 1.
<FOTRFDITM_S>-RFD_ITEM_ID = 1.
<FOTRFDITM_S>-DECL_TYPE = 1.
<FOTRFDITM_S>-TBUKRS = 1.
<FOTRFDITM_S>-DECL_CTRY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_FOTRFDITM_S-DECL_YEAR, sy-vline,
  WA_FOTRFDITM_S-DECL_PER, sy-vline,
  WA_FOTRFDITM_S-DECL_RUNID, sy-vline,
  WA_FOTRFDITM_S-DECL_VERS, sy-vline,
  WA_FOTRFDITM_S-RFD_CTRY, sy-vline,
  WA_FOTRFDITM_S-DOC_POS, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_FOTRFDITM_S 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_FOTRFDITM_S 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_FOTRFDITM_S INTO WA_FOTRFDITM_S.


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

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

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

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

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

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

*Conversion exit ISOLA, internal->external for field RFD_CH_SPARS
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-RFD_CH_SPARS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-RFD_CH_SPARS.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field BASE_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-BASE_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-BASE_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field TAX_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-TAX_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-TAX_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field RFDTAX_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-RFDTAX_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-RFDTAX_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field RBASE_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-RBASE_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-RBASE_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field RTX_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-RTX_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-RTX_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field RRFDTAX_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-RRFDTAX_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-RRFDTAX_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field GROSS_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-GROSS_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-GROSS_AMT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AC152, internal->external for field RGROSS_AMT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-RGROSS_AMT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-RGROSS_AMT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit GJAHR, internal->external for field FI_BKPF_STJAH
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_FOTRFDITM_S-FI_BKPF_STJAH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_FOTRFDITM_S-FI_BKPF_STJAH.
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_FOTRFDITM_S_STR, 
MANDT TYPE STRING,
RFD_ITEM_ID TYPE STRING,
DECL_TYPE TYPE STRING,
TBUKRS TYPE STRING,
DECL_CTRY TYPE STRING,
DECL_YEAR TYPE STRING,
DECL_PER TYPE STRING,
DECL_RUNID TYPE STRING,
DECL_VERS TYPE STRING,
RFD_CTRY TYPE STRING,
DOC_POS TYPE STRING,
BELNR TYPE STRING,
GJAHR TYPE STRING,
MONAT TYPE STRING,
BUDAT TYPE STRING,
XBLNR TYPE STRING,
BLART TYPE STRING,
LIFNR TYPE STRING,
AWSYSTV TYPE STRING,
PERNRTV TYPE STRING,
REINRTV TYPE STRING,
PERIOTV TYPE STRING,
PDVRSTV TYPE STRING,
BELNRTV TYPE STRING,
POSNRTV TYPE STRING,
REC_NOTV TYPE STRING,
REC_POS_NOTV TYPE STRING,
RFD_SEQ_NO TYPE STRING,
RFD_ITM_CASE TYPE STRING,
MWSKZ TYPE STRING,
TXDAT TYPE STRING,
TXDAT_FROM TYPE STRING,
BLDAT TYPE STRING,
RFD_ITEMSRC TYPE STRING,
RFD_CHAR TYPE STRING,
RFD_SUBCODE TYPE STRING,
RFD_CH_SPARS TYPE STRING,
RFD_CH_DESCR TYPE STRING,
BASE_AMT TYPE STRING,
TAX_AMT TYPE STRING,
RFDTAX_AMT TYPE STRING,
ORIG_CURR TYPE STRING,
RBASE_AMT TYPE STRING,
RTX_AMT TYPE STRING,
RRFDTAX_AMT TYPE STRING,
REP_CURR TYPE STRING,
NAME TYPE STRING,
CRED_CTRY TYPE STRING,
STREET TYPE STRING,
HOUSE_NUM TYPE STRING,
POST_CODE TYPE STRING,
CITY TYPE STRING,
STCEG TYPE STRING,
STCD1 TYPE STRING,
USERCHANGE TYPE STRING,
CHANTSTMP TYPE STRING,
STATUS TYPE STRING,
CHANGED TYPE STRING,
ORIG_REQ TYPE STRING,
RFD_CHAR_T TYPE STRING,
RFD_SUBCODE_T TYPE STRING,
REQ_STATUS TYPE STRING,
DATE_CHNGE TYPE STRING,
TIME_CHNGE TYPE STRING,
GROSS_AMT TYPE STRING,
RGROSS_AMT TYPE STRING,
STATUS_T TYPE STRING,
ELEC_DOC_REQ TYPE STRING,
FI_BKPF_STBLG TYPE STRING,
FI_BKPF_STJAH TYPE STRING,END OF T_EKKO_STR.
DATA: WA_FOTRFDITM_S_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_FOTRFDITM_S_STR-MANDT sy-vline 
WA_FOTRFDITM_S_STR-RFD_ITEM_ID sy-vline 
WA_FOTRFDITM_S_STR-DECL_TYPE sy-vline 
WA_FOTRFDITM_S_STR-TBUKRS sy-vline 
WA_FOTRFDITM_S_STR-DECL_CTRY sy-vline 
WA_FOTRFDITM_S_STR-DECL_YEAR sy-vline 
WA_FOTRFDITM_S_STR-DECL_PER sy-vline 
WA_FOTRFDITM_S_STR-DECL_RUNID sy-vline 
WA_FOTRFDITM_S_STR-DECL_VERS sy-vline 
WA_FOTRFDITM_S_STR-RFD_CTRY sy-vline 
WA_FOTRFDITM_S_STR-DOC_POS sy-vline 
WA_FOTRFDITM_S_STR-BELNR sy-vline 
WA_FOTRFDITM_S_STR-GJAHR sy-vline 
WA_FOTRFDITM_S_STR-MONAT sy-vline 
WA_FOTRFDITM_S_STR-BUDAT sy-vline 
WA_FOTRFDITM_S_STR-XBLNR sy-vline 
WA_FOTRFDITM_S_STR-BLART sy-vline 
WA_FOTRFDITM_S_STR-LIFNR sy-vline 
WA_FOTRFDITM_S_STR-AWSYSTV sy-vline 
WA_FOTRFDITM_S_STR-PERNRTV sy-vline 
WA_FOTRFDITM_S_STR-REINRTV sy-vline 
WA_FOTRFDITM_S_STR-PERIOTV sy-vline 
WA_FOTRFDITM_S_STR-PDVRSTV sy-vline 
WA_FOTRFDITM_S_STR-BELNRTV sy-vline 
WA_FOTRFDITM_S_STR-POSNRTV sy-vline 
WA_FOTRFDITM_S_STR-REC_NOTV sy-vline 
WA_FOTRFDITM_S_STR-REC_POS_NOTV sy-vline 
WA_FOTRFDITM_S_STR-RFD_SEQ_NO sy-vline 
WA_FOTRFDITM_S_STR-RFD_ITM_CASE sy-vline 
WA_FOTRFDITM_S_STR-MWSKZ sy-vline 
WA_FOTRFDITM_S_STR-TXDAT sy-vline 
WA_FOTRFDITM_S_STR-TXDAT_FROM sy-vline 
WA_FOTRFDITM_S_STR-BLDAT sy-vline 
WA_FOTRFDITM_S_STR-RFD_ITEMSRC sy-vline 
WA_FOTRFDITM_S_STR-RFD_CHAR sy-vline 
WA_FOTRFDITM_S_STR-RFD_SUBCODE sy-vline 
WA_FOTRFDITM_S_STR-RFD_CH_SPARS sy-vline 
WA_FOTRFDITM_S_STR-RFD_CH_DESCR sy-vline 
WA_FOTRFDITM_S_STR-BASE_AMT sy-vline 
WA_FOTRFDITM_S_STR-TAX_AMT sy-vline 
WA_FOTRFDITM_S_STR-RFDTAX_AMT sy-vline 
WA_FOTRFDITM_S_STR-ORIG_CURR sy-vline 
WA_FOTRFDITM_S_STR-RBASE_AMT sy-vline 
WA_FOTRFDITM_S_STR-RTX_AMT sy-vline 
WA_FOTRFDITM_S_STR-RRFDTAX_AMT sy-vline 
WA_FOTRFDITM_S_STR-REP_CURR sy-vline 
WA_FOTRFDITM_S_STR-NAME sy-vline 
WA_FOTRFDITM_S_STR-CRED_CTRY sy-vline 
WA_FOTRFDITM_S_STR-STREET sy-vline 
WA_FOTRFDITM_S_STR-HOUSE_NUM sy-vline 
WA_FOTRFDITM_S_STR-POST_CODE sy-vline 
WA_FOTRFDITM_S_STR-CITY sy-vline 
WA_FOTRFDITM_S_STR-STCEG sy-vline 
WA_FOTRFDITM_S_STR-STCD1 sy-vline 
WA_FOTRFDITM_S_STR-USERCHANGE sy-vline 
WA_FOTRFDITM_S_STR-CHANTSTMP sy-vline 
WA_FOTRFDITM_S_STR-STATUS sy-vline 
WA_FOTRFDITM_S_STR-CHANGED sy-vline 
WA_FOTRFDITM_S_STR-ORIG_REQ sy-vline 
WA_FOTRFDITM_S_STR-RFD_CHAR_T sy-vline 
WA_FOTRFDITM_S_STR-RFD_SUBCODE_T sy-vline 
WA_FOTRFDITM_S_STR-REQ_STATUS sy-vline 
WA_FOTRFDITM_S_STR-DATE_CHNGE sy-vline 
WA_FOTRFDITM_S_STR-TIME_CHNGE sy-vline 
WA_FOTRFDITM_S_STR-GROSS_AMT sy-vline 
WA_FOTRFDITM_S_STR-RGROSS_AMT sy-vline 
WA_FOTRFDITM_S_STR-STATUS_T sy-vline 
WA_FOTRFDITM_S_STR-ELEC_DOC_REQ sy-vline 
WA_FOTRFDITM_S_STR-FI_BKPF_STBLG sy-vline 
WA_FOTRFDITM_S_STR-FI_BKPF_STJAH sy-vline      INTO ld_text SEPARATED BY SPACE.

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