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

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

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

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


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
</SCMTMS/S_DANG_GOODS>-DNGGOODSID162 = 1.
</SCMTMS/S_DANG_GOODS>-DG_RELCO163 = 1.
</SCMTMS/S_DANG_GOODS>-DG_HAZCO164 = 1.
</SCMTMS/S_DANG_GOODS>-QTY_TCO059 = 1.
</SCMTMS/S_DANG_GOODS>-LID059 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_/SCMTMS/S_DANG_GOODS-LVID059, sy-vline,
  WA_/SCMTMS/S_DANG_GOODS-LAID059, sy-vline,
  WA_/SCMTMS/S_DANG_GOODS-LASID059, sy-vline,
  WA_/SCMTMS/S_DANG_GOODS-LAS2ID059, sy-vline,
  WA_/SCMTMS/S_DANG_GOODS-QTY_TCO059_I, sy-vline,
  WA_/SCMTMS/S_DANG_GOODS-INTVBNDTCO171, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_/SCMTMS/S_DANG_GOODS 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_/SCMTMS/S_DANG_GOODS 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_/SCMTMS/S_DANG_GOODS INTO WA_/SCMTMS/S_DANG_GOODS.


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

*Conversion exit QTYRN, internal->external for field QTY_VALUELOW
CALL FUNCTION 'CONVERSION_EXIT_QTYRN_OUTPUT'
  EXPORTING
    input =                      WA_/SCMTMS/S_DANG_GOODS-QTY_VALUELOW
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCMTMS/S_DANG_GOODS-QTY_VALUELOW.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit QTYRN, internal->external for field QTY_VALUEUPP
CALL FUNCTION 'CONVERSION_EXIT_QTYRN_OUTPUT'
  EXPORTING
    input =                      WA_/SCMTMS/S_DANG_GOODS-QTY_VALUEUPP
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_/SCMTMS/S_DANG_GOODS-QTY_VALUEUPP.
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_/SCMTMS/S_DANG_GOODS_STR, 
DNGGOODSID162 TYPE STRING,
DG_RELCO163 TYPE STRING,
DG_HAZCO164 TYPE STRING,
QTY_TCO059 TYPE STRING,
LID059 TYPE STRING,
LVID059 TYPE STRING,
LAID059 TYPE STRING,
LASID059 TYPE STRING,
LAS2ID059 TYPE STRING,
QTY_TCO059_I TYPE STRING,
INTVBNDTCO171 TYPE STRING,
QTY_UNIT_CLOW TYPE STRING,
QTY_VALUELOW TYPE STRING,
QTY_UNIT_CUPP TYPE STRING,
QTY_VALUEUPP TYPE STRING,
DG_PCKGRCO165 TYPE STRING,
DG_EMGSDCO166 TYPE STRING,
LID166 TYPE STRING,
LVID166 TYPE STRING,
LAID166 TYPE STRING,
DG_EMGSDCO166_I TYPE STRING,
UNDERLINE TYPE STRING,
TRPEMGCACO167 TYPE STRING,
LID167 TYPE STRING,
LVID167 TYPE STRING,
LAID167 TYPE STRING,
LASID167 TYPE STRING,
LAS2ID167 TYPE STRING,
TRPEMGCACO167_I TYPE STRING,
DG_LABELCO168 TYPE STRING,
DG_LABELCO1682 TYPE STRING,
DG_LABELCO1683 TYPE STRING,
PCKINSTCO169 TYPE STRING,
LID169 TYPE STRING,
LVID169 TYPE STRING,
LAID169 TYPE STRING,
PCKINSTCO169_I TYPE STRING,
MTRDCO063 TYPE STRING,
LID063 TYPE STRING,
LVID063 TYPE STRING,
LAID063 TYPE STRING,
LASID063 TYPE STRING,
LAS2ID063 TYPE STRING,
MTRDCO063_I TYPE STRING,
DG_TRPAUCO170 TYPE STRING,
LID170 TYPE STRING,
LVID170 TYPE STRING,
LAID170 TYPE STRING,
LASID170 TYPE STRING,
LAS2ID170 TYPE STRING,
DG_TRPAUCO170_I TYPE STRING,
TXC_KEY TYPE STRING,
EEW_GEN_DGGOODS TYPE STRING,END OF T_EKKO_STR.
DATA: WA_/SCMTMS/S_DANG_GOODS_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_/SCMTMS/S_DANG_GOODS_STR-DNGGOODSID162 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_RELCO163 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_HAZCO164 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-QTY_TCO059 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LID059 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LVID059 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAID059 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LASID059 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAS2ID059 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-QTY_TCO059_I sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-INTVBNDTCO171 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-QTY_UNIT_CLOW sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-QTY_VALUELOW sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-QTY_UNIT_CUPP sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-QTY_VALUEUPP sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_PCKGRCO165 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_EMGSDCO166 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LID166 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LVID166 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAID166 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_EMGSDCO166_I sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-UNDERLINE sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-TRPEMGCACO167 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LID167 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LVID167 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAID167 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LASID167 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAS2ID167 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-TRPEMGCACO167_I sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_LABELCO168 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_LABELCO1682 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_LABELCO1683 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-PCKINSTCO169 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LID169 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LVID169 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAID169 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-PCKINSTCO169_I sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-MTRDCO063 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LID063 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LVID063 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAID063 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LASID063 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAS2ID063 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-MTRDCO063_I sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_TRPAUCO170 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LID170 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LVID170 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAID170 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LASID170 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-LAS2ID170 sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-DG_TRPAUCO170_I sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-TXC_KEY sy-vline 
WA_/SCMTMS/S_DANG_GOODS_STR-EEW_GEN_DGGOODS sy-vline      INTO ld_text SEPARATED BY SPACE.

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