ABAP Select data from SAP table ICL_ACTUAL 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 ICL_ACTUAL 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 ICL_ACTUAL. 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 ICL_ACTUAL 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_ICL_ACTUAL TYPE STANDARD TABLE OF ICL_ACTUAL,
      WA_ICL_ACTUAL TYPE ICL_ACTUAL,
      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: <ICL_ACTUAL> TYPE ICL_ACTUAL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICL_ACTUAL
*  INTO TABLE @DATA(IT_ICL_ACTUAL2).
*--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_ICL_ACTUAL INDEX 1 INTO DATA(WA_ICL_ACTUAL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICL_ACTUAL>-ACTIVE = 1.
<ICL_ACTUAL>-CLAIM = 1.
<ICL_ACTUAL>-CLTYPE = 1.
<ICL_ACTUAL>-SUBCLAIM = 1.
<ICL_ACTUAL>-SUBCLTYPE = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICL_ACTUAL-COVERAGE, sy-vline,
  WA_ICL_ACTUAL-COVTYPE, sy-vline,
  WA_ICL_ACTUAL-BENTYPE, sy-vline,
  WA_ICL_ACTUAL-ITEM, sy-vline,
  WA_ICL_ACTUAL-SUBOBJCAT, sy-vline,
  WA_ICL_ACTUAL-SUBOBJECT, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICL_ACTUAL 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_ICL_ACTUAL 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_ICL_ACTUAL INTO WA_ICL_ACTUAL.


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

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

*Conversion exit TSTAM, internal->external for field TIMESTAMP
CALL FUNCTION 'CONVERSION_EXIT_TSTAM_OUTPUT'
  EXPORTING
    input =                      WA_ICL_ACTUAL-TIMESTAMP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_ACTUAL-TIMESTAMP.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit CUNIT, internal->external for field QUANUNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_ICL_ACTUAL-QUANUNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_ACTUAL-QUANUNIT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit DIAID, internal->external for field DIAGID
CALL FUNCTION 'CONVERSION_EXIT_DIAID_OUTPUT'
  EXPORTING
    input =                      WA_ICL_ACTUAL-DIAGID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICL_ACTUAL-DIAGID.
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_ICL_ACTUAL_STR, 
ACTIVE TYPE STRING,
CLAIM TYPE STRING,
CLTYPE TYPE STRING,
SUBCLAIM TYPE STRING,
SUBCLTYPE TYPE STRING,
COVERAGE TYPE STRING,
COVTYPE TYPE STRING,
BENTYPE TYPE STRING,
ITEM TYPE STRING,
SUBOBJCAT TYPE STRING,
SUBOBJECT TYPE STRING,
REF_OBJCAT TYPE STRING,
REF_OBJECT TYPE STRING,
ROLE TYPE STRING,
ROLEN TYPE STRING,
DSTSUBCLAIM TYPE STRING,
DSTITEM TYPE STRING,
PAYMENT TYPE STRING,
DAMAGEDOBJ TYPE STRING,
XMULTDOBJ TYPE STRING,
XDOBJLIAB TYPE STRING,
INSUREDOBJ TYPE STRING,
CMC_RULE TYPE STRING,
TIMESTAMP TYPE STRING,
VALIDFROM TYPE STRING,
VALIDTO TYPE STRING,
DATE TYPE STRING,
TIME TYPE STRING,
DUEDATE1 TYPE STRING,
DUEDATE2 TYPE STRING,
DUEDATE3 TYPE STRING,
EVENT TYPE STRING,
ACTION TYPE STRING,
BPARTNER TYPE STRING,
BPARTNER_OLD TYPE STRING,
SFCSTATUS TYPE STRING,
AR_OBJECT TYPE STRING,
ARCHIV_ID TYPE STRING,
ARC_DOC_ID TYPE STRING,
ACTIVITY TYPE STRING,
ACT_EVENT TYPE STRING,
REFERRAL TYPE STRING,
RESTYPE TYPE STRING,
QUESTION TYPE STRING,
AVARIANT TYPE STRING,
ANSWER TYPE STRING,
DSTSUBCLDESCRIP TYPE STRING,
DOCNAME TYPE STRING,
SENDTYPE TYPE STRING,
XPRINTED TYPE STRING,
AMOUNT TYPE STRING,
CURRENCY TYPE STRING,
QUANTITY TYPE STRING,
QUANUNIT TYPE STRING,
PROCUREMENT TYPE STRING,
PDOCCAT TYPE STRING,
CATAID TYPE STRING,
DIAGID TYPE STRING,
AMTDONE TYPE STRING,
ACTNUMBER TYPE STRING,
BDT_VIEW TYPE STRING,
AUTHGRP TYPE STRING,
SUBCL_ASSIGNM TYPE STRING,
LITHGUID TYPE STRING,
LITITEMGUID TYPE STRING,
NEGID TYPE STRING,
NEGITID TYPE STRING,
PRIVLG_ID TYPE STRING,
RBPGUID TYPE STRING,
RBPOBJID TYPE STRING,
RBPOTYPE TYPE STRING,
REGREP_REPORT_TYPE TYPE STRING,
REGREP_SUBCLAIM_TYPE TYPE STRING,
PAYMENTITEM TYPE STRING,
PROCESS TYPE STRING,
GROSS_NET_PAYMENT TYPE STRING,
HCM_PAYMENT_STATE TYPE STRING,
CONTEXT TYPE STRING,
SERVCAT_POS_GUID TYPE STRING,
SERVCAT_PRICE_CS TYPE STRING,
LINEOFBUS TYPE STRING,
REJREAS TYPE STRING,
XDINP TYPE STRING,
IMP_TRIGGER TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICL_ACTUAL_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_ICL_ACTUAL_STR-ACTIVE sy-vline 
WA_ICL_ACTUAL_STR-CLAIM sy-vline 
WA_ICL_ACTUAL_STR-CLTYPE sy-vline 
WA_ICL_ACTUAL_STR-SUBCLAIM sy-vline 
WA_ICL_ACTUAL_STR-SUBCLTYPE sy-vline 
WA_ICL_ACTUAL_STR-COVERAGE sy-vline 
WA_ICL_ACTUAL_STR-COVTYPE sy-vline 
WA_ICL_ACTUAL_STR-BENTYPE sy-vline 
WA_ICL_ACTUAL_STR-ITEM sy-vline 
WA_ICL_ACTUAL_STR-SUBOBJCAT sy-vline 
WA_ICL_ACTUAL_STR-SUBOBJECT sy-vline 
WA_ICL_ACTUAL_STR-REF_OBJCAT sy-vline 
WA_ICL_ACTUAL_STR-REF_OBJECT sy-vline 
WA_ICL_ACTUAL_STR-ROLE sy-vline 
WA_ICL_ACTUAL_STR-ROLEN sy-vline 
WA_ICL_ACTUAL_STR-DSTSUBCLAIM sy-vline 
WA_ICL_ACTUAL_STR-DSTITEM sy-vline 
WA_ICL_ACTUAL_STR-PAYMENT sy-vline 
WA_ICL_ACTUAL_STR-DAMAGEDOBJ sy-vline 
WA_ICL_ACTUAL_STR-XMULTDOBJ sy-vline 
WA_ICL_ACTUAL_STR-XDOBJLIAB sy-vline 
WA_ICL_ACTUAL_STR-INSUREDOBJ sy-vline 
WA_ICL_ACTUAL_STR-CMC_RULE sy-vline 
WA_ICL_ACTUAL_STR-TIMESTAMP sy-vline 
WA_ICL_ACTUAL_STR-VALIDFROM sy-vline 
WA_ICL_ACTUAL_STR-VALIDTO sy-vline 
WA_ICL_ACTUAL_STR-DATE sy-vline 
WA_ICL_ACTUAL_STR-TIME sy-vline 
WA_ICL_ACTUAL_STR-DUEDATE1 sy-vline 
WA_ICL_ACTUAL_STR-DUEDATE2 sy-vline 
WA_ICL_ACTUAL_STR-DUEDATE3 sy-vline 
WA_ICL_ACTUAL_STR-EVENT sy-vline 
WA_ICL_ACTUAL_STR-ACTION sy-vline 
WA_ICL_ACTUAL_STR-BPARTNER sy-vline 
WA_ICL_ACTUAL_STR-BPARTNER_OLD sy-vline 
WA_ICL_ACTUAL_STR-SFCSTATUS sy-vline 
WA_ICL_ACTUAL_STR-AR_OBJECT sy-vline 
WA_ICL_ACTUAL_STR-ARCHIV_ID sy-vline 
WA_ICL_ACTUAL_STR-ARC_DOC_ID sy-vline 
WA_ICL_ACTUAL_STR-ACTIVITY sy-vline 
WA_ICL_ACTUAL_STR-ACT_EVENT sy-vline 
WA_ICL_ACTUAL_STR-REFERRAL sy-vline 
WA_ICL_ACTUAL_STR-RESTYPE sy-vline 
WA_ICL_ACTUAL_STR-QUESTION sy-vline 
WA_ICL_ACTUAL_STR-AVARIANT sy-vline 
WA_ICL_ACTUAL_STR-ANSWER sy-vline 
WA_ICL_ACTUAL_STR-DSTSUBCLDESCRIP sy-vline 
WA_ICL_ACTUAL_STR-DOCNAME sy-vline 
WA_ICL_ACTUAL_STR-SENDTYPE sy-vline 
WA_ICL_ACTUAL_STR-XPRINTED sy-vline 
WA_ICL_ACTUAL_STR-AMOUNT sy-vline 
WA_ICL_ACTUAL_STR-CURRENCY sy-vline 
WA_ICL_ACTUAL_STR-QUANTITY sy-vline 
WA_ICL_ACTUAL_STR-QUANUNIT sy-vline 
WA_ICL_ACTUAL_STR-PROCUREMENT sy-vline 
WA_ICL_ACTUAL_STR-PDOCCAT sy-vline 
WA_ICL_ACTUAL_STR-CATAID sy-vline 
WA_ICL_ACTUAL_STR-DIAGID sy-vline 
WA_ICL_ACTUAL_STR-AMTDONE sy-vline 
WA_ICL_ACTUAL_STR-ACTNUMBER sy-vline 
WA_ICL_ACTUAL_STR-BDT_VIEW sy-vline 
WA_ICL_ACTUAL_STR-AUTHGRP sy-vline 
WA_ICL_ACTUAL_STR-SUBCL_ASSIGNM sy-vline 
WA_ICL_ACTUAL_STR-LITHGUID sy-vline 
WA_ICL_ACTUAL_STR-LITITEMGUID sy-vline 
WA_ICL_ACTUAL_STR-NEGID sy-vline 
WA_ICL_ACTUAL_STR-NEGITID sy-vline 
WA_ICL_ACTUAL_STR-PRIVLG_ID sy-vline 
WA_ICL_ACTUAL_STR-RBPGUID sy-vline 
WA_ICL_ACTUAL_STR-RBPOBJID sy-vline 
WA_ICL_ACTUAL_STR-RBPOTYPE sy-vline 
WA_ICL_ACTUAL_STR-REGREP_REPORT_TYPE sy-vline 
WA_ICL_ACTUAL_STR-REGREP_SUBCLAIM_TYPE sy-vline 
WA_ICL_ACTUAL_STR-PAYMENTITEM sy-vline 
WA_ICL_ACTUAL_STR-PROCESS sy-vline 
WA_ICL_ACTUAL_STR-GROSS_NET_PAYMENT sy-vline 
WA_ICL_ACTUAL_STR-HCM_PAYMENT_STATE sy-vline 
WA_ICL_ACTUAL_STR-CONTEXT sy-vline 
WA_ICL_ACTUAL_STR-SERVCAT_POS_GUID sy-vline 
WA_ICL_ACTUAL_STR-SERVCAT_PRICE_CS sy-vline 
WA_ICL_ACTUAL_STR-LINEOFBUS sy-vline 
WA_ICL_ACTUAL_STR-REJREAS sy-vline 
WA_ICL_ACTUAL_STR-XDINP sy-vline 
WA_ICL_ACTUAL_STR-IMP_TRIGGER sy-vline      INTO ld_text SEPARATED BY SPACE.

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