ABAP Select data from SAP table MT06A 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 MT06A 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 MT06A. 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 MT06A 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_MT06A TYPE STANDARD TABLE OF MT06A,
      WA_MT06A TYPE MT06A,
      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: <MT06A> TYPE MT06A.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM MT06A
*  INTO TABLE @DATA(IT_MT06A2).
*--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_MT06A INDEX 1 INTO DATA(WA_MT06A2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<MT06A>-MATKL = 1.
<MT06A>-MEINS = 1.
<MT06A>-BSTME = 1.
<MT06A>-AUSME = 1.
<MT06A>-MAKTX = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_MT06A-UNTTO, sy-vline,
  WA_MT06A-UEBTO, sy-vline,
  WA_MT06A-UEBTK, sy-vline,
  WA_MT06A-MAHN1, sy-vline,
  WA_MT06A-MAHN2, sy-vline,
  WA_MT06A-MAHN3, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_MT06A 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_MT06A 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_MT06A INTO WA_MT06A.


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

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

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

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

*Conversion exit EAN11, internal->external for field EAN11
CALL FUNCTION 'CONVERSION_EXIT_EAN11_OUTPUT'
  EXPORTING
    input =                      WA_MT06A-EAN11
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MT06A-EAN11.
WRITE:/ 'New Value:', ld_input.

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

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

*Conversion exit GJAHR, internal->external for field SAISJ
CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT'
  EXPORTING
    input =                      WA_MT06A-SAISJ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MT06A-SAISJ.
WRITE:/ 'New Value:', ld_input.

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

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

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

*Conversion exit PERKZ, internal->external for field IPRKZ
CALL FUNCTION 'CONVERSION_EXIT_PERKZ_OUTPUT'
  EXPORTING
    input =                      WA_MT06A-IPRKZ
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MT06A-IPRKZ.
WRITE:/ 'New Value:', ld_input.

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

*Conversion exit ALPHA, internal->external for field PICNUM
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_MT06A-PICNUM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_MT06A-PICNUM.
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_MT06A_STR, 
MATKL TYPE STRING,
MEINS TYPE STRING,
BSTME TYPE STRING,
AUSME TYPE STRING,
MAKTX TYPE STRING,
UNTTO TYPE STRING,
UEBTO TYPE STRING,
UEBTK TYPE STRING,
MAHN1 TYPE STRING,
MAHN2 TYPE STRING,
MAHN3 TYPE STRING,
BSEXT TYPE STRING,
BSINT TYPE STRING,
MTART TYPE STRING,
KZABS TYPE STRING,
EVERS TYPE STRING,
NTGEW TYPE STRING,
GEWEI TYPE STRING,
QMPUR TYPE STRING,
VABME TYPE STRING,
EAN11 TYPE STRING,
KZREV TYPE STRING,
BRGEW TYPE STRING,
VOLUM TYPE STRING,
VOLEH TYPE STRING,
KZKFG TYPE STRING,
SATNR TYPE STRING,
ATTYP TYPE STRING,
PRDHA TYPE STRING,
SAISO TYPE STRING,
SAISJ TYPE STRING,
PLGTP TYPE STRING,
ETIAR TYPE STRING,
ETIFO TYPE STRING,
BWVOR TYPE STRING,
BWSCL TYPE STRING,
KZPIP TYPE STRING,
MHDRZ TYPE STRING,
MHDHB TYPE STRING,
MLGUT TYPE STRING,
CUOBF TYPE STRING,
MSTAE TYPE STRING,
MSTDE TYPE STRING,
DATAB TYPE STRING,
LIQDT TYPE STRING,
MAGRV TYPE STRING,
STEUC TYPE STRING,
MTUSE TYPE STRING,
MTORG TYPE STRING,
OWNPR TYPE STRING,
INDUS TYPE STRING,
KZWSM TYPE STRING,
WMAKG TYPE STRING,
KZGVH TYPE STRING,
BMATN TYPE STRING,
MPROF TYPE STRING,
MFRPN TYPE STRING,
MFRNR TYPE STRING,
NRFHG TYPE STRING,
MTPOS_MARA TYPE STRING,
IPRKZ TYPE STRING,
TRAGR TYPE STRING,
RAUBE TYPE STRING,
TEMPB TYPE STRING,
PROFL TYPE STRING,
EKWSL TYPE STRING,
SGT_COVS TYPE STRING,
SGT_STATC TYPE STRING,
SGT_SCOPE TYPE STRING,
SGT_CSGR TYPE STRING,
SGT_COVSA TYPE STRING,
SGT_REL TYPE STRING,
FSH_SEALV TYPE STRING,
IMATN TYPE STRING,
PICNUM TYPE STRING,
COLOR TYPE STRING,
SIZE1 TYPE STRING,
SIZE2 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_MT06A_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_MT06A_STR-MATKL sy-vline 
WA_MT06A_STR-MEINS sy-vline 
WA_MT06A_STR-BSTME sy-vline 
WA_MT06A_STR-AUSME sy-vline 
WA_MT06A_STR-MAKTX sy-vline 
WA_MT06A_STR-UNTTO sy-vline 
WA_MT06A_STR-UEBTO sy-vline 
WA_MT06A_STR-UEBTK sy-vline 
WA_MT06A_STR-MAHN1 sy-vline 
WA_MT06A_STR-MAHN2 sy-vline 
WA_MT06A_STR-MAHN3 sy-vline 
WA_MT06A_STR-BSEXT sy-vline 
WA_MT06A_STR-BSINT sy-vline 
WA_MT06A_STR-MTART sy-vline 
WA_MT06A_STR-KZABS sy-vline 
WA_MT06A_STR-EVERS sy-vline 
WA_MT06A_STR-NTGEW sy-vline 
WA_MT06A_STR-GEWEI sy-vline 
WA_MT06A_STR-QMPUR sy-vline 
WA_MT06A_STR-VABME sy-vline 
WA_MT06A_STR-EAN11 sy-vline 
WA_MT06A_STR-KZREV sy-vline 
WA_MT06A_STR-BRGEW sy-vline 
WA_MT06A_STR-VOLUM sy-vline 
WA_MT06A_STR-VOLEH sy-vline 
WA_MT06A_STR-KZKFG sy-vline 
WA_MT06A_STR-SATNR sy-vline 
WA_MT06A_STR-ATTYP sy-vline 
WA_MT06A_STR-PRDHA sy-vline 
WA_MT06A_STR-SAISO sy-vline 
WA_MT06A_STR-SAISJ sy-vline 
WA_MT06A_STR-PLGTP sy-vline 
WA_MT06A_STR-ETIAR sy-vline 
WA_MT06A_STR-ETIFO sy-vline 
WA_MT06A_STR-BWVOR sy-vline 
WA_MT06A_STR-BWSCL sy-vline 
WA_MT06A_STR-KZPIP sy-vline 
WA_MT06A_STR-MHDRZ sy-vline 
WA_MT06A_STR-MHDHB sy-vline 
WA_MT06A_STR-MLGUT sy-vline 
WA_MT06A_STR-CUOBF sy-vline 
WA_MT06A_STR-MSTAE sy-vline 
WA_MT06A_STR-MSTDE sy-vline 
WA_MT06A_STR-DATAB sy-vline 
WA_MT06A_STR-LIQDT sy-vline 
WA_MT06A_STR-MAGRV sy-vline 
WA_MT06A_STR-STEUC sy-vline 
WA_MT06A_STR-MTUSE sy-vline 
WA_MT06A_STR-MTORG sy-vline 
WA_MT06A_STR-OWNPR sy-vline 
WA_MT06A_STR-INDUS sy-vline 
WA_MT06A_STR-KZWSM sy-vline 
WA_MT06A_STR-WMAKG sy-vline 
WA_MT06A_STR-KZGVH sy-vline 
WA_MT06A_STR-BMATN sy-vline 
WA_MT06A_STR-MPROF sy-vline 
WA_MT06A_STR-MFRPN sy-vline 
WA_MT06A_STR-MFRNR sy-vline 
WA_MT06A_STR-NRFHG sy-vline 
WA_MT06A_STR-MTPOS_MARA sy-vline 
WA_MT06A_STR-IPRKZ sy-vline 
WA_MT06A_STR-TRAGR sy-vline 
WA_MT06A_STR-RAUBE sy-vline 
WA_MT06A_STR-TEMPB sy-vline 
WA_MT06A_STR-PROFL sy-vline 
WA_MT06A_STR-EKWSL sy-vline 
WA_MT06A_STR-SGT_COVS sy-vline 
WA_MT06A_STR-SGT_STATC sy-vline 
WA_MT06A_STR-SGT_SCOPE sy-vline 
WA_MT06A_STR-SGT_CSGR sy-vline 
WA_MT06A_STR-SGT_COVSA sy-vline 
WA_MT06A_STR-SGT_REL sy-vline 
WA_MT06A_STR-FSH_SEALV sy-vline 
WA_MT06A_STR-IMATN sy-vline 
WA_MT06A_STR-PICNUM sy-vline 
WA_MT06A_STR-COLOR sy-vline 
WA_MT06A_STR-SIZE1 sy-vline 
WA_MT06A_STR-SIZE2 sy-vline      INTO ld_text SEPARATED BY SPACE.

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