ABAP Select data from SAP table /ACCGO/CAK_S_PRICE_LOT 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 /ACCGO/CAK_S_PRICE_LOT 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 /ACCGO/CAK_S_PRICE_LOT. 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 /ACCGO/CAK_S_PRICE_LOT 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_/ACCGO/CAK_S_PRICE_LOT TYPE STANDARD TABLE OF /ACCGO/CAK_S_PRICE_LOT,
      WA_/ACCGO/CAK_S_PRICE_LOT TYPE /ACCGO/CAK_S_PRICE_LOT,
      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: </ACCGO/CAK_S_PRICE_LOT> TYPE /ACCGO/CAK_S_PRICE_LOT.

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

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM /ACCGO/CAK_S_PRICE_LOT
  INTO TABLE IT_/ACCGO/CAK_S_PRICE_LOT.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM /ACCGO/CAK_S_PRICE_LOT
*  INTO TABLE @DATA(IT_/ACCGO/CAK_S_PRICE_LOT2).
*--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_/ACCGO/CAK_S_PRICE_LOT INDEX 1 INTO DATA(WA_/ACCGO/CAK_S_PRICE_LOT2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_/ACCGO/CAK_S_PRICE_LOT ASSIGNING </ACCGO/CAK_S_PRICE_LOT>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
</ACCGO/CAK_S_PRICE_LOT>-TRADINGCONTRACTNUMBER = 1.
</ACCGO/CAK_S_PRICE_LOT>-TRADINGCONTRACTITEM = 1.
</ACCGO/CAK_S_PRICE_LOT>-SRC_LOT_ID = 1.
</ACCGO/CAK_S_PRICE_LOT>-TERM_NUMBER = 1.
</ACCGO/CAK_S_PRICE_LOT>-MATERIAL = 1.

ENDLOOP.

LOOP AT IT_/ACCGO/CAK_S_PRICE_LOT INTO WA_/ACCGO/CAK_S_PRICE_LOT.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/ACCGO/CAK_S_PRICE_LOT-CONTRACT_TYPE, sy-vline,
  WA_/ACCGO/CAK_S_PRICE_LOT-CONTRACT_SIDE, sy-vline,
  WA_/ACCGO/CAK_S_PRICE_LOT-PRC_QTY, sy-vline,
  WA_/ACCGO/CAK_S_PRICE_LOT-UOM, sy-vline,
  WA_/ACCGO/CAK_S_PRICE_LOT-UX_FC_QTY_ADDRESS, sy-vline,
  WA_/ACCGO/CAK_S_PRICE_LOT-OPEN_QTY, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/ACCGO/CAK_S_PRICE_LOT 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_/ACCGO/CAK_S_PRICE_LOT 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_/ACCGO/CAK_S_PRICE_LOT INTO WA_/ACCGO/CAK_S_PRICE_LOT.


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

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

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

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

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

*Conversion exit CUNIT, internal->external for field CONDUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_/ACCGO/CAK_S_PRICE_LOT-CONDUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/ACCGO/CAK_S_PRICE_LOT-CONDUOM.
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_/ACCGO/CAK_S_PRICE_LOT_STR, 
TRADINGCONTRACTNUMBER TYPE STRING,
TRADINGCONTRACTITEM TYPE STRING,
SRC_LOT_ID TYPE STRING,
TERM_NUMBER TYPE STRING,
MATERIAL TYPE STRING,
CONTRACT_TYPE TYPE STRING,
CONTRACT_SIDE TYPE STRING,
PRC_QTY TYPE STRING,
UOM TYPE STRING,
UX_FC_QTY_ADDRESS TYPE STRING,
OPEN_QTY TYPE STRING,
SETTLED_QTY TYPE STRING,
CONTRACT_ITEM_QUANTITY TYPE STRING,
OVERFILL_IND TYPE STRING,
OVERFILL_DISABLED TYPE STRING,
DCS_ID TYPE STRING,
DCS_DESC TYPE STRING,
MIC TYPE STRING,
MIC_DESC TYPE STRING,
MAT_KEY_DATE TYPE STRING,
MATURITY_CODE TYPE STRING,
MATCODEDB TYPE STRING,
TOT_AMOUNT TYPE STRING,
VAL_POINT TYPE STRING,
VAL_POINT_DESC TYPE STRING,
NUM_OF_VEHICLES TYPE STRING,
CURRENCY TYPE STRING,
INTPRICETYPE TYPE STRING,
PRC_APPROACH TYPE STRING,
PRC_APP_DESC TYPE STRING,
STATUS TYPE STRING,
FUTUREPRICE TYPE STRING,
ISLOCAL TYPE STRING,
SPLITMAPPING TYPE STRING,
ISLOCAL_FROMSPLIT TYPE STRING,
BASISPRICE TYPE STRING,
NONHEDGEFLATPRICE TYPE STRING,
FLAT_PRICE_AMOUNT TYPE STRING,
FLAT_PRICE_AMT_VISIBLE TYPE STRING,
FLAT_PRICE_AMT_DISABLE TYPE STRING,
ISVEHICLEVISIBLE TYPE STRING,
FLATPRICE TYPE STRING,
FLAT_CURR TYPE STRING,
FUTURE_CURR TYPE STRING,
BASIS_CURR TYPE STRING,
WERKS_NAME TYPE STRING,
PURC_ORG TYPE STRING,
PURC_GROUP TYPE STRING,
SALES_ORG TYPE STRING,
DIST_CHANNEL TYPE STRING,
DIVISION TYPE STRING,
COUNTER_PARTY TYPE STRING,
DATE_FROM TYPE STRING,
DATE_TO TYPE STRING,
PAYMENT_TERM TYPE STRING,
INCOTERMS TYPE STRING,
PARTIAL_NOT_ALLOWED TYPE STRING,
EDITABLEPROPERTY TYPE STRING,
LOT_CAN_BE_DELETED TYPE STRING,
LOT_IS_DELETED TYPE STRING,
ISVEHICLECONTRACT TYPE STRING,
ROLLCHANGEDVAL TYPE STRING,
PRICE_UNIT TYPE STRING,
ISSPLITALLOWEDFROMLOT TYPE STRING,
CONDUOM TYPE STRING,
SPLITTED TYPE STRING,
MATCODEDISABLED TYPE STRING,
MNTNCONTRACTPRICECOND TYPE STRING,
MNTNCONTRACTPRICEMETHOD TYPE STRING,
MNTNCONTRACTCOMMORDER TYPE STRING,
MNTNCONTRACTPRICELOTFEEDET TYPE STRING,
FEEEVENT TYPE STRING,
FXFEEEVENT TYPE STRING,
ROLLFEEEVENT TYPE STRING,
LIFTFEEEVENT TYPE STRING,
FXLIFTFEEEEVENT TYPE STRING,
LIFTWOEFEEEVENT TYPE STRING,
FXLIFTWOEFEEEEVENT TYPE STRING,
ACMPRCGCNDNBASISFIXEDRATEQTY TYPE STRING,
ACMPRCGCNDNFLATFIXEDRATEQTY TYPE STRING,
PRICELOTPROCESED TYPE STRING,
MNTNPRICECOMMORDER TYPE STRING,
FLAT2_COMBINED_LIFT_IND TYPE STRING,
CDOTE_STATUS TYPE STRING,
CDOTE_STATUS_DESCRIPTION TYPE STRING,
IS_RESERVE_NPE_QTY TYPE STRING,
LIFT_QTY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/ACCGO/CAK_S_PRICE_LOT_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_/ACCGO/CAK_S_PRICE_LOT_STR-TRADINGCONTRACTNUMBER sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-TRADINGCONTRACTITEM sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-SRC_LOT_ID sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-TERM_NUMBER sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MATERIAL sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CONTRACT_TYPE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CONTRACT_SIDE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PRC_QTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-UOM sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-UX_FC_QTY_ADDRESS sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-OPEN_QTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-SETTLED_QTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CONTRACT_ITEM_QUANTITY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-OVERFILL_IND sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-OVERFILL_DISABLED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-DCS_ID sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-DCS_DESC sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MIC sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MIC_DESC sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MAT_KEY_DATE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MATURITY_CODE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MATCODEDB sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-TOT_AMOUNT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-VAL_POINT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-VAL_POINT_DESC sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-NUM_OF_VEHICLES sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CURRENCY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-INTPRICETYPE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PRC_APPROACH sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PRC_APP_DESC sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-STATUS sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FUTUREPRICE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ISLOCAL sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-SPLITMAPPING sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ISLOCAL_FROMSPLIT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-BASISPRICE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-NONHEDGEFLATPRICE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FLAT_PRICE_AMOUNT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FLAT_PRICE_AMT_VISIBLE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FLAT_PRICE_AMT_DISABLE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ISVEHICLEVISIBLE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FLATPRICE sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FLAT_CURR sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FUTURE_CURR sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-BASIS_CURR sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-WERKS_NAME sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PURC_ORG sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PURC_GROUP sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-SALES_ORG sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-DIST_CHANNEL sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-DIVISION sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-COUNTER_PARTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-DATE_FROM sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-DATE_TO sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PAYMENT_TERM sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-INCOTERMS sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PARTIAL_NOT_ALLOWED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-EDITABLEPROPERTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-LOT_CAN_BE_DELETED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-LOT_IS_DELETED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ISVEHICLECONTRACT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ROLLCHANGEDVAL sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PRICE_UNIT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ISSPLITALLOWEDFROMLOT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CONDUOM sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-SPLITTED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MATCODEDISABLED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MNTNCONTRACTPRICECOND sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MNTNCONTRACTPRICEMETHOD sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MNTNCONTRACTCOMMORDER sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MNTNCONTRACTPRICELOTFEEDET sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FXFEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ROLLFEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-LIFTFEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FXLIFTFEEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-LIFTWOEFEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FXLIFTWOEFEEEEVENT sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ACMPRCGCNDNBASISFIXEDRATEQTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-ACMPRCGCNDNFLATFIXEDRATEQTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-PRICELOTPROCESED sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-MNTNPRICECOMMORDER sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-FLAT2_COMBINED_LIFT_IND sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CDOTE_STATUS sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-CDOTE_STATUS_DESCRIPTION sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-IS_RESERVE_NPE_QTY sy-vline 
WA_/ACCGO/CAK_S_PRICE_LOT_STR-LIFT_QTY sy-vline      INTO ld_text SEPARATED BY SPACE.

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