ABAP Select data from SAP table CRMT_PRODUCT_PROPOSAL 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_PRODUCT_PROPOSAL 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_PRODUCT_PROPOSAL. 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_PRODUCT_PROPOSAL 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_PRODUCT_PROPOSAL TYPE STANDARD TABLE OF CRMT_PRODUCT_PROPOSAL,
      WA_CRMT_PRODUCT_PROPOSAL TYPE CRMT_PRODUCT_PROPOSAL,
      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_PRODUCT_PROPOSAL> TYPE CRMT_PRODUCT_PROPOSAL.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CRMT_PRODUCT_PROPOSAL
*  INTO TABLE @DATA(IT_CRMT_PRODUCT_PROPOSAL2).
*--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_PRODUCT_PROPOSAL INDEX 1 INTO DATA(WA_CRMT_PRODUCT_PROPOSAL2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CRMT_PRODUCT_PROPOSAL>-LEADING_PROD_ID = 1.
<CRMT_PRODUCT_PROPOSAL>-LEADING_PROD_DESCR = 1.
<CRMT_PRODUCT_PROPOSAL>-GUID = 1.
<CRMT_PRODUCT_PROPOSAL>-PROPOSED_PROD_GUID = 1.
<CRMT_PRODUCT_PROPOSAL>-PROPOSED_PROD_ID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CRMT_PRODUCT_PROPOSAL-PROPOSED_PROD_DESCR, sy-vline,
  WA_CRMT_PRODUCT_PROPOSAL-PROPOSED_QTY, sy-vline,
  WA_CRMT_PRODUCT_PROPOSAL-PROPOSED_PROCESS_QTY_UNIT, sy-vline,
  WA_CRMT_PRODUCT_PROPOSAL-QUANTITY, sy-vline,
  WA_CRMT_PRODUCT_PROPOSAL-PROCESS_QTY_UNIT, sy-vline,
  WA_CRMT_PRODUCT_PROPOSAL-QTY_IN_TRANS_CHAR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CRMT_PRODUCT_PROPOSAL 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_PRODUCT_PROPOSAL 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_PRODUCT_PROPOSAL INTO WA_CRMT_PRODUCT_PROPOSAL.


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

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

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

*Conversion exit TSTPS, internal->external for field FROM_TIME
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_CRMT_PRODUCT_PROPOSAL-FROM_TIME
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CRMT_PRODUCT_PROPOSAL-FROM_TIME.
WRITE:/ 'New Value:', ld_input.

*Conversion exit TSTPS, internal->external for field LATEST_TIME_CONFIRMED
CALL FUNCTION 'CONVERSION_EXIT_TSTPS_OUTPUT'
  EXPORTING
    input =                      WA_CRMT_PRODUCT_PROPOSAL-LATEST_TIME_CONFIRMED
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CRMT_PRODUCT_PROPOSAL-LATEST_TIME_CONFIRMED.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ISOLA, internal->external for field KBLANGUAGE
CALL FUNCTION 'CONVERSION_EXIT_ISOLA_OUTPUT'
  EXPORTING
    input =                      WA_CRMT_PRODUCT_PROPOSAL-KBLANGUAGE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CRMT_PRODUCT_PROPOSAL-KBLANGUAGE.
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_PRODUCT_PROPOSAL_STR, 
LEADING_PROD_ID TYPE STRING,
LEADING_PROD_DESCR TYPE STRING,
GUID TYPE STRING,
PROPOSED_PROD_GUID TYPE STRING,
PROPOSED_PROD_ID TYPE STRING,
PROPOSED_PROD_DESCR TYPE STRING,
PROPOSED_QTY TYPE STRING,
PROPOSED_PROCESS_QTY_UNIT TYPE STRING,
QUANTITY TYPE STRING,
PROCESS_QTY_UNIT TYPE STRING,
QTY_IN_TRANS_CHAR TYPE STRING,
QTY_IN_TRANS TYPE STRING,
PROCESS_QTY_UNIT_IN_TRANS TYPE STRING,
PROPOSAL_TYPE TYPE STRING,
ORIGIN TYPE STRING,
NET_PRICE_CHAR TYPE STRING,
NET_PRICE TYPE STRING,
NET_VALUE TYPE STRING,
CURRENCY TYPE STRING,
FROM_TIME TYPE STRING,
ATP_STATUS TYPE STRING,
HIST_QUANTITY01 TYPE STRING,
HIST_QUANTITY02 TYPE STRING,
HIST_QUANTITY03 TYPE STRING,
HIST_QUANTITY04 TYPE STRING,
HIST_QUANTITY05 TYPE STRING,
HIST_QUANTITY06 TYPE STRING,
HIST_QUANTITY07 TYPE STRING,
HIST_QUANTITY08 TYPE STRING,
HIST_QUANTITY09 TYPE STRING,
HIST_QUANTITY10 TYPE STRING,
HIST_QUANTITY11 TYPE STRING,
HIST_QUANTITY12 TYPE STRING,
TOOLTIP01 TYPE STRING,
TOOLTIP02 TYPE STRING,
TOOLTIP03 TYPE STRING,
TOOLTIP04 TYPE STRING,
TOOLTIP05 TYPE STRING,
TOOLTIP06 TYPE STRING,
TOOLTIP07 TYPE STRING,
TOOLTIP08 TYPE STRING,
TOOLTIP09 TYPE STRING,
TOOLTIP10 TYPE STRING,
TOOLTIP11 TYPE STRING,
TOOLTIP12 TYPE STRING,
GROSS_VALUE TYPE STRING,
REC_TIME_UNIT TYPE STRING,
REC_GROSS_VALUE TYPE STRING,
RECURRING_CHARGE TYPE STRING,
REC_DURATION TYPE STRING,
CONFIRMED_QTY TYPE STRING,
LATEST_TIME_CONFIRMED TYPE STRING,
NETPR_UOM TYPE STRING,
NETPR_PRIC_UNIT TYPE STRING,
SEQUENCE TYPE STRING,
ALL_LEAD_PROD_ID TYPE STRING,
ALL_LEAD_PROD_DESC TYPE STRING,
ALL_LEAD_PROD TYPE STRING,
REF_GUID TYPE STRING,
REF_HANDLE TYPE STRING,
CUCFG TYPE STRING,
CONFIG_ID TYPE STRING,
ROOT_ID TYPE STRING,
SCE TYPE STRING,
KBNAME TYPE STRING,
KBVERSION TYPE STRING,
KBPROFILE TYPE STRING,
COMPLETE TYPE STRING,
CONSISTENT TYPE STRING,
KBLANGUAGE TYPE STRING,
CFGINFO TYPE STRING,
INT_OBJ_NO TYPE STRING,
CUBLB TYPE STRING,
CONFIG_ID TYPE STRING,
CONTENT TYPE STRING,
CUINS TYPE STRING,
CUPRT TYPE STRING,
CUVAL TYPE STRING,
CUVK TYPE STRING,
CUREF TYPE STRING,
EXTERNAL_CONFIG TYPE STRING,
EXTERNAL_CONFIG_FLAG TYPE STRING,
COMPONENTS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CRMT_PRODUCT_PROPOSAL_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_PRODUCT_PROPOSAL_STR-LEADING_PROD_ID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-LEADING_PROD_DESCR sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-GUID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROPOSED_PROD_GUID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROPOSED_PROD_ID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROPOSED_PROD_DESCR sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROPOSED_QTY sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROPOSED_PROCESS_QTY_UNIT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-QUANTITY sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROCESS_QTY_UNIT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-QTY_IN_TRANS_CHAR sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-QTY_IN_TRANS sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROCESS_QTY_UNIT_IN_TRANS sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-PROPOSAL_TYPE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-ORIGIN sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-NET_PRICE_CHAR sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-NET_PRICE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-NET_VALUE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CURRENCY sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-FROM_TIME sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-ATP_STATUS sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY01 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY02 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY03 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY04 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY05 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY06 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY07 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY08 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY09 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY10 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY11 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-HIST_QUANTITY12 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP01 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP02 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP03 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP04 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP05 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP06 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP07 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP08 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP09 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP10 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP11 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-TOOLTIP12 sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-GROSS_VALUE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-REC_TIME_UNIT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-REC_GROSS_VALUE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-RECURRING_CHARGE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-REC_DURATION sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CONFIRMED_QTY sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-LATEST_TIME_CONFIRMED sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-NETPR_UOM sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-NETPR_PRIC_UNIT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-SEQUENCE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-ALL_LEAD_PROD_ID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-ALL_LEAD_PROD_DESC sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-ALL_LEAD_PROD sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-REF_GUID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-REF_HANDLE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUCFG sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CONFIG_ID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-ROOT_ID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-SCE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-KBNAME sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-KBVERSION sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-KBPROFILE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-COMPLETE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CONSISTENT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-KBLANGUAGE sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CFGINFO sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-INT_OBJ_NO sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUBLB sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CONFIG_ID sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CONTENT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUINS sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUPRT sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUVAL sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUVK sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-CUREF sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-EXTERNAL_CONFIG sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-EXTERNAL_CONFIG_FLAG sy-vline 
WA_CRMT_PRODUCT_PROPOSAL_STR-COMPONENTS sy-vline      INTO ld_text SEPARATED BY SPACE.

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