ABAP Select data from SAP table J_3RF_HD_CORRINV 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 J_3RF_HD_CORRINV 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 J_3RF_HD_CORRINV. 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 J_3RF_HD_CORRINV 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_J_3RF_HD_CORRINV TYPE STANDARD TABLE OF J_3RF_HD_CORRINV,
      WA_J_3RF_HD_CORRINV TYPE J_3RF_HD_CORRINV,
      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: <J_3RF_HD_CORRINV> TYPE J_3RF_HD_CORRINV.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM J_3RF_HD_CORRINV
*  INTO TABLE @DATA(IT_J_3RF_HD_CORRINV2).
*--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_J_3RF_HD_CORRINV INDEX 1 INTO DATA(WA_J_3RF_HD_CORRINV2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<J_3RF_HD_CORRINV>-BELNR = 1.
<J_3RF_HD_CORRINV>-GJAHR = 1.
<J_3RF_HD_CORRINV>-VBELN = 1.
<J_3RF_HD_CORRINV>-FKDAT = 1.
<J_3RF_HD_CORRINV>-BUDAT_CORR = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_J_3RF_HD_CORRINV-EXT_CORR, sy-vline,
  WA_J_3RF_HD_CORRINV-REVNO, sy-vline,
  WA_J_3RF_HD_CORRINV-DATE_REV, sy-vline,
  WA_J_3RF_HD_CORRINV-VBTYP, sy-vline,
  WA_J_3RF_HD_CORRINV-ORIG_BELNR, sy-vline,
  WA_J_3RF_HD_CORRINV-ORIG_GJAHR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_J_3RF_HD_CORRINV 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_J_3RF_HD_CORRINV 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_J_3RF_HD_CORRINV INTO WA_J_3RF_HD_CORRINV.


*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_J_3RF_HD_CORRINV-BELNR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_HD_CORRINV-BELNR.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

*Conversion exit EXCRT, internal->external for field KURRF
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_HD_CORRINV-KURRF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_HD_CORRINV-KURRF.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

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

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

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

*Conversion exit AC152, internal->external for field INCR_SMTOT
CALL FUNCTION 'CONVERSION_EXIT_AC152_OUTPUT'
  EXPORTING
    input =                      WA_J_3RF_HD_CORRINV-INCR_SMTOT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_J_3RF_HD_CORRINV-INCR_SMTOT.
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_J_3RF_HD_CORRINV_STR, 
BELNR TYPE STRING,
GJAHR TYPE STRING,
VBELN TYPE STRING,
FKDAT TYPE STRING,
BUDAT_CORR TYPE STRING,
EXT_CORR TYPE STRING,
REVNO TYPE STRING,
DATE_REV TYPE STRING,
VBTYP TYPE STRING,
ORIG_BELNR TYPE STRING,
ORIG_GJAHR TYPE STRING,
EXT_ORIG TYPE STRING,
ORIG_DAT TYPE STRING,
ORIG_VBELN TYPE STRING,
ORIG_REVNO TYPE STRING,
ORIG_DATE_REV TYPE STRING,
SLAND TYPE STRING,
WAERK TYPE STRING,
BUKRS TYPE STRING,
HWAER TYPE STRING,
KURRF TYPE STRING,
ADRNR TYPE STRING,
STCEG TYPE STRING,
STCEG_1 TYPE STRING,
FULL_NAME TYPE STRING,
NAME1 TYPE STRING,
NAME2 TYPE STRING,
NAME3 TYPE STRING,
NAME4 TYPE STRING,
SELLERADDR TYPE STRING,
CITY1 TYPE STRING,
CITY2 TYPE STRING,
CITY3 TYPE STRING,
PCODE1 TYPE STRING,
STREET TYPE STRING,
HNUM1 TYPE STRING,
HNUM2 TYPE STRING,
LOCATION TYPE STRING,
TELNUM TYPE STRING,
REG TYPE STRING,
REGION TYPE STRING,
LAND TYPE STRING,
VKORG TYPE STRING,
VKORG_ADR TYPE STRING,
KOART TYPE STRING,
KUNAG TYPE STRING,
ADRNR_AG TYPE STRING,
STCEG_AG TYPE STRING,
STCEG1_AG TYPE STRING,
BUYERNAME TYPE STRING,
NAME1_AG TYPE STRING,
NAME2_AG TYPE STRING,
NAME3_AG TYPE STRING,
NAME4_AG TYPE STRING,
BUYERADDR TYPE STRING,
CITY1_AG TYPE STRING,
CITY2_AG TYPE STRING,
CITY3_AG TYPE STRING,
PCODE1_AG TYPE STRING,
STREET_AG TYPE STRING,
HNUM1_AG TYPE STRING,
HNUM2_AG TYPE STRING,
LOCATION_AG TYPE STRING,
TELNUM_AG TYPE STRING,
LAND_AG TYPE STRING,
LANDT_AG TYPE STRING,
REG_AG TYPE STRING,
REGIO_AG TYPE STRING,
DECR_SMNET TYPE STRING,
INCR_SMNET TYPE STRING,
DECR_SMVAT TYPE STRING,
INCR_SMVAT TYPE STRING,
DECR_SMTOT TYPE STRING,
INCR_SMTOT TYPE STRING,
BKTXT TYPE STRING,
CURTXT TYPE STRING,
WAERC TYPE STRING,
GOV_CONTR_ID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_J_3RF_HD_CORRINV_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_J_3RF_HD_CORRINV_STR-BELNR sy-vline 
WA_J_3RF_HD_CORRINV_STR-GJAHR sy-vline 
WA_J_3RF_HD_CORRINV_STR-VBELN sy-vline 
WA_J_3RF_HD_CORRINV_STR-FKDAT sy-vline 
WA_J_3RF_HD_CORRINV_STR-BUDAT_CORR sy-vline 
WA_J_3RF_HD_CORRINV_STR-EXT_CORR sy-vline 
WA_J_3RF_HD_CORRINV_STR-REVNO sy-vline 
WA_J_3RF_HD_CORRINV_STR-DATE_REV sy-vline 
WA_J_3RF_HD_CORRINV_STR-VBTYP sy-vline 
WA_J_3RF_HD_CORRINV_STR-ORIG_BELNR sy-vline 
WA_J_3RF_HD_CORRINV_STR-ORIG_GJAHR sy-vline 
WA_J_3RF_HD_CORRINV_STR-EXT_ORIG sy-vline 
WA_J_3RF_HD_CORRINV_STR-ORIG_DAT sy-vline 
WA_J_3RF_HD_CORRINV_STR-ORIG_VBELN sy-vline 
WA_J_3RF_HD_CORRINV_STR-ORIG_REVNO sy-vline 
WA_J_3RF_HD_CORRINV_STR-ORIG_DATE_REV sy-vline 
WA_J_3RF_HD_CORRINV_STR-SLAND sy-vline 
WA_J_3RF_HD_CORRINV_STR-WAERK sy-vline 
WA_J_3RF_HD_CORRINV_STR-BUKRS sy-vline 
WA_J_3RF_HD_CORRINV_STR-HWAER sy-vline 
WA_J_3RF_HD_CORRINV_STR-KURRF sy-vline 
WA_J_3RF_HD_CORRINV_STR-ADRNR sy-vline 
WA_J_3RF_HD_CORRINV_STR-STCEG sy-vline 
WA_J_3RF_HD_CORRINV_STR-STCEG_1 sy-vline 
WA_J_3RF_HD_CORRINV_STR-FULL_NAME sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME1 sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME2 sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME3 sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME4 sy-vline 
WA_J_3RF_HD_CORRINV_STR-SELLERADDR sy-vline 
WA_J_3RF_HD_CORRINV_STR-CITY1 sy-vline 
WA_J_3RF_HD_CORRINV_STR-CITY2 sy-vline 
WA_J_3RF_HD_CORRINV_STR-CITY3 sy-vline 
WA_J_3RF_HD_CORRINV_STR-PCODE1 sy-vline 
WA_J_3RF_HD_CORRINV_STR-STREET sy-vline 
WA_J_3RF_HD_CORRINV_STR-HNUM1 sy-vline 
WA_J_3RF_HD_CORRINV_STR-HNUM2 sy-vline 
WA_J_3RF_HD_CORRINV_STR-LOCATION sy-vline 
WA_J_3RF_HD_CORRINV_STR-TELNUM sy-vline 
WA_J_3RF_HD_CORRINV_STR-REG sy-vline 
WA_J_3RF_HD_CORRINV_STR-REGION sy-vline 
WA_J_3RF_HD_CORRINV_STR-LAND sy-vline 
WA_J_3RF_HD_CORRINV_STR-VKORG sy-vline 
WA_J_3RF_HD_CORRINV_STR-VKORG_ADR sy-vline 
WA_J_3RF_HD_CORRINV_STR-KOART sy-vline 
WA_J_3RF_HD_CORRINV_STR-KUNAG sy-vline 
WA_J_3RF_HD_CORRINV_STR-ADRNR_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-STCEG_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-STCEG1_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-BUYERNAME sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME1_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME2_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME3_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-NAME4_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-BUYERADDR sy-vline 
WA_J_3RF_HD_CORRINV_STR-CITY1_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-CITY2_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-CITY3_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-PCODE1_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-STREET_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-HNUM1_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-HNUM2_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-LOCATION_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-TELNUM_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-LAND_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-LANDT_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-REG_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-REGIO_AG sy-vline 
WA_J_3RF_HD_CORRINV_STR-DECR_SMNET sy-vline 
WA_J_3RF_HD_CORRINV_STR-INCR_SMNET sy-vline 
WA_J_3RF_HD_CORRINV_STR-DECR_SMVAT sy-vline 
WA_J_3RF_HD_CORRINV_STR-INCR_SMVAT sy-vline 
WA_J_3RF_HD_CORRINV_STR-DECR_SMTOT sy-vline 
WA_J_3RF_HD_CORRINV_STR-INCR_SMTOT sy-vline 
WA_J_3RF_HD_CORRINV_STR-BKTXT sy-vline 
WA_J_3RF_HD_CORRINV_STR-CURTXT sy-vline 
WA_J_3RF_HD_CORRINV_STR-WAERC sy-vline 
WA_J_3RF_HD_CORRINV_STR-GOV_CONTR_ID sy-vline      INTO ld_text SEPARATED BY SPACE.

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