ABAP Select data from SAP table ICL_REPORT_TOGGLES_ACT 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_REPORT_TOGGLES_ACT 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_REPORT_TOGGLES_ACT. 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_REPORT_TOGGLES_ACT 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_REPORT_TOGGLES_ACT TYPE STANDARD TABLE OF ICL_REPORT_TOGGLES_ACT,
      WA_ICL_REPORT_TOGGLES_ACT TYPE ICL_REPORT_TOGGLES_ACT,
      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_REPORT_TOGGLES_ACT> TYPE ICL_REPORT_TOGGLES_ACT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICL_REPORT_TOGGLES_ACT
*  INTO TABLE @DATA(IT_ICL_REPORT_TOGGLES_ACT2).
*--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_REPORT_TOGGLES_ACT INDEX 1 INTO DATA(WA_ICL_REPORT_TOGGLES_ACT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICL_REPORT_TOGGLES_ACT>-P10_CLOSED = 1.
<ICL_REPORT_TOGGLES_ACT>-P10 = 1.
<ICL_REPORT_TOGGLES_ACT>-P10_ACT = 1.
<ICL_REPORT_TOGGLES_ACT>-P20_CLOSED = 1.
<ICL_REPORT_TOGGLES_ACT>-P20 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICL_REPORT_TOGGLES_ACT-P20_ACT, sy-vline,
  WA_ICL_REPORT_TOGGLES_ACT-P30_CLOSED, sy-vline,
  WA_ICL_REPORT_TOGGLES_ACT-P30, sy-vline,
  WA_ICL_REPORT_TOGGLES_ACT-P30_ACT, sy-vline,
  WA_ICL_REPORT_TOGGLES_ACT-P40_CLOSED, sy-vline,
  WA_ICL_REPORT_TOGGLES_ACT-P40, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICL_REPORT_TOGGLES_ACT 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_REPORT_TOGGLES_ACT 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_REPORT_TOGGLES_ACT INTO WA_ICL_REPORT_TOGGLES_ACT.


*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.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_ICL_REPORT_TOGGLES_ACT_STR, 
P10_CLOSED TYPE STRING,
P10 TYPE STRING,
P10_ACT TYPE STRING,
P20_CLOSED TYPE STRING,
P20 TYPE STRING,
P20_ACT TYPE STRING,
P30_CLOSED TYPE STRING,
P30 TYPE STRING,
P30_ACT TYPE STRING,
P40_CLOSED TYPE STRING,
P40 TYPE STRING,
P40_ACT TYPE STRING,
P50_CLOSED TYPE STRING,
P50 TYPE STRING,
P50_ACT TYPE STRING,
P60_CLOSED TYPE STRING,
P60 TYPE STRING,
P60_ACT TYPE STRING,
P70_CLOSED TYPE STRING,
P70 TYPE STRING,
P70_ACT TYPE STRING,
P80_CLOSED TYPE STRING,
P80 TYPE STRING,
P80_ACT TYPE STRING,
P90_CLOSED TYPE STRING,
P90 TYPE STRING,
P90_ACT TYPE STRING,
P00_CLOSED TYPE STRING,
P00 TYPE STRING,
P00_ACT TYPE STRING,
P91_CLOSED TYPE STRING,
P91 TYPE STRING,
P91_ACT TYPE STRING,
P92_CLOSED TYPE STRING,
P92 TYPE STRING,
P92_ACT TYPE STRING,
P93_CLOSED TYPE STRING,
P93 TYPE STRING,
P93_ACT TYPE STRING,
P94_CLOSED TYPE STRING,
P94 TYPE STRING,
P94_ACT TYPE STRING,
P95_CLOSED TYPE STRING,
P95 TYPE STRING,
P95_ACT TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICL_REPORT_TOGGLES_ACT_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_REPORT_TOGGLES_ACT_STR-P10_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P10 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P10_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P20_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P20 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P20_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P30_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P30 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P30_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P40_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P40 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P40_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P50_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P50 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P50_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P60_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P60 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P60_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P70_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P70 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P70_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P80_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P80 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P80_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P90_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P90 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P90_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P00_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P00 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P00_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P91_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P91 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P91_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P92_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P92 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P92_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P93_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P93 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P93_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P94_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P94 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P94_ACT sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P95_CLOSED sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P95 sy-vline 
WA_ICL_REPORT_TOGGLES_ACT_STR-P95_ACT sy-vline      INTO ld_text SEPARATED BY SPACE.

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