ABAP Select data from SAP table CRMT_BW_ACTIVITY_I 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 CRMT_BW_ACTIVITY_I 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 CRMT_BW_ACTIVITY_I. 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 CRMT_BW_ACTIVITY_I 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_CRMT_BW_ACTIVITY_I TYPE STANDARD TABLE OF CRMT_BW_ACTIVITY_I,
      WA_CRMT_BW_ACTIVITY_I TYPE CRMT_BW_ACTIVITY_I,
      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: <CRMT_BW_ACTIVITY_I> TYPE CRMT_BW_ACTIVITY_I.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CRMT_BW_ACTIVITY_I
*  INTO TABLE @DATA(IT_CRMT_BW_ACTIVITY_I2).
*--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_CRMT_BW_ACTIVITY_I INDEX 1 INTO DATA(WA_CRMT_BW_ACTIVITY_I2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CRMT_BW_ACTIVITY_I>-JOURNAL_GUID = 1.
<CRMT_BW_ACTIVITY_I>-DISCUSS = 1.
<CRMT_BW_ACTIVITY_I>-PRPRIO = 1.
<CRMT_BW_ACTIVITY_I>-STATUS = 1.
<CRMT_BW_ACTIVITY_I>-PROD_HIERARCHY = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CRMT_BW_ACTIVITY_I-LAENG, sy-vline,
  WA_CRMT_BW_ACTIVITY_I-BREIT, sy-vline,
  WA_CRMT_BW_ACTIVITY_I-HOEHE, sy-vline,
  WA_CRMT_BW_ACTIVITY_I-MEABM, sy-vline,
  WA_CRMT_BW_ACTIVITY_I-PRAVA, sy-vline,
  WA_CRMT_BW_ACTIVITY_I-PRAVB, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CRMT_BW_ACTIVITY_I 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_CRMT_BW_ACTIVITY_I 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_CRMT_BW_ACTIVITY_I INTO WA_CRMT_BW_ACTIVITY_I.


*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 CUNIT, internal->external for field MEABM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_CRMT_BW_ACTIVITY_I-MEABM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CRMT_BW_ACTIVITY_I-MEABM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field FACUNIT
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_CRMT_BW_ACTIVITY_I-FACUNIT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CRMT_BW_ACTIVITY_I-FACUNIT.
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_CRMT_BW_ACTIVITY_I_STR, 
JOURNAL_GUID TYPE STRING,
DISCUSS TYPE STRING,
PRPRIO TYPE STRING,
STATUS TYPE STRING,
PROD_HIERARCHY TYPE STRING,
LAENG TYPE STRING,
BREIT TYPE STRING,
HOEHE TYPE STRING,
MEABM TYPE STRING,
PRAVA TYPE STRING,
PRAVB TYPE STRING,
SUBJECTA TYPE STRING,
SUBJECTB TYPE STRING,
KV_RESULT TYPE STRING,
RESREAS TYPE STRING,
KV_DEKO TYPE STRING,
DEKOTP TYPE STRING,
KV_STOCK TYPE STRING,
POSLOC TYPE STRING,
KV_ZPANZ TYPE STRING,
KV_ZPAVA TYPE STRING,
NRMSHF TYPE STRING,
NRPSHF TYPE STRING,
POSVER TYPE STRING,
POSHOR TYPE STRING,
POSQLI TYPE STRING,
ECROPT TYPE STRING,
NROFFAC TYPE STRING,
FACLEN TYPE STRING,
FACWID TYPE STRING,
FACDEP TYPE STRING,
FACUNIT TYPE STRING,
SPRICE TYPE STRING,
OPRICE TYPE STRING,
APRICE TYPE STRING,
KVCURR1 TYPE STRING,
PHREFNR TYPE STRING,
STORNO TYPE STRING,
LBVAL TYPE STRING,
EDAY_LOW_PRICE TYPE STRING,
LISTING_FEE TYPE STRING,
PRP_RANK TYPE STRING,
KVCURR TYPE STRING,
PRAVA0 TYPE STRING,
PRAVA1 TYPE STRING,
PRAVA2 TYPE STRING,
PRAVA3 TYPE STRING,
PRAVA4 TYPE STRING,
PRAVB0 TYPE STRING,
PRAVB1 TYPE STRING,
PRAVB2 TYPE STRING,
PRAVB3 TYPE STRING,
PRAVB4 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CRMT_BW_ACTIVITY_I_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_CRMT_BW_ACTIVITY_I_STR-JOURNAL_GUID sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-DISCUSS sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRPRIO sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-STATUS sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PROD_HIERARCHY sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-LAENG sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-BREIT sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-HOEHE sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-MEABM sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVA sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVB sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-SUBJECTA sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-SUBJECTB sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KV_RESULT sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-RESREAS sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KV_DEKO sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-DEKOTP sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KV_STOCK sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-POSLOC sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KV_ZPANZ sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KV_ZPAVA sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-NRMSHF sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-NRPSHF sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-POSVER sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-POSHOR sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-POSQLI sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-ECROPT sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-NROFFAC sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-FACLEN sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-FACWID sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-FACDEP sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-FACUNIT sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-SPRICE sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-OPRICE sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-APRICE sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KVCURR1 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PHREFNR sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-STORNO sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-LBVAL sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-EDAY_LOW_PRICE sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-LISTING_FEE sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRP_RANK sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-KVCURR sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVA0 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVA1 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVA2 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVA3 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVA4 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVB0 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVB1 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVB2 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVB3 sy-vline 
WA_CRMT_BW_ACTIVITY_I_STR-PRAVB4 sy-vline      INTO ld_text SEPARATED BY SPACE.

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