ABAP Select data from SAP table IDCL_ADOBE_TABLE 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 IDCL_ADOBE_TABLE 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 IDCL_ADOBE_TABLE. 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 IDCL_ADOBE_TABLE 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_IDCL_ADOBE_TABLE TYPE STANDARD TABLE OF IDCL_ADOBE_TABLE,
      WA_IDCL_ADOBE_TABLE TYPE IDCL_ADOBE_TABLE,
      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: <IDCL_ADOBE_TABLE> TYPE IDCL_ADOBE_TABLE.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM IDCL_ADOBE_TABLE
*  INTO TABLE @DATA(IT_IDCL_ADOBE_TABLE2).
*--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_IDCL_ADOBE_TABLE INDEX 1 INTO DATA(WA_IDCL_ADOBE_TABLE2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<IDCL_ADOBE_TABLE>-BUKRS = 1.
<IDCL_ADOBE_TABLE>-BLART = 1.
<IDCL_ADOBE_TABLE>-BELNR = 1.
<IDCL_ADOBE_TABLE>-BUDAT = 1.
<IDCL_ADOBE_TABLE>-BLDAT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_IDCL_ADOBE_TABLE-XBLNR, sy-vline,
  WA_IDCL_ADOBE_TABLE-BA_OFF, sy-vline,
  WA_IDCL_ADOBE_TABLE-MONAT, sy-vline,
  WA_IDCL_ADOBE_TABLE-GJAHR, sy-vline,
  WA_IDCL_ADOBE_TABLE-BKTXT, sy-vline,
  WA_IDCL_ADOBE_TABLE-AWTYP, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_IDCL_ADOBE_TABLE 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_IDCL_ADOBE_TABLE 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_IDCL_ADOBE_TABLE INTO WA_IDCL_ADOBE_TABLE.


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

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

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

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

*Conversion exit AU132, internal->external for field TAXBASH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXBASH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXBASH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXBASD
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXBASD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXBASD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXAMH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXAMH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXAMH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXAMD
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXAMD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXAMD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXEXEH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXEXEH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXEXEH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXEXED
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXEXED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXEXED.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXEPH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXEPH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXEPH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXEPD
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXEPD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXEPD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXADDH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXADDH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXADDH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXADDD
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXADDD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXADDD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXAD1H
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXAD1H
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXAD1H.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field TAXAD1D
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-TAXAD1D
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-TAXAD1D.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SUM_ALLH
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-SUM_ALLH
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-SUM_ALLH.
WRITE:/ 'New Value:', ld_input.

*Conversion exit AU132, internal->external for field SUM_ALLD
CALL FUNCTION 'CONVERSION_EXIT_AU132_OUTPUT'
  EXPORTING
    input =                      WA_IDCL_ADOBE_TABLE-SUM_ALLD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_IDCL_ADOBE_TABLE-SUM_ALLD.
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_IDCL_ADOBE_TABLE_STR, 
BUKRS TYPE STRING,
BLART TYPE STRING,
BELNR TYPE STRING,
BUDAT TYPE STRING,
BLDAT TYPE STRING,
XBLNR TYPE STRING,
BA_OFF TYPE STRING,
MONAT TYPE STRING,
GJAHR TYPE STRING,
BKTXT TYPE STRING,
AWTYP TYPE STRING,
AWKEY TYPE STRING,
WAERS TYPE STRING,
HWAER TYPE STRING,
KURSF TYPE STRING,
SGTXT TYPE STRING,
STCD1 TYPE STRING,
NAME1 TYPE STRING,
LAND1 TYPE STRING,
KUNNR TYPE STRING,
TAXBASH TYPE STRING,
TAXBASD TYPE STRING,
TAXAMH TYPE STRING,
TAXAMD TYPE STRING,
TAXEXEH TYPE STRING,
TAXEXED TYPE STRING,
TAXEPH TYPE STRING,
TAXEPD TYPE STRING,
TAXADDH TYPE STRING,
TAXADDD TYPE STRING,
TAXAD1H TYPE STRING,
TAXAD1D TYPE STRING,
SUM_ALLH TYPE STRING,
SUM_ALLD TYPE STRING,
GSBER TYPE STRING,
VKORG TYPE STRING,
TYPE TYPE STRING,
TYPE_DESC TYPE STRING,
ORIGIN TYPE STRING,
ORIGIN_DOC TYPE STRING,
ZEILE TYPE STRING,
EBELP TYPE STRING,
EXPORT TYPE STRING,
TAXID TYPE STRING,
MANDT TYPE STRING,
KALSM TYPE STRING,
KTOSL TYPE STRING,
J_1ATAXID TYPE STRING,
REGIO TYPE STRING,
COUNC TYPE STRING,
J_1AMJC TYPE STRING,
BUKRSLAND TYPE STRING,
FAILURE TYPE STRING,END OF T_EKKO_STR.
DATA: WA_IDCL_ADOBE_TABLE_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_IDCL_ADOBE_TABLE_STR-BUKRS sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BLART sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BELNR sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BUDAT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BLDAT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-XBLNR sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BA_OFF sy-vline 
WA_IDCL_ADOBE_TABLE_STR-MONAT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-GJAHR sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BKTXT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-AWTYP sy-vline 
WA_IDCL_ADOBE_TABLE_STR-AWKEY sy-vline 
WA_IDCL_ADOBE_TABLE_STR-WAERS sy-vline 
WA_IDCL_ADOBE_TABLE_STR-HWAER sy-vline 
WA_IDCL_ADOBE_TABLE_STR-KURSF sy-vline 
WA_IDCL_ADOBE_TABLE_STR-SGTXT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-STCD1 sy-vline 
WA_IDCL_ADOBE_TABLE_STR-NAME1 sy-vline 
WA_IDCL_ADOBE_TABLE_STR-LAND1 sy-vline 
WA_IDCL_ADOBE_TABLE_STR-KUNNR sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXBASH sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXBASD sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXAMH sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXAMD sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXEXEH sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXEXED sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXEPH sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXEPD sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXADDH sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXADDD sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXAD1H sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXAD1D sy-vline 
WA_IDCL_ADOBE_TABLE_STR-SUM_ALLH sy-vline 
WA_IDCL_ADOBE_TABLE_STR-SUM_ALLD sy-vline 
WA_IDCL_ADOBE_TABLE_STR-GSBER sy-vline 
WA_IDCL_ADOBE_TABLE_STR-VKORG sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TYPE sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TYPE_DESC sy-vline 
WA_IDCL_ADOBE_TABLE_STR-ORIGIN sy-vline 
WA_IDCL_ADOBE_TABLE_STR-ORIGIN_DOC sy-vline 
WA_IDCL_ADOBE_TABLE_STR-ZEILE sy-vline 
WA_IDCL_ADOBE_TABLE_STR-EBELP sy-vline 
WA_IDCL_ADOBE_TABLE_STR-EXPORT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-TAXID sy-vline 
WA_IDCL_ADOBE_TABLE_STR-MANDT sy-vline 
WA_IDCL_ADOBE_TABLE_STR-KALSM sy-vline 
WA_IDCL_ADOBE_TABLE_STR-KTOSL sy-vline 
WA_IDCL_ADOBE_TABLE_STR-J_1ATAXID sy-vline 
WA_IDCL_ADOBE_TABLE_STR-REGIO sy-vline 
WA_IDCL_ADOBE_TABLE_STR-COUNC sy-vline 
WA_IDCL_ADOBE_TABLE_STR-J_1AMJC sy-vline 
WA_IDCL_ADOBE_TABLE_STR-BUKRSLAND sy-vline 
WA_IDCL_ADOBE_TABLE_STR-FAILURE sy-vline      INTO ld_text SEPARATED BY SPACE.

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