ABAP Select data from SAP table LAE_CRM_ITEMS_MODX 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 LAE_CRM_ITEMS_MODX 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 LAE_CRM_ITEMS_MODX. 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 LAE_CRM_ITEMS_MODX 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_LAE_CRM_ITEMS_MODX TYPE STANDARD TABLE OF LAE_CRM_ITEMS_MODX,
      WA_LAE_CRM_ITEMS_MODX TYPE LAE_CRM_ITEMS_MODX,
      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: <LAE_CRM_ITEMS_MODX> TYPE LAE_CRM_ITEMS_MODX.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM LAE_CRM_ITEMS_MODX
*  INTO TABLE @DATA(IT_LAE_CRM_ITEMS_MODX2).
*--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_LAE_CRM_ITEMS_MODX INDEX 1 INTO DATA(WA_LAE_CRM_ITEMS_MODX2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<LAE_CRM_ITEMS_MODX>-MANDT = 1.
<LAE_CRM_ITEMS_MODX>-BUKRS = 1.
<LAE_CRM_ITEMS_MODX>-OBJID = 1.
<LAE_CRM_ITEMS_MODX>-SUBID = 1.
<LAE_CRM_ITEMS_MODX>-TMSTAMP = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_LAE_CRM_ITEMS_MODX-EVENT, sy-vline,
  WA_LAE_CRM_ITEMS_MODX-STATUS, sy-vline,
  WA_LAE_CRM_ITEMS_MODX-ITEMNO, sy-vline,
  WA_LAE_CRM_ITEMS_MODX-ITEMTXT, sy-vline,
  WA_LAE_CRM_ITEMS_MODX-CURRENCY, sy-vline,
  WA_LAE_CRM_ITEMS_MODX-EXCHG_RATE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_LAE_CRM_ITEMS_MODX 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_LAE_CRM_ITEMS_MODX 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_LAE_CRM_ITEMS_MODX INTO WA_LAE_CRM_ITEMS_MODX.


*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 EXCRT, internal->external for field EXCHG_RATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRT_OUTPUT'
  EXPORTING
    input =                      WA_LAE_CRM_ITEMS_MODX-EXCHG_RATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_LAE_CRM_ITEMS_MODX-EXCHG_RATE.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATN1, internal->external for field PRODUCT
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_LAE_CRM_ITEMS_MODX-PRODUCT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_LAE_CRM_ITEMS_MODX-PRODUCT.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit MATN1, internal->external for field FINPROD
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
  EXPORTING
    input =                      WA_LAE_CRM_ITEMS_MODX-FINPROD
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_LAE_CRM_ITEMS_MODX-FINPROD.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field OBJECTID_REF
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_LAE_CRM_ITEMS_MODX-OBJECTID_REF
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_LAE_CRM_ITEMS_MODX-OBJECTID_REF.
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_LAE_CRM_ITEMS_MODX_STR, 
MANDT TYPE STRING,
BUKRS TYPE STRING,
OBJID TYPE STRING,
SUBID TYPE STRING,
TMSTAMP TYPE STRING,
EVENT TYPE STRING,
STATUS TYPE STRING,
ITEMNO TYPE STRING,
ITEMTXT TYPE STRING,
CURRENCY TYPE STRING,
EXCHG_RATE TYPE STRING,
QUANTITY TYPE STRING,
UNIT TYPE STRING,
OBJID_REF TYPE STRING,
SUBID_REF TYPE STRING,
CONTSTARTDT TYPE STRING,
CONTENDDT TYPE STRING,
LEASTARTDT TYPE STRING,
LEASOPTEXEDT TYPE STRING,
TERM TYPE STRING,
PRODUCT TYPE STRING,
USEDPRODUCT TYPE STRING,
CUSTGROUP TYPE STRING,
SALESORG TYPE STRING,
DIS_CHANNEL TYPE STRING,
SOLDTO TYPE STRING,
FINPROD TYPE STRING,
FINCLAS TYPE STRING,
DEVICECLASS TYPE STRING,
OPTIONID TYPE STRING,
CLASSIF_LO_FLAG TYPE STRING,
CLASSIF_GR_FLAG TYPE STRING,
CLAS_CUSTOMER TYPE STRING,
BUS_AREA TYPE STRING,
CLASSIF_LOBK_FL TYPE STRING,
CLASSIF_GRBK_FL TYPE STRING,
INTRATE TYPE STRING,
TMSTAMPADJ TYPE STRING,
PROCMODE TYPE STRING,
LOGHANDLE TYPE STRING,
TMSTAMPREV TYPE STRING,
ALLOCATION_ID TYPE STRING,
TMSTAMPESP TYPE STRING,
FIELD01 TYPE STRING,
FIELD02 TYPE STRING,
FIELD03 TYPE STRING,
CLASSIF_LOCAL TYPE STRING,
CLASSIF_GROUP TYPE STRING,
CLASSIF_LOCALBK TYPE STRING,
CLASSIF_GROUPBK TYPE STRING,
TXT_DEVICECLASS TYPE STRING,
TXT_CLASSIF_LOCAL TYPE STRING,
TXT_CLASSIF_GROUP TYPE STRING,
TXT_CLASSIF_LOCALBK TYPE STRING,
TXT_CLASSIF_GROUPBK TYPE STRING,
PUSHBUTTON_SIMU TYPE STRING,
BUKRS_REF TYPE STRING,
OBJECTID_REF TYPE STRING,
ITEMNO_REF TYPE STRING,
PUSHBUTTON_01 TYPE STRING,
PUSHBUTTON_02 TYPE STRING,
PUSHBUTTON_03 TYPE STRING,
DUMMY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_LAE_CRM_ITEMS_MODX_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_LAE_CRM_ITEMS_MODX_STR-MANDT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-BUKRS sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-OBJID sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-SUBID sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TMSTAMP sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-EVENT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-STATUS sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-ITEMNO sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-ITEMTXT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CURRENCY sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-EXCHG_RATE sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-QUANTITY sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-UNIT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-OBJID_REF sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-SUBID_REF sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CONTSTARTDT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CONTENDDT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-LEASTARTDT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-LEASOPTEXEDT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TERM sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-PRODUCT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-USEDPRODUCT sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CUSTGROUP sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-SALESORG sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-DIS_CHANNEL sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-SOLDTO sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-FINPROD sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-FINCLAS sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-DEVICECLASS sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-OPTIONID sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_LO_FLAG sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_GR_FLAG sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLAS_CUSTOMER sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-BUS_AREA sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_LOBK_FL sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_GRBK_FL sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-INTRATE sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TMSTAMPADJ sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-PROCMODE sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-LOGHANDLE sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TMSTAMPREV sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-ALLOCATION_ID sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TMSTAMPESP sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-FIELD01 sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-FIELD02 sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-FIELD03 sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_LOCAL sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_GROUP sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_LOCALBK sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-CLASSIF_GROUPBK sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TXT_DEVICECLASS sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TXT_CLASSIF_LOCAL sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TXT_CLASSIF_GROUP sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TXT_CLASSIF_LOCALBK sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-TXT_CLASSIF_GROUPBK sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-PUSHBUTTON_SIMU sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-BUKRS_REF sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-OBJECTID_REF sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-ITEMNO_REF sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-PUSHBUTTON_01 sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-PUSHBUTTON_02 sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-PUSHBUTTON_03 sy-vline 
WA_LAE_CRM_ITEMS_MODX_STR-DUMMY sy-vline      INTO ld_text SEPARATED BY SPACE.

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