ABAP Select data from SAP table ICNSNT 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 ICNSNT 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 ICNSNT. 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 ICNSNT 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_ICNSNT TYPE STANDARD TABLE OF ICNSNT,
      WA_ICNSNT TYPE ICNSNT,
      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: <ICNSNT> TYPE ICNSNT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM ICNSNT
*  INTO TABLE @DATA(IT_ICNSNT2).
*--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_ICNSNT INDEX 1 INTO DATA(WA_ICNSNT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<ICNSNT>-MANDT = 1.
<ICNSNT>-CONSENTUUID = 1.
<ICNSNT>-CONSENTID = 1.
<ICNSNT>-CONSENTDATASUBJECTTYPE = 1.
<ICNSNT>-CONSENTDATASUBJECTID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_ICNSNT-CONSENTENDDATETIME, sy-vline,
  WA_ICNSNT-CONSENTENDOFVALIDITYDATETIME, sy-vline,
  WA_ICNSNT-CONSENTSTATUS, sy-vline,
  WA_ICNSNT-CONSENTPURPOSENAME, sy-vline,
  WA_ICNSNT-CONSENTGRANTEDSTARTDATETIME, sy-vline,
  WA_ICNSNT-CONSENTGRANTEDBYUSERDESC, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_ICNSNT 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_ICNSNT 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_ICNSNT INTO WA_ICNSNT.


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

*Conversion exit ISOLA, internal->external for field CONSENTLANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_ICNSNT-CONSENTLANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_ICNSNT-CONSENTLANGUAGE.
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_ICNSNT_STR, 
MANDT TYPE STRING,
CONSENTUUID TYPE STRING,
CONSENTID TYPE STRING,
CONSENTDATASUBJECTTYPE TYPE STRING,
CONSENTDATASUBJECTID TYPE STRING,
CONSENTENDDATETIME TYPE STRING,
CONSENTENDOFVALIDITYDATETIME TYPE STRING,
CONSENTSTATUS TYPE STRING,
CONSENTPURPOSENAME TYPE STRING,
CONSENTGRANTEDSTARTDATETIME TYPE STRING,
CONSENTGRANTEDBYUSERDESC TYPE STRING,
CONSENTDATASUBJECTDESCRIPTION TYPE STRING,
CONSENTAPPLICATIONUUID TYPE STRING,
CONSENTAPPLICATIONTEMPLATEID TYPE STRING,
CONSENTCONTROLLERUUID TYPE STRING,
CONSENTTEMPLATEUUID TYPE STRING,
CONSENTWITHDRAWALDATETIME TYPE STRING,
CONSENTWITHDRAWNBYUSERDESC TYPE STRING,
CONSENTTERMINATIONDATETIME TYPE STRING,
CONSENTTERMINATEDBYUSERDESC TYPE STRING,
CONSENTLIFECYCLESTATUS TYPE STRING,
CONSENTFORMNAME TYPE STRING,
CONSENTPURPOSEISSENSITIVE TYPE STRING,
CONSENTDATACONTROLLERDESC TYPE STRING,
CONSENTAPPLICATION TYPE STRING,
CONSENTJURISDICTION TYPE STRING,
CONSENTLANGUAGE TYPE STRING,
CONSENTTHIRDPARTYID TYPE STRING,
CONSENTTHIRDPARTYNAME TYPE STRING,
CONSENTFUNCTION TYPE STRING,
CONSENTTHIRDPARTYDESCRIPTION TYPE STRING,
CONSENTTHIRDPARTYISSENSITIVE TYPE STRING,
CONSENTSTARTDATETIME TYPE STRING,
CONSENTEXPIRATIONDATETIME TYPE STRING,
CONSENTIMPORTSOURCENAME TYPE STRING,
CONSENTIMPORTSOURCEUUID TYPE STRING,
CONSENTCREATIONDATETIME TYPE STRING,
CONSENTCHANGEDATETIME TYPE STRING,
CONSENTCREATEDBYUSERDESC TYPE STRING,
CONSENTORIGINCHANGEDATETIME TYPE STRING,
CONSENTPURPOSEDESCRIPTION TYPE STRING,
CONSENTFORMDESCRIPTION TYPE STRING,
CONSENTPRIVACYTEXTUUID TYPE STRING,
CONSENTPURPOSEUUID TYPE STRING,
CONSENTEXPLANATORYTEXTUUID TYPE STRING,
CONSENTPURPOSEEXPLTRYTEXTUUID TYPE STRING,
CONSENTQUESTIONTEXTUUID TYPE STRING,
CONSENTCONSEQUENCETEXTUUID TYPE STRING,
CONSENTMODEL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_ICNSNT_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_ICNSNT_STR-MANDT sy-vline 
WA_ICNSNT_STR-CONSENTUUID sy-vline 
WA_ICNSNT_STR-CONSENTID sy-vline 
WA_ICNSNT_STR-CONSENTDATASUBJECTTYPE sy-vline 
WA_ICNSNT_STR-CONSENTDATASUBJECTID sy-vline 
WA_ICNSNT_STR-CONSENTENDDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTENDOFVALIDITYDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTSTATUS sy-vline 
WA_ICNSNT_STR-CONSENTPURPOSENAME sy-vline 
WA_ICNSNT_STR-CONSENTGRANTEDSTARTDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTGRANTEDBYUSERDESC sy-vline 
WA_ICNSNT_STR-CONSENTDATASUBJECTDESCRIPTION sy-vline 
WA_ICNSNT_STR-CONSENTAPPLICATIONUUID sy-vline 
WA_ICNSNT_STR-CONSENTAPPLICATIONTEMPLATEID sy-vline 
WA_ICNSNT_STR-CONSENTCONTROLLERUUID sy-vline 
WA_ICNSNT_STR-CONSENTTEMPLATEUUID sy-vline 
WA_ICNSNT_STR-CONSENTWITHDRAWALDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTWITHDRAWNBYUSERDESC sy-vline 
WA_ICNSNT_STR-CONSENTTERMINATIONDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTTERMINATEDBYUSERDESC sy-vline 
WA_ICNSNT_STR-CONSENTLIFECYCLESTATUS sy-vline 
WA_ICNSNT_STR-CONSENTFORMNAME sy-vline 
WA_ICNSNT_STR-CONSENTPURPOSEISSENSITIVE sy-vline 
WA_ICNSNT_STR-CONSENTDATACONTROLLERDESC sy-vline 
WA_ICNSNT_STR-CONSENTAPPLICATION sy-vline 
WA_ICNSNT_STR-CONSENTJURISDICTION sy-vline 
WA_ICNSNT_STR-CONSENTLANGUAGE sy-vline 
WA_ICNSNT_STR-CONSENTTHIRDPARTYID sy-vline 
WA_ICNSNT_STR-CONSENTTHIRDPARTYNAME sy-vline 
WA_ICNSNT_STR-CONSENTFUNCTION sy-vline 
WA_ICNSNT_STR-CONSENTTHIRDPARTYDESCRIPTION sy-vline 
WA_ICNSNT_STR-CONSENTTHIRDPARTYISSENSITIVE sy-vline 
WA_ICNSNT_STR-CONSENTSTARTDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTEXPIRATIONDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTIMPORTSOURCENAME sy-vline 
WA_ICNSNT_STR-CONSENTIMPORTSOURCEUUID sy-vline 
WA_ICNSNT_STR-CONSENTCREATIONDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTCHANGEDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTCREATEDBYUSERDESC sy-vline 
WA_ICNSNT_STR-CONSENTORIGINCHANGEDATETIME sy-vline 
WA_ICNSNT_STR-CONSENTPURPOSEDESCRIPTION sy-vline 
WA_ICNSNT_STR-CONSENTFORMDESCRIPTION sy-vline 
WA_ICNSNT_STR-CONSENTPRIVACYTEXTUUID sy-vline 
WA_ICNSNT_STR-CONSENTPURPOSEUUID sy-vline 
WA_ICNSNT_STR-CONSENTEXPLANATORYTEXTUUID sy-vline 
WA_ICNSNT_STR-CONSENTPURPOSEEXPLTRYTEXTUUID sy-vline 
WA_ICNSNT_STR-CONSENTQUESTIONTEXTUUID sy-vline 
WA_ICNSNT_STR-CONSENTCONSEQUENCETEXTUUID sy-vline 
WA_ICNSNT_STR-CONSENTMODEL sy-vline      INTO ld_text SEPARATED BY SPACE.

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