ABAP Select data from SAP table WORKING_SET_INT_CRM 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 WORKING_SET_INT_CRM 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 WORKING_SET_INT_CRM. 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 WORKING_SET_INT_CRM 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_WORKING_SET_INT_CRM TYPE STANDARD TABLE OF WORKING_SET_INT_CRM,
      WA_WORKING_SET_INT_CRM TYPE WORKING_SET_INT_CRM,
      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: <WORKING_SET_INT_CRM> TYPE WORKING_SET_INT_CRM.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM WORKING_SET_INT_CRM
*  INTO TABLE @DATA(IT_WORKING_SET_INT_CRM2).
*--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_WORKING_SET_INT_CRM INDEX 1 INTO DATA(WA_WORKING_SET_INT_CRM2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<WORKING_SET_INT_CRM>-KAPPL = 1.
<WORKING_SET_INT_CRM>-KVEWE = 1.
<WORKING_SET_INT_CRM>-KOTABNR = 1.
<WORKING_SET_INT_CRM>-VARNUMH = 1.
<WORKING_SET_INT_CRM>-KSCHL = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_WORKING_SET_INT_CRM-OBJECT_ID, sy-vline,
  WA_WORKING_SET_INT_CRM-TIMESTAMP_TO, sy-vline,
  WA_WORKING_SET_INT_CRM-RELEASE_STATUS, sy-vline,
  WA_WORKING_SET_INT_CRM-TIMESTAMP_FROM, sy-vline,
  WA_WORKING_SET_INT_CRM-KSCHL_SUPP, sy-vline,
  WA_WORKING_SET_INT_CRM-COND_GROUP_ID, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_WORKING_SET_INT_CRM 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_WORKING_SET_INT_CRM 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_WORKING_SET_INT_CRM INTO WA_WORKING_SET_INT_CRM.


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

*Conversion exit PRID1, internal->external for field PRODUCT_ID
CALL FUNCTION 'CONVERSION_EXIT_PRID1_OUTPUT'
  EXPORTING
    input =                      WA_WORKING_SET_INT_CRM-PRODUCT_ID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WORKING_SET_INT_CRM-PRODUCT_ID.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit CUNIT, internal->external for field MEINS
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_WORKING_SET_INT_CRM-MEINS
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_WORKING_SET_INT_CRM-MEINS.
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_WORKING_SET_INT_CRM_STR, 
KAPPL TYPE STRING,
KVEWE TYPE STRING,
KOTABNR TYPE STRING,
VARNUMH TYPE STRING,
KSCHL TYPE STRING,
OBJECT_ID TYPE STRING,
TIMESTAMP_TO TYPE STRING,
RELEASE_STATUS TYPE STRING,
TIMESTAMP_FROM TYPE STRING,
KSCHL_SUPP TYPE STRING,
COND_GROUP_ID TYPE STRING,
MAINT_STATUS TYPE STRING,
CREATED_BY TYPE STRING,
CREATED_ON TYPE STRING,
KOPOS TYPE STRING,
SUPP_EXIST TYPE STRING,
SCALE_DIM TYPE STRING,
STFKZ TYPE STRING,
KZBZG TYPE STRING,
PRODUCT_TYPE TYPE STRING,
LOGSYS TYPE STRING,
PRODUCT_ID TYPE STRING,
PARTNER_GUID TYPE STRING,
PARTNER TYPE STRING,
HIER_NODE_GUID TYPE STRING,
HIER_NODE_SEARCH_TERM TYPE STRING,
KBETR TYPE STRING,
KPEIN TYPE STRING,
KMEIN TYPE STRING,
KONWA TYPE STRING,
KRECH TYPE STRING,
KUMZA TYPE STRING,
KUMNE TYPE STRING,
EXPNT TYPE STRING,
MWSK1 TYPE STRING,
MWSK2 TYPE STRING,
KONMS TYPE STRING,
KONWS TYPE STRING,
KSTBM TYPE STRING,
MEINS TYPE STRING,
/SAPCND/PRDEF TYPE STRING,
/SAPCND/PRB__LIN TYPE STRING,
/SAPCND/PRC__LIN TYPE STRING,
/SAPCND/PRD__LIN TYPE STRING,
/SAPCND/PRE__LIN TYPE STRING,
/SAPCND/PRF__LIN TYPE STRING,
/SAPCND/PRL__LIN TYPE STRING,
/SAPCND/PRM__LIN TYPE STRING,
/SAPCND/PRN__LIN TYPE STRING,
/SAPCND/PRO__LIN TYPE STRING,
/SAPCND/PRP__LIN TYPE STRING,
/SAPCND/PRR__LIN TYPE STRING,
/SAPCND/PRS__LIN TYPE STRING,
/SAPCND/PRALEV01 TYPE STRING,
/SAPCND/PRDIM TYPE STRING,
/SAPCND/PREVL TYPE STRING,END OF T_EKKO_STR.
DATA: WA_WORKING_SET_INT_CRM_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_WORKING_SET_INT_CRM_STR-KAPPL sy-vline 
WA_WORKING_SET_INT_CRM_STR-KVEWE sy-vline 
WA_WORKING_SET_INT_CRM_STR-KOTABNR sy-vline 
WA_WORKING_SET_INT_CRM_STR-VARNUMH sy-vline 
WA_WORKING_SET_INT_CRM_STR-KSCHL sy-vline 
WA_WORKING_SET_INT_CRM_STR-OBJECT_ID sy-vline 
WA_WORKING_SET_INT_CRM_STR-TIMESTAMP_TO sy-vline 
WA_WORKING_SET_INT_CRM_STR-RELEASE_STATUS sy-vline 
WA_WORKING_SET_INT_CRM_STR-TIMESTAMP_FROM sy-vline 
WA_WORKING_SET_INT_CRM_STR-KSCHL_SUPP sy-vline 
WA_WORKING_SET_INT_CRM_STR-COND_GROUP_ID sy-vline 
WA_WORKING_SET_INT_CRM_STR-MAINT_STATUS sy-vline 
WA_WORKING_SET_INT_CRM_STR-CREATED_BY sy-vline 
WA_WORKING_SET_INT_CRM_STR-CREATED_ON sy-vline 
WA_WORKING_SET_INT_CRM_STR-KOPOS sy-vline 
WA_WORKING_SET_INT_CRM_STR-SUPP_EXIST sy-vline 
WA_WORKING_SET_INT_CRM_STR-SCALE_DIM sy-vline 
WA_WORKING_SET_INT_CRM_STR-STFKZ sy-vline 
WA_WORKING_SET_INT_CRM_STR-KZBZG sy-vline 
WA_WORKING_SET_INT_CRM_STR-PRODUCT_TYPE sy-vline 
WA_WORKING_SET_INT_CRM_STR-LOGSYS sy-vline 
WA_WORKING_SET_INT_CRM_STR-PRODUCT_ID sy-vline 
WA_WORKING_SET_INT_CRM_STR-PARTNER_GUID sy-vline 
WA_WORKING_SET_INT_CRM_STR-PARTNER sy-vline 
WA_WORKING_SET_INT_CRM_STR-HIER_NODE_GUID sy-vline 
WA_WORKING_SET_INT_CRM_STR-HIER_NODE_SEARCH_TERM sy-vline 
WA_WORKING_SET_INT_CRM_STR-KBETR sy-vline 
WA_WORKING_SET_INT_CRM_STR-KPEIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-KMEIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-KONWA sy-vline 
WA_WORKING_SET_INT_CRM_STR-KRECH sy-vline 
WA_WORKING_SET_INT_CRM_STR-KUMZA sy-vline 
WA_WORKING_SET_INT_CRM_STR-KUMNE sy-vline 
WA_WORKING_SET_INT_CRM_STR-EXPNT sy-vline 
WA_WORKING_SET_INT_CRM_STR-MWSK1 sy-vline 
WA_WORKING_SET_INT_CRM_STR-MWSK2 sy-vline 
WA_WORKING_SET_INT_CRM_STR-KONMS sy-vline 
WA_WORKING_SET_INT_CRM_STR-KONWS sy-vline 
WA_WORKING_SET_INT_CRM_STR-KSTBM sy-vline 
WA_WORKING_SET_INT_CRM_STR-MEINS sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRDEF sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRB__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRC__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRD__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRE__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRF__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRL__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRM__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRN__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRO__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRP__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRR__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRS__LIN sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRALEV01 sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PRDIM sy-vline 
WA_WORKING_SET_INT_CRM_STR-/SAPCND/PREVL sy-vline      INTO ld_text SEPARATED BY SPACE.

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