ABAP Select data from SAP table ICLITEMEXT_DI 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 ICLITEMEXT_DI 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 ICLITEMEXT_DI. 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 ICLITEMEXT_DI 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_ICLITEMEXT_DI TYPE STANDARD TABLE OF ICLITEMEXT_DI,
      WA_ICLITEMEXT_DI TYPE ICLITEMEXT_DI,
      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: <ICLITEMEXT_DI> TYPE ICLITEMEXT_DI.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICLITEMEXT_DI
*  INTO TABLE @DATA(IT_ICLITEMEXT_DI2).
*--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_ICLITEMEXT_DI INDEX 1 INTO DATA(WA_ICLITEMEXT_DI2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICLITEMEXT_DI>-CHIND_ITEM = 1.
<ICLITEMEXT_DI>-ITEM = 1.
<ICLITEMEXT_DI>-SUBCLAIM_ITEM = 1.
<ICLITEMEXT_DI>-PROC_ITEM = 1.
<ICLITEMEXT_DI>-SUBCLTYPE_ITEM = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICLITEMEXT_DI-BENTYPE, sy-vline,
  WA_ICLITEMEXT_DI-ITEMTYPE, sy-vline,
  WA_ICLITEMEXT_DI-COVTYPE_ITEM, sy-vline,
  WA_ICLITEMEXT_DI-EVALBASE, sy-vline,
  WA_ICLITEMEXT_DI-PERDAY, sy-vline,
  WA_ICLITEMEXT_DI-EVAMOUNT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICLITEMEXT_DI 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_ICLITEMEXT_DI 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_ICLITEMEXT_DI INTO WA_ICLITEMEXT_DI.


*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 VENDOR_CATALOG
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_ICLITEMEXT_DI-VENDOR_CATALOG
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICLITEMEXT_DI-VENDOR_CATALOG.
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_ICLITEMEXT_DI_STR, 
CHIND_ITEM TYPE STRING,
ITEM TYPE STRING,
SUBCLAIM_ITEM TYPE STRING,
PROC_ITEM TYPE STRING,
SUBCLTYPE_ITEM TYPE STRING,
BENTYPE TYPE STRING,
ITEMTYPE TYPE STRING,
COVTYPE_ITEM TYPE STRING,
EVALBASE TYPE STRING,
PERDAY TYPE STRING,
EVAMOUNT TYPE STRING,
EVCURR TYPE STRING,
EVAMTPERUNIT TYPE STRING,
EVQUANTITY TYPE STRING,
EVQUANUNIT TYPE STRING,
TAXCODE_INV TYPE STRING,
ISTAT TYPE STRING,
DAILY TYPE STRING,
WEEKLY TYPE STRING,
MONTHLY TYPE STRING,
REJREASON TYPE STRING,
TOTAL TYPE STRING,
VALIDFROM TYPE STRING,
VALIDTO TYPE STRING,
DISCOUNTPERCENT_ITEM TYPE STRING,
ACV TYPE STRING,
ACVPERCENT TYPE STRING,
ITEMCAT TYPE STRING,
EVALUATION TYPE STRING,
ITEM_REF TYPE STRING,
MATGROUP TYPE STRING,
PRICE_UNIT TYPE STRING,
VENDOR_CATALOG TYPE STRING,
VENDORMAT TYPE STRING,
MANUFACTCODE TYPE STRING,
MANUFACTMAT TYPE STRING,
SERVICE TYPE STRING,
XGENEROS TYPE STRING,
ITEMUSE TYPE STRING,
XDISCOUNTUSED TYPE STRING,
XDISCOUNTPERCENT TYPE STRING,
CUST_FIELD1 TYPE STRING,
CUST_FIELD2 TYPE STRING,
CUST_FIELD3 TYPE STRING,
CUST_FIELD4 TYPE STRING,
CUST_FIELD5 TYPE STRING,
SERVCAT TYPE STRING,
SC_VARIANT TYPE STRING,
SCPOSID_EXT TYPE STRING,
SCPOSID_INT TYPE STRING,
SCPOS_NEGATIVE_VALPERUNIT TYPE STRING,
DNUMBER TYPE STRING,
RCOVTYPE TYPE STRING,
XWAITPERIOD TYPE STRING,
DAMAGEDOBJ_ITEM TYPE STRING,
XDISC_2B_APPLIED TYPE STRING,
EVDATE TYPE STRING,
STARTDATE TYPE STRING,
ENDDATE_ITEM TYPE STRING,
FACTOR TYPE STRING,
DESCRIPTION TYPE STRING,
REFNO TYPE STRING,
PDREF TYPE STRING,
PDPOS TYPE STRING,
ADDITIONAL_ITEM TYPE STRING,
ADDIT_ITEM_SUM TYPE STRING,
GROSS_NET TYPE STRING,
REMUN_TYPE TYPE STRING,
COVERAGE_ITEM TYPE STRING,
PERFORM_CALCULATION TYPE STRING,
XLIABCLMD TYPE STRING,
LIABRATE_ITEM TYPE STRING,
CLMDAMOUNT_ITEM TYPE STRING,
ITEM_GUID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICLITEMEXT_DI_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_ICLITEMEXT_DI_STR-CHIND_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-SUBCLAIM_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-PROC_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-SUBCLTYPE_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-BENTYPE sy-vline 
WA_ICLITEMEXT_DI_STR-ITEMTYPE sy-vline 
WA_ICLITEMEXT_DI_STR-COVTYPE_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-EVALBASE sy-vline 
WA_ICLITEMEXT_DI_STR-PERDAY sy-vline 
WA_ICLITEMEXT_DI_STR-EVAMOUNT sy-vline 
WA_ICLITEMEXT_DI_STR-EVCURR sy-vline 
WA_ICLITEMEXT_DI_STR-EVAMTPERUNIT sy-vline 
WA_ICLITEMEXT_DI_STR-EVQUANTITY sy-vline 
WA_ICLITEMEXT_DI_STR-EVQUANUNIT sy-vline 
WA_ICLITEMEXT_DI_STR-TAXCODE_INV sy-vline 
WA_ICLITEMEXT_DI_STR-ISTAT sy-vline 
WA_ICLITEMEXT_DI_STR-DAILY sy-vline 
WA_ICLITEMEXT_DI_STR-WEEKLY sy-vline 
WA_ICLITEMEXT_DI_STR-MONTHLY sy-vline 
WA_ICLITEMEXT_DI_STR-REJREASON sy-vline 
WA_ICLITEMEXT_DI_STR-TOTAL sy-vline 
WA_ICLITEMEXT_DI_STR-VALIDFROM sy-vline 
WA_ICLITEMEXT_DI_STR-VALIDTO sy-vline 
WA_ICLITEMEXT_DI_STR-DISCOUNTPERCENT_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-ACV sy-vline 
WA_ICLITEMEXT_DI_STR-ACVPERCENT sy-vline 
WA_ICLITEMEXT_DI_STR-ITEMCAT sy-vline 
WA_ICLITEMEXT_DI_STR-EVALUATION sy-vline 
WA_ICLITEMEXT_DI_STR-ITEM_REF sy-vline 
WA_ICLITEMEXT_DI_STR-MATGROUP sy-vline 
WA_ICLITEMEXT_DI_STR-PRICE_UNIT sy-vline 
WA_ICLITEMEXT_DI_STR-VENDOR_CATALOG sy-vline 
WA_ICLITEMEXT_DI_STR-VENDORMAT sy-vline 
WA_ICLITEMEXT_DI_STR-MANUFACTCODE sy-vline 
WA_ICLITEMEXT_DI_STR-MANUFACTMAT sy-vline 
WA_ICLITEMEXT_DI_STR-SERVICE sy-vline 
WA_ICLITEMEXT_DI_STR-XGENEROS sy-vline 
WA_ICLITEMEXT_DI_STR-ITEMUSE sy-vline 
WA_ICLITEMEXT_DI_STR-XDISCOUNTUSED sy-vline 
WA_ICLITEMEXT_DI_STR-XDISCOUNTPERCENT sy-vline 
WA_ICLITEMEXT_DI_STR-CUST_FIELD1 sy-vline 
WA_ICLITEMEXT_DI_STR-CUST_FIELD2 sy-vline 
WA_ICLITEMEXT_DI_STR-CUST_FIELD3 sy-vline 
WA_ICLITEMEXT_DI_STR-CUST_FIELD4 sy-vline 
WA_ICLITEMEXT_DI_STR-CUST_FIELD5 sy-vline 
WA_ICLITEMEXT_DI_STR-SERVCAT sy-vline 
WA_ICLITEMEXT_DI_STR-SC_VARIANT sy-vline 
WA_ICLITEMEXT_DI_STR-SCPOSID_EXT sy-vline 
WA_ICLITEMEXT_DI_STR-SCPOSID_INT sy-vline 
WA_ICLITEMEXT_DI_STR-SCPOS_NEGATIVE_VALPERUNIT sy-vline 
WA_ICLITEMEXT_DI_STR-DNUMBER sy-vline 
WA_ICLITEMEXT_DI_STR-RCOVTYPE sy-vline 
WA_ICLITEMEXT_DI_STR-XWAITPERIOD sy-vline 
WA_ICLITEMEXT_DI_STR-DAMAGEDOBJ_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-XDISC_2B_APPLIED sy-vline 
WA_ICLITEMEXT_DI_STR-EVDATE sy-vline 
WA_ICLITEMEXT_DI_STR-STARTDATE sy-vline 
WA_ICLITEMEXT_DI_STR-ENDDATE_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-FACTOR sy-vline 
WA_ICLITEMEXT_DI_STR-DESCRIPTION sy-vline 
WA_ICLITEMEXT_DI_STR-REFNO sy-vline 
WA_ICLITEMEXT_DI_STR-PDREF sy-vline 
WA_ICLITEMEXT_DI_STR-PDPOS sy-vline 
WA_ICLITEMEXT_DI_STR-ADDITIONAL_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-ADDIT_ITEM_SUM sy-vline 
WA_ICLITEMEXT_DI_STR-GROSS_NET sy-vline 
WA_ICLITEMEXT_DI_STR-REMUN_TYPE sy-vline 
WA_ICLITEMEXT_DI_STR-COVERAGE_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-PERFORM_CALCULATION sy-vline 
WA_ICLITEMEXT_DI_STR-XLIABCLMD sy-vline 
WA_ICLITEMEXT_DI_STR-LIABRATE_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-CLMDAMOUNT_ITEM sy-vline 
WA_ICLITEMEXT_DI_STR-ITEM_GUID sy-vline      INTO ld_text SEPARATED BY SPACE.

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