ABAP Select data from SAP table CCNSNT 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 CCNSNT 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 CCNSNT. 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 CCNSNT 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_CCNSNT TYPE STANDARD TABLE OF CCNSNT,
      WA_CCNSNT TYPE CCNSNT,
      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: <CCNSNT> TYPE CCNSNT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CCNSNT
*  INTO TABLE @DATA(IT_CCNSNT2).
*--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_CCNSNT INDEX 1 INTO DATA(WA_CCNSNT2).


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

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

ENDLOOP.

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

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


*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_CCNSNT-CONSENTID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CCNSNT-CONSENTID.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ISOLA, internal->external for field CONSENTLANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_CCNSNT-CONSENTLANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CCNSNT-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_CCNSNT_STR, 
MANDT TYPE STRING,
CONSENTUUID TYPE STRING,
CONSENTID TYPE STRING,
CONSENTDATASUBJECTTYPE TYPE STRING,
CONSENTDATASUBJECTTYPETEXT TYPE STRING,
CONSENTDATASUBJECTID TYPE STRING,
CONSENTGRANTEDBYUSERDESC TYPE STRING,
CONSENTGRANTEDSTARTDATETIME TYPE STRING,
CONSENTSTATUS TYPE STRING,
CONSENTFORMNAME TYPE STRING,
CONSENTPURPOSENAME TYPE STRING,
CONSENTPURPOSEISSENSITIVE TYPE STRING,
CONSENTDATACONTROLLERDESC TYPE STRING,
CONSENTAPPLICATION TYPE STRING,
CONSENTJURISDICTION TYPE STRING,
CONSENTLANGUAGE TYPE STRING,
CONSENTTHIRDPARTYNAME TYPE STRING,
CONSENTFUNCTION TYPE STRING,
CONSENTTHIRDPARTYISSENSITIVE TYPE STRING,
CONSENTTHIRDPARTYDESCRIPTION TYPE STRING,
CONSENTSTARTDATETIME TYPE STRING,
CONSENTEXPIRATIONDATETIME TYPE STRING,
CONSENTENDOFVALIDITYDATETIME TYPE STRING,
CONSENTENDDATETIME TYPE STRING,
CONSENTIMPORTSOURCENAME TYPE STRING,
CONSENTCREATIONDATETIME TYPE STRING,
CONSENTAPPLICATIONTEMPLATEID TYPE STRING,
CONSENTORIGINCHANGEDATETIME TYPE STRING,
CONSENTCHANGEDATETIME TYPE STRING,
CONSENTPURPOSEDESCRIPTION TYPE STRING,
CONSENTPURPOSEEXPLANATORYTEXT TYPE STRING,
CONSENTTEXTTYPE TYPE STRING,
CONSENTFORMDESCRIPTION TYPE STRING,
CONSENTEXPLANATORYTEXT TYPE STRING,
CONSENTEXPLANATORYTEXTTYPE TYPE STRING,
CONSENTQUESTIONTEXT TYPE STRING,
CONSENTQUESTIONTEXTTYPE TYPE STRING,
CONSENTCONSEQUENCETEXT TYPE STRING,
CONSENTCONSEQUENCETEXTTYPE TYPE STRING,
CONSENTDATAPRIVACYTEXT TYPE STRING,
CONSENTDATAPRIVACYTYPE TYPE STRING,
CONSENTDATASUBJECTDESCRIPTION TYPE STRING,
CONSENTWITHDRAWNBYUSERDESC TYPE STRING,
CONSENTWITHDRAWALDATETIME TYPE STRING,
CONSENTTERMINATEDBYUSERDESC TYPE STRING,
CONSENTTERMINATIONDATETIME TYPE STRING,
CONSENTLIFECYCLESTATUS TYPE STRING,
CONSENTMODEL TYPE STRING,
CONSENTTHIRDPARTYID TYPE STRING,
CONSENTAPPLICATIONUUID TYPE STRING,
CONSENTPURPOSEUUID TYPE STRING,
CONSENTTEMPLATEUUID TYPE STRING,
CRITICALITY TYPE STRING,
GENERALSTATUS TYPE STRING,
CONSENTPRIVACYTEXTUUID TYPE STRING,
CONSENTEXPLANATORYTEXTUUID TYPE STRING,
CONSENTPURPOSEEXPLTRYTEXTUUID TYPE STRING,
CONSENTQUESTIONTEXTUUID TYPE STRING,
CONSENTCONSEQUENCETEXTUUID TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CCNSNT_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_CCNSNT_STR-MANDT sy-vline 
WA_CCNSNT_STR-CONSENTUUID sy-vline 
WA_CCNSNT_STR-CONSENTID sy-vline 
WA_CCNSNT_STR-CONSENTDATASUBJECTTYPE sy-vline 
WA_CCNSNT_STR-CONSENTDATASUBJECTTYPETEXT sy-vline 
WA_CCNSNT_STR-CONSENTDATASUBJECTID sy-vline 
WA_CCNSNT_STR-CONSENTGRANTEDBYUSERDESC sy-vline 
WA_CCNSNT_STR-CONSENTGRANTEDSTARTDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTSTATUS sy-vline 
WA_CCNSNT_STR-CONSENTFORMNAME sy-vline 
WA_CCNSNT_STR-CONSENTPURPOSENAME sy-vline 
WA_CCNSNT_STR-CONSENTPURPOSEISSENSITIVE sy-vline 
WA_CCNSNT_STR-CONSENTDATACONTROLLERDESC sy-vline 
WA_CCNSNT_STR-CONSENTAPPLICATION sy-vline 
WA_CCNSNT_STR-CONSENTJURISDICTION sy-vline 
WA_CCNSNT_STR-CONSENTLANGUAGE sy-vline 
WA_CCNSNT_STR-CONSENTTHIRDPARTYNAME sy-vline 
WA_CCNSNT_STR-CONSENTFUNCTION sy-vline 
WA_CCNSNT_STR-CONSENTTHIRDPARTYISSENSITIVE sy-vline 
WA_CCNSNT_STR-CONSENTTHIRDPARTYDESCRIPTION sy-vline 
WA_CCNSNT_STR-CONSENTSTARTDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTEXPIRATIONDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTENDOFVALIDITYDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTENDDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTIMPORTSOURCENAME sy-vline 
WA_CCNSNT_STR-CONSENTCREATIONDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTAPPLICATIONTEMPLATEID sy-vline 
WA_CCNSNT_STR-CONSENTORIGINCHANGEDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTCHANGEDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTPURPOSEDESCRIPTION sy-vline 
WA_CCNSNT_STR-CONSENTPURPOSEEXPLANATORYTEXT sy-vline 
WA_CCNSNT_STR-CONSENTTEXTTYPE sy-vline 
WA_CCNSNT_STR-CONSENTFORMDESCRIPTION sy-vline 
WA_CCNSNT_STR-CONSENTEXPLANATORYTEXT sy-vline 
WA_CCNSNT_STR-CONSENTEXPLANATORYTEXTTYPE sy-vline 
WA_CCNSNT_STR-CONSENTQUESTIONTEXT sy-vline 
WA_CCNSNT_STR-CONSENTQUESTIONTEXTTYPE sy-vline 
WA_CCNSNT_STR-CONSENTCONSEQUENCETEXT sy-vline 
WA_CCNSNT_STR-CONSENTCONSEQUENCETEXTTYPE sy-vline 
WA_CCNSNT_STR-CONSENTDATAPRIVACYTEXT sy-vline 
WA_CCNSNT_STR-CONSENTDATAPRIVACYTYPE sy-vline 
WA_CCNSNT_STR-CONSENTDATASUBJECTDESCRIPTION sy-vline 
WA_CCNSNT_STR-CONSENTWITHDRAWNBYUSERDESC sy-vline 
WA_CCNSNT_STR-CONSENTWITHDRAWALDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTTERMINATEDBYUSERDESC sy-vline 
WA_CCNSNT_STR-CONSENTTERMINATIONDATETIME sy-vline 
WA_CCNSNT_STR-CONSENTLIFECYCLESTATUS sy-vline 
WA_CCNSNT_STR-CONSENTMODEL sy-vline 
WA_CCNSNT_STR-CONSENTTHIRDPARTYID sy-vline 
WA_CCNSNT_STR-CONSENTAPPLICATIONUUID sy-vline 
WA_CCNSNT_STR-CONSENTPURPOSEUUID sy-vline 
WA_CCNSNT_STR-CONSENTTEMPLATEUUID sy-vline 
WA_CCNSNT_STR-CRITICALITY sy-vline 
WA_CCNSNT_STR-GENERALSTATUS sy-vline 
WA_CCNSNT_STR-CONSENTPRIVACYTEXTUUID sy-vline 
WA_CCNSNT_STR-CONSENTEXPLANATORYTEXTUUID sy-vline 
WA_CCNSNT_STR-CONSENTPURPOSEEXPLTRYTEXTUUID sy-vline 
WA_CCNSNT_STR-CONSENTQUESTIONTEXTUUID sy-vline 
WA_CCNSNT_STR-CONSENTCONSEQUENCETEXTUUID sy-vline      INTO ld_text SEPARATED BY SPACE.

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